Jeżeli CheckBox=True warunkowo ukrywa wiersze, =False odkrywa, to [syntax=vbscript] If CheckBox1 = True Then For i = 1 To lastRow If (StrComp(Cells(i, v_column).Value, "Scrap", vbTextCompare) = 0) Then Cells(i, v_column).EntireRow.Hidden = True End If Next i Else rows.EntireRow.Hidden = False End If[/syntax]
[syntax=vbnet]arkusz1.range ("a11").value = "*-*" Userform1.checkbox1 = (mid(arkusz1.range ("a11").value,1,1) = "*") Userform1.checkbox2 = (mid(arkusz1.range ("a11").value,2,1) = "*") Userform1.checkbox3 = (mid(arkusz1.range ("a11").value,3,1) = "*")[/syntax] Możesz też zapisać jako potęgi dwójki, np: binarne 101 czyli: arkusz1.range ("a11").value =...
Nie wiem czy to zadziała na Excelu 2002, ale możesz sprawdzić przykład z załącznika. Oparty na "zwykłych" formantach formularza - checkboxach. Jak klikniesz prawym -> Formatuj formant to we właściwościach masz Łącze Komórki, gdzie możesz ustawić powiązanie formantu z komórką - to ta pierwsza część. Druga - do checkboxa można przypisać makro, które zaznaczy...
Witaj. Sprawdź załącznik. Checboxy zastąpione czymkolwiek w kolumnie (może być X, może być cokolwiek poza pustym polem). Poprawność stawiania xów czy innych jest sprawdzana na bieżąco, więc jeśli spróbujesz postawić iksy dla dwóch różnych zamówień to wyjdzie błąd już w momencie stawiania. Nie jestem pewien, po co numer wiersza, wystarczy że masz w tabeli...
Dzień Dobry wszystkim, mam problem w swoim projekcie z pewną sprawą a mianowicie jak napisać komendę aby po zaznaczeniu jednego z kilku dostępnych CheckBox(np.1a) kontrolować wypełnienie danymi wybranych TextBox(np.1b) lub ComboBox(np.1c). Całość jest osadzona w UserFormie, ni chu chu nie wiem jak to napisać żeby się to zgrało w całość :-/. Początkujący...
Przypisz je do zmiennych globalnych lub stwórz arkusz pomocniczy (nawet ukryty) w którym poszczególna komórka będzie odpowiedzialna za poszczególny checkbox i przy inicjalizacji okna checkboxy będą pobierać dane z tego arkusza . (inne procerdury też mogą wtedy pobierać dane do swych działań na podstawie tego arkusza) Nie wiem czy w miarę zrozumiale.
Private Sub CommandButton1_Click() Text = "" For Each ctr In Me.Controls If TypeOf ctr Is MSForms.CheckBox Then If ctr = "True" Then Text = Text + ctr.Name + Chr(10) End If Next ActiveSheet.Range("A1")... = Text Unload Me End Sub
uzyj OptionButton zamiast CheckBox
Co do pierwszego spróbuj tak TablicaCenniki(1) = "ABA" TablicaCenniki(2) = "..." .... nazwy_zmiennych = TablicaCenniki(1) 'tu będzie pętla temp = Form_AktCen.Controls(nazwy_zmiennych... W "dalszych konstrukcjach" jezeli już to tak bym uprościł: Chcesz kasować cały arkusz ? Jeżeli tak wystarczy:...
a po drugie chyba mniej skomplikowane będzie usuwanie tych z zakresu drugiej ramki No, może odrobinkę. W załączniku są dopisane oba. Procedury znajdują się w kodzie arkusza. W makro wstawiania nie ingerowałem, nadmiarowe CheckBox'y wyrzuciłem.
Witam, Dopiero zaczynam przygodę z makrami i natrafiłem na problem z którym nie potrafię sobie poradzić. Otóż mam w jednej kolumnie (w moim przykładzie kolumna H) formuły zwracające tekst TAK lub brak tekstu, potrzebuję zaznaczyć/odznaczyć checkbox - nadać odpowiedniemu polu w innej kolumnie (w przykładzie kolumna C) wartość TRUE lub FALSE. Dla jednego...
Witam zmienić userform1 na userform, czy cokolwiek jest formularz, w którym jest checkBox Być może jest to FrmKomputeryStacjonarne i lepiej - If Typename(chb)="CheckBox" And chb.Value Then
clubs - nie tak, jak zrobie tak jak piszesz to checkbox jest ciągle widoczny (niezaleznie czy wiersze sa widoczne ergo niezaleznie jaka jest wartość komórki sterującej "zwijaniem" wierszy)
Witam Otóż mam pytanie związane z makrami bądź też z programowaniem w VBA. Ponieważ jestem nowicjuszem ale coś liznąłem w tym kierunku. Mam do zrobienia jedną rzecz w excel'u, a mianowicie. Mam 5 kolumn z danymi, pozycji jest (wierszy) coś ponad 14000 ale to jest mało istotne. W 6 kolumnie mam dodane checkbox'y dodane przez formanty formularza(Nie wiem...
Przegrupowałem dane do wprowadzenia wg odpowiedziałności . Teraz możnaby ustawić Checkbox dla grupy wierszy i kolumn. Będę drążył ten temat w ksiażkach i na stronach.
Witam, W jaki sposób poradzić sobie z automatycznym tworzeniem krótkiego zestawienia ze zbiorczej tabeli, która posiada checkboxy i pola textowe z VBA Weźmy 2 kolumny w tabeli w excelu 1_Typ pakowania;pudełko 24 szt. checkbox + pole textowe; pudełko 48 szt. checkbox + pole textowe 2_Rodzaj wyposażenia;Wyposażenie A checkbox;Wyposażenie B checkbox;Wyposażenie...
Wstawiłem CheckBox z zakładki Formanty ActiveX Dodano po 4 Co to znaczy podlinkowanie do sąsiednich komórek?
Fajnie, fajnie;) Coś takiego chciałem zrobić, ale to nie do końca działa jak należy. Zobacz, tam mam checkbox'y. Kiedy dana osoba ma jakiś certyfikat to zaznaczamy checkbox danego certyfikatu. Gdy to zrobimy, liczby po prawej stronie poziomo do danej osoby, a równolegle z checkboxami zmieniają się. Tam nie dokończyłem. Przy każdym imieniu i nazwisku...
Niestety nie umiem wykorzystać twoich kodów żeby poprawnie działały. Może dokładniej powiem co chcę osiągnąć tym kodem. Wykorzystałem w nim pięć przycisków CheckBox (wszystkie przyciski są w jednym arkuszu), w kodzie jak pokazałem w pierwszym poście wszystko działa ok, jednak chciałem aby zastosować kolejność odkrywania kolumn pod warunkiem że poprzednie...
Witam, Prośba o pomoc mam trzy pola checkbox, każde z nich ukrywa lub odkrywa wiersze które mają określone wartości. Lepiej lub gorzej ale radzę sobie żeby każdy checkbox działał osobno, ale chciałbym jeszcze dorzucić warunek, że kiedy wszystkie trzy checkboxy są odznaczone (false) to żeby wszystkie wiersze były odkryte. W załączeniu również plik z...
(at)dt1 Jak dla mnie to porady na forum ELEKTRODA odnośnie Excela VBA nie powinny mieć miejsca. Jest to w pewny sposób wykorzystywanie umiejętności informatycznych ludzi, którzy kiedyś musieli nauczyć się od zera VBA, a teraz maja podawać kawę na ławę zatrudnionym pseudo informatykom pracującym w biurze i przeważnie na posadach państwowych lub w dużych...
Dziękuję za pomoc w dotychczasowej nauce! Mam jeszcze odnośnie e-mail, a raczej numerowania punktów. Rozwiązałem już problem z wysyłaniem komunikatu o podstawowej treści ( początkowa informacja która ma wpisane 3 punkty jedno pod drugim ) I teraz zastanawiam się czy istnieje możliwość dodania kolejnych numerów ( punktów ) w zależności, gdy zaznaczymy...
Przede wszystkim powiąż sobie checkbox z polem arkusza np. tak jak to napisane tutaj: http://www.pcworld.com/article/2042382/a... Potem ustaw (dodatkowo) we wszystkich polach chkbox, aby zdarzenie wskazywało jedno makro. W nim wpisujesz kod. Przykładowy kod ukrycia jednej kolumny w zależności od wybrania chkbox'a...
Podobny sposób do zablokowania kontrolki - dający efekt "wyszarzania", ale samego tekstu - można uzyskać ustawiając właściwość Enabled kontrolki na False. Excel faktycznie nie obsługuje wyszarzenia całej kontrolki, chyba że jej BackColor zmienisz ręcznie ;). witam ponownie czy moglbys mi powiedziec gdzie znalesc w jezyku polski opis kodow do VBA. jesli...
Witajcie mam taka sprawę ... Potrzebuje zrobić Exela do celow prywatnych... kwestia tego ze nie wiem jak mam sie za to zabrac ale zacznę od początku. Po 1 w Exelu beda 4 Kolumny pytanie || odpowiedz || kto || kiedy -Pytanie wiadomo odpowiedz tak/nie ( w formie przycisku) kto bedzie wprowadzane recznie ręcznie i kiedy tez Na czym mi zalezy Jezeli bedzie...
Ja tym czasem spróbuje rozgryźć działanie nie powiodło się To makro(checkb_XY) - pod warunkiem, że tabela jedna dowolnego rozmiaru i w górnym lewym rogu. det() określa rozmiar i umieszcza wartośći checkbox'ow. Poniewaz "w górnym lewym rogu" to warunek 'If t(1, x) Then' sprawdza checkbox w 1 wierszu ostatny(zaznacz wszystko). Masz w projekcie jednakowe...
Witam Zmień z [syntax=vbnet]If ws.Range("C1:C140").Value = "" Then[/syntax] na [syntax=vbnet]If WorksheetFunction.CountA(ws.Range("C1:E1... = 0 Then[/syntax]
Nie mam takiej opcji jak checkbox.Można to jakoś dograć?
Na przyszłość: spakuj plik i zrezygnuj z prowizji :) Zauważyłem za późno (-4pkt)... Problem w tym, że w arkuszu 1 masz 14185 CheckBox'ów (większość jeden na drugim) policzyłem makrem Sub policz() MsgBox Sheets("Arkusz1").Shap... End Sub w ostatnim wierszu z "ręcznym" usuwaniem dałem spokój na 50-tym...
VBA i możesz wszystko... [syntax=vbscript] Sub Polewyboru33_Kliknięcie() ' ' Polewyboru33_Kliknięcie Makro ' ActiveSheet.CheckBoxes("Pole wyboru 17").Value = 1 ActiveSheet.CheckBoxes("Pole wyboru 25").Value = 1 ActiveSheet.CheckBoxes("Pole wyboru 29").Value = 1 ActiveSheet.CheckBoxes("Pole wyboru 19").Value = 1 End Sub [/syntax]
Private Sub CheckBox1_Click() Sheets("sheet2").Columns("G:G").EntireCo... = Not CheckBox1.Value End Sub można bez ".Value "
Co tu wyjaśniać - masz przykład (Excel 2007). ...chyba, że masz te checkbox-y wprost na arkuszu (nie na formularzu użytkownika).
Spodziewałem się czekać kilka dni a tu już dzieki a powiedzcie jak to zaimplementować dla kilku kolumn, żeby jeden checkbox dotyczył wszystkich kolumn w wierszu przyklad
Witam, potrzebuję pomocy z napisaniem kodu VBA. Zaczynam dopiero przygodę z VBA i niestety nie mogę poradzić sobie z tym, co mam do zrobienia, nawet nie wiem, jak zacząć. W skrócie, chciałabym wydrukować część plików Word z poziomu Excel. Wybór za pomocą checkbox, drukowanie za pomocą przycisku (wyskakujące okno Drukuj, aby wybrać drukarkę). Pliki Word,...
Jeśli tych checkboxów jest mało to można się bawić w coś takiego: [syntax=vbnet]Private Sub CheckBox1_Click() If CheckBox1.Value = True Then CheckBox2.Value = False CheckBox3.Value = False End If End Sub Private Sub CheckBox2_Click() If CheckBox2.Value = True Then CheckBox1.Value = False CheckBox3.Value = False End If End Sub Private Sub CheckBox3_Click()...
Po wstępnych oględzinach działa super. Jutro dostosuję to do moich potrzeb, bo raczej chcę ten kod implementować w plikach właściwych, na których pracuję, a nie robić osobny plik sterujący. Tak swoją drogą to myślałem, że sam kod będzie bardziej rozbudowany :) . Dodatkowo mam pytanie dotyczące metody Application.GetOpenFilename, z której to czasami...
Wnioskuje, że checkboxy masz w arkuszu a nie userformie? Wtedy wystarczy PPM na checkbox i poszukać w ustawieniach opcji "move and size with cells" itp. PS: To co napisałeś jest mało zrozumiałe. Najlepiej załącz plik, gdzie widoczny jest problem i dobrze go opisz. Również opisz cel jaki chcesz osiągnąć. Zwróć uwagę na interpunkcję.
No tak, ale gdzie jest ten checkbox, czy jest dla każdego wiersza ?
Męczę się i męczę i staram się zrobić jak najbardziej automatyczne to moje makro. Myślałem nad zastosowaniem userforma. W teorii każdy wygenerowany tekst z danej kolumny chciałbym przypisać do CheckBox'a. Po zaznaczeniu dowolnych ChcecBox'ów łączył by je w cały tekst. Kolorem niebieskim zaznaczyłem wartości które chciałbym przypisać do CheckBox'ów.
Może coś w ten deseń? https://obrazki.elektroda.pl/9464065400_... https://obrazki.elektroda.pl/1781903700_... Hej dzięki, Nie wiem tylko jak dołączyć to do mojego kodu, który mam podpięty już pod wiele checkboxów.... U mnie to checkboxy od NTS5000CheckBox11 do NTS5000CheckBox24, których zaznaczenie powoduje oznaczenie...
błąd "type mismach" w linii: If Range("an20") < 0 And CheckBox1 = True Or CheckBox2 = True Then Kliknij w "AN20" i sprawdź adres w polu nazwy i wartość. Wygląda na to, że nie jest to liczba (data)... Dla pewności zamiast odnosić się do komórki wynikowej sprawdzaj daty /If Range("A2")-Range("A1") < 0 itd/ Kod (od If do End If) możesz wrzucić do...
Moim zdaniem sympatyczniejsze są formanty z przybornika. Można je łatwo kodować wpisując w obsłudze zdarzenia CheckBox1_Click() ukrywanie i pokazywanie pozostałych CheckBox-ów sprawdzając ich właściwość Value. Ukrywa się przez zmianę właściwości Visible.
Witam mam takie pytanko jak połączyć checkbox-y chodzi mi oto że w arkuszu 1 mam kilka checkbox-ów a w arkuszu 1 mam taką samą tabele i chce by wszystko było zassane z 1 arkusza + brak możliwości edycji. Dodatkowo by się nie wyświetliło okienko checkbox-a jeżeli nie ma przy tej pozycji w arkuszu 1. z góry dziękuje za pomoc.
W załączniku. Dziękuję bardzo. To jest super, tylko próbując to zaimplementować do mojego arkusza, uświadomiłem sobie, że mam w sumie 15 pozycji (osób), które pojawiają się w zależności od wprowadzenia ich ilości (wpisując w określonej komórce liczbę mam tyle właśnie pól do wypełnienia. I teraz zrodził mi się problem, że musiałbym mieć 15 buttonów,...
Sorki nie dopisałem chodzi mi o programowanie Excela w VBA!!! te uwagi będą również trafne w tym przypadku.
Czy nie prościej/poprawniej wybierać te liczby 1..49 poprzez checkbox'a? Właściwie wydaje mi się że ci chodzi o coś takiego: http://obrazki.elektroda.pl/2098817900_1... - jest dostępny za drobne, jak chcesz to mogę poszukać linka.
Zdefiniuj "łącze komórki" dla obu checkbox'ów (dwie osobne) i sprawdzaj zagnieżdżoną funkcją JEŻELI. prawda/fałsz;"OK" fałsz/prawda;"Błąd" pozostałe przypadki;""
W Excelu takie zadanie można szybko zrealizować np. w oparciu o zdarzenie CheckBox1_Click() :D tzn. zmiana stanu checkboxa z False na True wywołuje wstawienie bieżącej daty :spoko: Jak widać na zrzucie checkbox = False więc pozostaje stara data :D 1091662 1091663 Spróbuj zaimportować ten plik do Google Sheets i być może zaimportuje się również to krótkie...
Witam, Mam kolejny kłopot. Jak zapisać poniższy kod aby był poprawny? Chciałabym po kliknięciu Checkbox, aktywowac/deaktywowac ponizsze TextBoxy oraz Button... Wiem jak jednym checkboxem obsluzyc jeden obiekt... ale jak kilka? Znalazłam tu na forum chyba podobny temat i rozwiązanie: http://www.elektroda.pl/rtvforum/topic21... Probowałam i z Frame...
Witam!!! Mam taki problem mam 6 checkbox-ów pogrupowanych w 3 kolumny , nad każdym z nich jest YES lub NO i po zaznaczeniu tych checkboxow w Yes chciałbym dostać wartość YES a jeśli zaznaczę choć by jeden z NO to żeby ta wartość zmieniała się na NO w jednej komórce..za wszelkie podpowiedzi z góry dziękuje
checkbox excel checkbox działa checkbox click
oporność głośnik skoda rozrząd maszynka mielenia bosch
termet ecocondens silver rozdzielacz ogrzewania podłogowego
Instrukcje wprowadzania kodu do radia Clarion PU-7915 Peugeot 307 2.0 HDI 2003 - Brak komunikacji OBD2 z ECU