Pokaż ten swój arkusz nad którym pracujesz i wyjaśnij dokładnie co chcesz uzyskać :?: Combobox służy do wygodnej prezentacji albo weryfikacji danych z arkusza Excel. Twój "kod" nie pobiera żadnych danych :D Jeśli dobrze się domyślam z czym masz problem :?: - to np w Excel 2007 wejdź w zakładkę Deweloper - włącz Tryb projektowania - otwórz Właściwości...
Różne drogi prowadzą do Rzymu Zastosowałeś jedną w VBA (jak dla mnie trochę przekombinowaną - ale działa) Ja bym to zrobił np. tak edit: Jak teraz patrze na "twoje" rozwiązanie to widzę że właściwie są tam zmieszane ze soba (przedstawione wyżej przeze mnie) dwie metody na raz, co jeszcze bardziej przekonuje mnie w stwierdzeniu "przekombinowane".
Dzięki za odpowiedź. Próbuje to jakoś rozwiązać, ale cały czas stoję w miejscu. Oczywiście nie oczekuję gotowego rozwiązania, ale mógłbyś podrzucić jeszcze jakieś podpowiedzi? Trochę nie bardzo rozumiem sformułowanie: "Robisz pętlę po komórkach pierwszego arkusza". Jakiego polecenia powinienem przy tym użyć? I w jaki sposób przeszukać zakres komórek...
Można jeszcze inaczej to zrobić. Najpierw wpisanie do ComboBox nazw zakresów komórek w arkuszu:[syntax=vb] Private Sub UserForm_Initialize() Dim zakres As Name For Each zakres In ActiveWorkbook.Names ComboBox1.AddItem zakres.Name Next If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0 End Sub [/syntax] Po wywołaniu zdarzenia Change ComboBox1 pokazane...
Witam, Jestem początkująca w programowaniu VBA w Excelu. Mam problem z okodowaniem Comboboxa tak aby w zależności od wyboru z listy kopiował mi zakres komórek z innego Arkusza do drugiego w konkretnie wskazane miejsce, W załączniku dołączam plik .xlsm z moim przykładem. Chciałabym żeby w arkuszu MP HOLT-WINTERS po wyborze z ComboBoxa: np. "V"Excel kopiował...
Źródłem jest zakres komórek z arkusza.
Witam, w arkuszu mam 150 list rozwijanych typu combobox Makro ma wybrać 5 z nich i załadować do nich dane Listy mają nazwy Lista_1_01, Lista_2_01, Lista_3_01, Lista_4_01, Lista_5_01 z tym że ostatnie 2 cyfry zmieniają się od 01 do 30 i są brane z komórki F1 z tego względu że nie potrafię zrobić tego inaczej, napisałem coś takiego: [syntax=vbscript]Sub...
Jeśli chcesz wstawić formułę do komórki, to coś takiego: [syntax=vb]Range("A1").Formula = "=SUMIF(K:K,""" & ComboBox1.Value & """,AH:AH)"[/syntax] Jeżli chcesz użyć tej funkcji w VBA, to w ten sposób: [syntax=vb]suma = WorksheetFunction.SumIf(Range("K:K"), ComboBox1.Value, Range("AH:AH"))[/syntax] (chyba że potrafisz ustalić zakres sumowanych komórek...
W prosty sposób robi się to w okienku ListBox. Poniżej opiszę krok po kroku jak to zrobić ( opis dotyczy Excel 2003 ) 1. stworzyć listę , w kolumnie A numer sali , w kolumnie B opis sali 2. utworzyć na arkuszu ( tym samym co spis ) okienko ListBox ( menu Narzędzia/ Dostosuj, wybrać w zakładce Paski narzędzi, Przybornik formantów ) 3. z paska Przybornik...
Kontynuując, pola tekstowe należałoby "uporządkować numerycznie" zaś jedną etykietę (data) nazewniczo, np. tak: [syntax=txt]lab_dzis => 'Etykieta z wyświetlaną "dzisiejszą datą" TextBox1 => 'Nazwisko TextBox2 => 'Ulica TextBox3 => 'Kod pocztowy TextBox4 => 'Miejscowość TextBox5 => 'PESEL TextBox6 => 'NIP TextBox7 => 'Telefon TextBox8 => 'Pocztel TextBox9...
Powinieneś dodać własny skoroszyt jako przykład, co chcesz osiągnąć, bo w Excelu różne drogi prowadzą do celu. W każdym razie jeśli używasz funkcji ADR.POŚR, to jej pierwszy (a często jedyny) argument musi być w cudzysłowie - jeśli oznacza adres, z którego chcemy pobrać dane. Natomiast bez cudzysłowu - jeśli to jest komórka, która dopiero zawiera potrzebny...
Całkiem prosto (przynajmniej dl kogoś kto zna trochę VBA): - stworzenie comboboxa z nagłówków kolumn to pętla For Each po zakresie z danymi i dodawanie poleceniem AddItem przy aktywacji formy: [syntax=vb]Private Sub UserForm_Activate() ComboBox2.Clear For Each c In Worksheets("Baza").Range("B1:F1") ComboBox2.AddItem c Next c End Sub[/syntax] - zakładając,...
Dzięki. Jeśli chodzi o nazwy zakresów to wszystkie je łączy to że zaczynają się od słowa 'nam' a dalej to są nazwiska a to co podałem powyżej to tylko przykład. Pomyślałem o innym rozwiązaniu. Dodałem okno UserForm które będzie mi służyć do ustawiania opcji i między innymi dodałem okno ComboBox i mam pytanie, jakim kodem po inicjalizacji okna UserForm...
Witam jak to zrobić. Aby do każdej z aktywowanych komórek w Excel w wybranym zakresie przypisać listę w której to byłoby do wyboru z rozwijanej listy np: - "" - "osobisty" wygląda to tak jakby Filtr lecz nie jest to filtr Excel. http://obrazki.elektroda.pl/9899559500_1... przy czym nie we wszystkich komórkach miałaby być jedna i ta sama...
Witam, Załączam przykładowy plik z danymi, co prawda tych kolumn będzie więcej ale mnie interesuje żeby użytkownik mógł wybrać dowolny arkusz (miesiąc) i porównać względem nr indeksów dane z kolumny punkty. Czyli sprawdzam np. czy w lutym dla danego numeru indeksu zmieniła się liczba punktów w stosunku do miesiąca np. stycznia i w nowej kolumnie wpisuje...
Hej :) Jestem zielony jak pietruszka w temacie używania comboboxa oraz VBA, chociaż się uczę. Udało mi się napisać VBA makro automatycznie chroniące skoroszyt przed edycją. Mam jednakże problem z obsługą Combobox. mianowicie: 1. ...Jak sprawić by po wpisaniu/wybraniu wartości z listy móc zatwierdzić pozycję Enter lub Tab, by kursor przeszedł do następnej...
heh teraz to już całkiem namieszałeś w tym kodzie jeżeli masz userform-a w nim combobox1 i w kodzie to co podałem wyżej to przy uruchomieniu userform-a w combobox1 1 czyści go 2 wyświetla nagłówek to co masz od aktywnej komórki 5 kolumn dalej 3 ładuje listę z zakresu d2:d7 no chyba że chodzi ci o coś innego jeżeli combo ma ci dodatkowo zmienić tą komórkę...
1. Klawisze "blokowane" są w wyniku działania kodu procedury: cmbGra3 ' nie ma zogniskowania (focus), to w/w procedura nie działa, jeśli ma to ' Cancel = True ' blokuje możliwość opuszczenia ' Combobox '. 2. W procedurze zdarzeniowej ' Private Sub cmbGra3_Change ', kod: Private Sub cmbGra3_Change ' - gdy na pytanie: "Czy chcesz dodac nowa Gre" odpowiadasz...
Można. Zmień w connection string HDR=No, i odwołuj się do komórki (lub zakresu komórek) tak: [syntax=csharp]string selectString = "SELECT * FROM [Arkusz1$G54:G54]";[/syntax] PS. Jak możesz - kliknij "pomógł" :)
Użyłem Select Case, żeby nie zapisać pół strony instrukcją IfThenElse. Teraz jaśniej? Dobra, już tłumaczę. 1. Takie (zgodne z VB) a nie inne pole kombi, bo zdarzenie "Przy zmianie" reaguje tylko na zmianę wartości. Gdybyś chciał wpisać te same oceny raz za razem, to zmiana by nie nastąpiła. Należało użyć innego zdarzenia, o które kombi formularza jest...
Jeżeli "Kierownik" to zakres paru komórek które mają być wyświetlane w comboboxie to wystarczy kod: [syntax=vb]cmbSzef1.RowSource = "Kierownik"[/syntax] bez żadnych zmiennych i pętli.
Witajcie, mam UserForm z kilkoma przyciskami wyboru. Po dokonaniu wyboru użytkownik musi przejść do konkretnej komórki w Arkuszu. Mam pętle, mam przyciski i niby na pojedynczym przykładzie działa jak niżej: [syntax=vbnet] Sub Idz_O() Dim x As Integer x = 20 Application.Goto ActiveWorkbook.Sheets("A").Cells(ActiveW... 5).Value...
Witam, chciałbym stworzyć wyszukiwarkę danych w VBA, napotykam jednak problem w tworzeniu formuły For Next. CELL , przez to procedura nie działa. Chciałbym też wiedzieć, dlaczego nie działa zakres Range("A2: [w, k]")wpisywany i próbowany wielokrotnie: Range("A2": [w, k]) itd. więc to nie jest kwestia zapisu. Proszę o pomoc :)
... wartosc2 = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N") '14 wpisów Te wartości trzeba wprowadzać ręcznie ? Mam ich w bazie ponad 30 - numerów oraz nazw ... Przecież miał to być tylko przykład :D ... pewnie że nie trzeba ... :D Do przejrzenia zmiany w " ini ", " dopisz_do_bazy " oraz " usun_z_bazy " 828986 :D Dla wielu...
Projektując formę, we właściwościach comboboxa masz RowSource. Możesz je ustawić tak, aby wskazywało źródło danych w arkuszu, np. [syntax=vb]Sheet2!A1:A7[/syntax] Jeżeli zakres może się zmieniać dynamicznie, wtedy np. w zdarzeniu Initialize formy wstawiasz: [syntax=vb]Private Sub UserForm_Initialize() ost_w = Sheet2.Cells(Sheet2.Rows.Count, 1).End(xlUp).Row...
Dzień dobry. To co wcześniej Panu przygotowałem sprawdza sam fakt istnienia wpisu (czy już taka wartość się pojawiła) a nie jego pozycji i wartości jaką ma wpis i sąsiednia komórka. Proponuję tak: [syntax=vb]Dim mozna_dodac As Boolean: mozna_dodac = True For Each k In Sheets("Rejestr").Range("A:A") 'tutaj wybrany zakres z adresami If IsEmpty(k) Then...
Witajcie, mam UserForm pod który podłączam listę opcji wyboru, po której wybraniu potrzebuję: 1) przejść makrami do opcji exportu do Pdf gdzie w kol. A Arkusza "ID" mam nazwę zakresu, a w kol. C i D mam nr stron do exportu tego zakresu - na to wstępny pomysł mam jak niżej ale nie działa. 2) przejść makrami do dynamicznie zmieniających się zakresów które...
zakres komórek excel zakres komórek zakres komórek excel
dwufunkcyjny ustawić zasilanie wycieraczki woltomierz schemat analogowy
unitra wymiana tranzystorów niskoszumne ładowarka makita dc18rc schemat
Mało rozlana matryca LCD/OLED – czy wyciek ciekłych kryształów w Samsung, LG, Dell jest groźny? Mercedes W213 200d 2019 - Piny CAN w radarze przednim