Z ActiveX nie trzeba aktywowac arkuszy i zaznaczyc checkBox,[może mieć taką samą nazwę (na różnych arkuszach)]
Nie działa zastosowanie indeksacji np. checkbox(i). A powinno... Może coś innego w takim razie? Przykład z klasą w załączniku.
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...
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.
CheckBox bez odniesień ? Jaki w tym sens?
VBA Dopiero zaczynam i chciałabym napisać makro sprawdzające czy checkbox jest zaznaczony, jeżeli nie powinno być zaznaczone na czerwono. Niestety nie wiem jak to zrobić, więc proszę o pomoc. Formatowanie warunkowe odpada.
Witam, Jak napisać makro, gdy mam do wyboru tylko jedno pole wyboru. Oznaczając je chciałabym, aby wiersz 10-12 się odkrywał, a odznaczając, żeby te wiersze się ukrywały. Nie wchodzi w grę, abym zrobiła dwa pola wyboru i przypisała do jednego opcję odkryj a do drugiego ukryj. Musi być jeden checkbox. Prośba o pomoc.
:) no rzeczywiście to rozwiąże problem tylko jednego zaznaczenia. A jak teraz zrobić pierwszą część pytania z początkowego wpisu? Makro musi wiedzieć który button jest zaznaczony i z tego samego wiersza wkleić zawartość komórki z kolumny A, wkleić do Arkusza. A1 i uruchomić inne makro.
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...
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...
Właśnie wróciłem z ogrodu (burza), przyjrzałem się formułom i usunąłem mój załącznik. Najlepiej zostać jednak przy polach wyboru. Możesz zrobić tabelkę od nowa w nowym arkuszu lub próbować usunąć nadmiar checkbox'ów makrem Sub wywal() On Error Resume Next For i = Sheets("Arkusz1").Shap... To 100 Step -1 Shapes(i).Delete...
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...
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.
Nie prościej wrzucić plik w załączniku? Jeszcze raz (mogła zmylić Cię ta pierwsza procedura). Piszesz jedno makro dla danej grupy CheckBox'ów i podpinasz je pod każdy chk w tej grupie. W makro zadeklarowana jest zmienna obiektowa (sender) i przypisanie obiektu, w którym wystąpiło zdarzenie (Application.Caller). Od liczenia "Prawd" jest CountIf (ostatnia...
Domyślam się, że dotyczy to formularza i pól wyboru. Spróbuj[syntax=vb]For Each ctrl In Me.Controls If TypeName(ctrl) = "CheckBox" Then If ctrl = True Then If i > 0 Then lst = lst & Chr(10) & ctrl.Name Else lst = ctrl.Name End If i = i + 1 End If End If Next Range("A1") = lst[/syntax]W arkuszu będzie podobnie.
Dla jednego pola nie jest to skomplikowane - działające makro to: Dla zakresu [syntax=vbscript]Sub elka() For Each c In Range("H8:H100") If c = "TAK" Then c.Offset(, -5) = True ElseIf c = "" Then c.Offset(, -5) = False End If Next End Sub[/syntax]
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]
Nie piszesz o jaką aplikację chodzi. W każdym razie w Excelu (nie znam Open Office) w przypadku "formularzowego" CheckBox'a tylko makro w kodzie arkusza...
Patrz makro, tam 2 varianty
Wstawiłem CheckBox z zakładki Formanty ActiveX Dodano po 4 Co to znaczy podlinkowanie do sąsiednich komórek?
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
Teoretycznie mogę to zrobić przez formatowanie warunkowe ale jak pisałem wcześniej jest to tylko część bardziej złożonego makra. Makro to jest podpięte do formularza pod kontrolkę CheckBox, więc chwilowo formatowanie warunkowe odpada Dodano po 53 spróbuj tak (piszę bez sprawdzania - ale powinno działać) zmień linię kodu "With ..." na: Kod Visual Basic...
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...
Witam, chciałam napisać makro, które po zaznaczeniu odpowiedniego okienka ukryję bądź odkryje odpowiednie kolumny w następnym skoroszycie. Próbowałam jak poniżej, jednak wyrzuca mi błąd zaznaczająć podkreśloną linijkę. Jak inaczej odwołać się do innej zakładki? Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Sheets("sheet2").Columns("G:G").Select.....
Całego arkusza nie dam rady wrzucić musiałbym tworzyć cały na nowo. Generalnie całe makro wygląda tak: [syntax=vbscript]Sub MarkCheckBoxes() Dim chk As CheckBox Dim ws As Worksheet Set ws = ActiveSheet For Each chk In ws.CheckBoxes If ws.Rows("149") = "Mandatory" Then If ws.Range("C" & chk.TopLeftCell.Row).Value = vbNullString Then chk.Value = False...
Najlepiej pętlą For. Musisz ustalić ilość kroków, wiersz początkowy itd. Np Jest 10 arkuszy, pierwszy wiersz Nr2, kolumna komórek łączących C. Nie do końca jest to miły sposób. Przy stałej, niewielkiej ilości arkuszy da się jeszcze przeżyć. W przypadku zmieniającej się dynamicznie ich liczby czyż nie prościej jest sprawdzić ile CheckBox-ów jest na...
Kłopot jest w tym przypadku gdyż błąd można zweryfikować widząc cały przykład w załączniku (ze zbudowanym oknem gdzie są te kontrolki i tym "Frame") Wcześniej nie używałeś "Frame" ... If Controls("txt" & k & "v").Value = "" Then ... Więc czemu teraz chcesz to użyć? A jeżeli już, to sprawdź czy rzeczywiście Frame nazywa się "Frame" a nie np. "Moja_Ramka1"...
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...
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...
Witam serdecznie!! Zaczynam zabawę z VBA i utknęłam na tworzeniu formularza. Próbuję rozwiązać zadanie, w którym trzeba utworzyć skoroszyt o własnościach: 1.zawiera okno UserForm z co najmniej 4 przyciskami lub polami wyboru, w którym przynajmniej 2 mają przypisane makro. 2. temat okna: formularz zgłoszeniowy na studia podyplomowe(wykształcenie, wiek...
Witam Posiadam dwa Checkboxy z przypisanymi makrami, makro przy jednym przycisku jest zależne od wartości True, False drugiego przycisku. Obecnie wszystko działa jeżeli najpierw włączę "nadrzędny" przycisk a później drugi. W przypadkach gdy najpierw włączę "podrzędny" przycisk lub wyłączę przycisk "nadrzędny" w momencie gdy oba mają wartość TRUE, niestety...
Chciałbym odświeżyć temat edycji plików CSV. Makro jest już gotowe, przygotowałem interfejs graficzny w oddzielnym pliku xls. Teraz po wybraniu miejsca przechowywania plików i miejsca makro powinno otwierać wybrany plik csv, obrabiać i zapisywać we wskazanym miejscu, ale niestety nie obrabia go - wyskakuje Run-time error 91. Poniżej zamieszczam kod:...
Ten pomysł z kopiowaniem każdego wiersza osobno jest niezbyt trafny, chyba że kolejność wierszy ma być za każdym razem inna. Ale i tak lepiej zamiast przycisków zastosować pola wyboru, żeby było widać, które wiersze zostały wybrane do skopiowania (lub już skopiowane). Teraz można się łatwo pomylić i albo skopiować któryś wiersz dwa razy, albo o którymś...
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...
Potrzebuje zrobić to co teraz wrzucilem OK, jeśli sam będziesz to obsługiwał to Twoja wola i Twój wybór. Odnośnie przedstawionego na rysunku wyliczenia to musisz zmienić kod dla przycisku "Oblicz" np na taki: [syntax=vbscript]Private Sub CommandButton5_Click() Dim a As Integer Dim b As Integer Dim b As Integer If TextBox15.Value > 0 Then If TextBox15.Value...
Cała korekta to skopiowanie formuły lub wyczyszczenie komórek w kolumnie "i" Za mało testowałeś... A kto Ci będzie dopisywał do makra jeśli dołożysz checkbox'a? Zrób sobie na początek dwa: wszystkie, żaden (z wzajemnym "odptaszkowaniem"). Jeżeli sobie poradzisz, pomogę napisać c.d.
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.
Oczywiście, że można. Wszystko co jest możliwe do zrobienia ręcznie, z menu, jest także do zrobienia przy pomocy makra. Trzeba się pobawić. Możesz wstawić do arkusza lub menu programu przycisk/przełacznik odblokuj/zablokuj, do którego przypiszesz makro, które będzie przed rozpoczęciem wpisywania danych odblokowywało zadanych przez Ciebie obszar arkusza,...
Witam Mamy pytanie odnoście usuwania makra przez inne makro. Od początku. Mam poniższy kod który oczywiście działa popranie i robi dokładnie to co ma robić, czyli: kod na początku filtruje i tworzy pewną ankietę w arkuszu. Następnie arkusz z ankietą zostaje skopiowany i wklejona do nowego pliku Excel, następnie zapisany pod konkretną nazwą we wskazanym...
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...
Do pojedynczego wyboru są te okrągłe właśnie. Jeśli chcesz zasymulować na kwadratowych checkboxach takie zachowanie to trzeba napisać proste makro w VBA, które podłączysz do każdego z tych przycisków. Kod musi sprawdzać, czy przycisk został wciśnięty i jeśli tak - ustawiać wartość wszystkich pozostałych na wyczyszczone. Według mnie prościej podmienić...
(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...
Chowane lub grupowane wiersze A mógłbyś wskazać logikę (sens :?: ) tego ukrywania fragmentów formularza wypełnianego tylko przez managerów :?: Dodatkowo musisz zaplanować "wyzwalacz" uruchamiania takiej akcji makra (przycisk, zdarzenie, wartość jakiegoś checkboxa lub wartość jakiejś komórki itp). Zrobiłeś fajny formularz, uzbrojony w grupowania, formatowanie...
Chyba pomieszałam. Niestety wcale nie "Chyba" :cry: , ale na pewno :D Komórka C5 nie jest powiązana z żadnym boxem umożliwiającym jakikolwiek wybór :!: Jeżeli cokolwiek wpiszesz do komórki C5 :arrow: zaczyna działać Twoje makro (oderwane zupełnie od arkusza Słownik :!: i tamtych tabelek), lecz po wybraniu checkboxa (ze względu na kod: If TrybEdycji...
Witam. W arkuszu mam utworzone makro do odznaczania pola wyboru Sub czyszczenie_komórek() Worksheets("wydatki").CheckBoxes.Value = False End Sub Problem pojawia się gdy chcę zmienić nazwę arkusza (lub wykonać jego kopię - co również powoduje zmianę nazwy). Wówczas makro przestaje działać, bo w kodzie makra jest odwołanie do nazwy arkusza, która przecież...
cześć, poszukuje usprawnienia w makrze, które pozwoli mi przeszukać cały folder oraz znajdujące się w nim podfoldery w celu wyszukania i skopiowania danych. Poniżej to co udało się do tej pory wymyślić wraz z plikiem. Nie wiem jak to usprawnić. [syntax=vbscript]Private Sub CommandButton1_Click() Application.ScreenUpdating = False ost_w = Range("A" &...
Hej, mam problem z hasłem na pliku excel. Mam makro zakładające hasło Sheets("DATA").Select ActiveSheet.Unprotect "HASŁO" teraz chciałabym zezwolić na odblokowanie edycji arkusza - mianowicie zmiany kolorów, czy ukrywania kolumn. Gdy ręcznie zakładam hasło na pliku mogę w checkboxach zezwolić na edycję danych i określi zakres, które mogą być edytowane...
A jaki sposób mogę "masowo" stworzyć chekboxa dla 1200 pozycji Możesz spróbować tak: zaznaczyć odpowiedni zakres w kolumnie dla checkboxów, a następnie uruchomić makro: [syntax=vbscript]Sub InsertCheckBoxes() Dim Rng As Range Dim WorkRng As Range Dim Ws As Worksheet On Error Resume Next xTitleId = "Excel" Set WorkRng = Application.Selection Set WorkRng...
Mam makro po którego uruchomieniu wyświetla się forma z checklistą, polem umożliwiającym wpisanie tekstu, kilka optionbuttonów i 66 checkboxów po kliknięciu zapisz wszystkie dane zapisywane są do odpowiednich komórek, jednak jeśli, któreś z pól, lub żadne nie zostanie uzupełnione i tak można zapisać w tym wypadku bezwartościową informację. Takie działanie...
- Administrator - Kierownik (z ograniczonymi) - Pracownik (z ograniczonymi) - Stażysta (z ograniczonymi) Poza tym to nie jest ważne co gdzie jest bo oni właściwie nie sprawdzają co Ty zrobiłeś na komputerze i jak to zostawiłeś na końcu :) Ważne jest, że masz to opisane i w zrzucie. U mnie te konta były odrazu widoczne ... nawet stażysta ? Ciekawe :)...
Witam Mam formularz w którym jest 40 Checkbox'ów potem dla każdego zaznaczonego (True) jest wykonywanych kilka procedur i funkcji, dla których argumentem jest nazwa checkboxa Zrobiłem sobie pomocnicza tablicę której argumentami są nazwy chceckbox'ów jest ona wykorzystywana w kilku różnych procedurach Public TablicaCenniki(1 To 40) As String...
checkbox działa checkbox excel checkbox click
telewizor philips podłączyć wieża pompa vacum mercedes dopisanie kluczyka
Schemat podłączenia syreny alarmu Kia Cee'd ED JD CD – kolory przewodów, lokalizacja, pinout Amica okap – jak bezpiecznie czyścić panel przycisków, jakie środki stosować