Witam Może coś takiego [syntax=vbnet]Private Sub ComboBox1_Change() obszar = "B1:T" & Cells(Rows.Count, "B").End(xlUp).Row TextBox1.Text = Application.VLookup(ComboBox1.Value, Sheets("Arkusz1").Range(obszar), 2, 0) TextBox2.Text = Application.VLookup(ComboBox1.Value, Sheets("Arkusz1").Range(obszar), 3, 0) TextBox3.Text = Application.VLookup(ComboBox1.Value,...
OblKierownik1.MatchRequired = True - to nie makrem, to we wlasciwosciach kombo(proektowanie) .ControlSource - wlasciwosci - ma byc adres komorki na arkushe - u mnia dziala
Możesz w właściwościach combo wybrać style i 2 [syntax=vbscript]Me.ComboBox1.Style = 2[/syntax]
Można tak: [syntax=vb]Sub AddItem(ByVal sItem As String, ByRef cmbBox As ComboBox) ' adds item retaining alphabetic order Dim l As Long For l = 0 To cmbBox.ListCount - 1 Select Case StrComp(cmbBox.list(l), sItem, vbTextCompare) Case 0: Exit Sub ' already in the combobox Case 1 cmbBox.AddItem sItem, l Exit Sub End Select Next l cmbBox.AddItem sItem End...
Spróbuj poprawność danych>lista (pobierana z zakresu lub wpisana ręcznie).
A nie byłoby prościej utworzyć listę przy Initialize na podstawie wartości z combo UserrForm1 ? Podmień procedurę w UserForm2 na [syntax=vb]Private Sub UserForm_Initialize() firma = UserForm1.ComboBox1.Value wrs = 2 ComboBox1.Clear With Sheets("Arkusz2") Do While .Cells(wrs, 4) <> Empty If .Cells(wrs, 4) = firma Then ComboBox1.AddItem .Cells(wrs,...
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...
[syntax=vb]ListaArray = Array(RodzajLiniiLista, RodzajDodReaktLista)[/syntax] Elementy tej tablicy są typu variant, którym nie nadano wcześniej wartości, stąd mają wartość null. Kolega pewnie googla i wkleja, prawda?
ale jestem głupi Nie myśl w ten sposób. Parę(naście/dziesiąt(już?)) lat temu zmieniałem format daty przy ### i dopiero po kilku dniach zaskoczyłem ;)
Nie wystarczy zwykłe przypisanie w kodzie przycisku? Zdaje się, że chodzi też o wypełnienie kolejnych pozycji. Spróbuj: [syntax=vb]Private Sub CommandButton1_Click() ostW = Range("B5").End(xlDown).Row If ostW > 19 Then ostW = 5 Cells(ostW + 1, 2)= ComboBox5.Text Cells(ostW + 1, 3)= val(Wartosc) End Sub[/syntax]
Prawdopodobnie nie zawsze masz aktywny właściwy arkusz. Uzupełnij odwołanie Np Me.ComboBox9.RowSource = Sheets("Arkusz1").Rang... 21), Cells(33, 21)).Address ' data
Musisz oprogramować ComboBox. Jeśli zmiana działa, to wynik z Combo zapisz do komórki "pod nim" i masz zdarzenie WorksheetChange. [syntax=vbscript]Private Sub ComboBox1_Change() Range("F11") = ComboBox1.Text End Sub[/syntax] Problem w tym, że dla każdego musi być osobna procedura. A dlaczego nie poprawność/lista? Działa przecież...
Przepraszam za pomylenie kontrolek oto przykład z Combobox-ami
A czemu nie masz tam .BackColor?
:) ... sformatować ... bowiem to co widzisz jako format godzinowy w arkuszu, to tylko zwykła excelowa ściema. W komórce jest właśnie to, co ci się wyświetla w liście kombinowanej ... :) Np.: [syntax=vbscript]Option Explicit Private Sub UserForm_Initialize() Dim tbl(), indeks With Arkusz5 'tbl = .Range(Cells(10, 4), Cells(10, 15)).Value 'lub tbl = .Range("d10:o10").Value...
Tak. Możesz nawet nie pisać: ComboBox4.RowSource = "Listka" a we właściwościach ComboBox4 (okienko combobox'a na Form) we "właściwości" RowSource wpisać "Listka" i też zadziała. Warunek: taka nazwa musi być w arkuszu.
Nie widziałem wcześniej tych dwóch arkuszy :) W "List" gubisz tablicę. W B2 masz tzw adres względny 'Arkusz4!D5:K113' i po przeciągnięciu w dół tablica zmienia rozmiar ("jedzie" w dół). Powinien być mieszany: 'Arkusz4!D$5:K$113' Zakres dla pola kombi możesz zastosować podobnie jak dla poprawności danych, posługując się zdefiniowaną nazwą (NewList) http://obrazki.elektroda.pl/3203590600_1...
Jeśli chodzi o foto. Źle jest pobierana nazwa pliku. Zakładając, że nazwy obrazków=nazwisko pracownika (a tak z Twojego kodu wychodzi), to [syntax=vb]Private Sub lstFiltr_Change() Dim i As Long, a As Long, ark As Worksheet Dim sciezka As String, nazwa As String Set ark = Sheets("Lista pracowników") a = 0 For i = 0 To lstFiltr.ListCount - 1 If lstFiltr.Selected(i)...
zobacz to [syntax=vb]Private Sub UserForm_Initialize() ost = Worksheets("Kolor").Cells(Rows.Count, 1).End(xlUp).Row userform.SMkolor.rowsource = "Kolor!A1:A" & ost End Sub[/syntax]
ad.1 Przy zdarzeniu Change ComboBox'a sprawdzany jest każdy znak wprowadzany z klawiatury. Jeśli sprawdzany ma być tylko pierwszy, pierwszym warunkiem będzie Len(NazwaCombo.value)=1, następnie porównujesz (w pętli) z listą. Najprościej wstawić polecenie opuszczenia pętli przy pozytywnym wyniku porównania, a warunkiem kontynuowania kodu zrobić licznik_pętli...
ComboBox ma indywidualne zdarzenia i właściwości. Spróbuj oprogramować przy zmianie (set.focus lub range().select). Rozwinąć bez myszy można stosując Alt+DownArrow. W podanym przykładzie jednak, zamiast ComboBox'ów, o wiele łatwiej byłoby zastosować poprawność danych przez listę. Miałbyś większe możliwości "skakania" po arkuszu przy Workscheet.Change.
Witam np tak [syntax=vbscript] Range("B1") = Me.ComboBox1.Value If OptionButton1.Value = True Then Range("B2").Value = "tak" [/syntax]
Listy dla pola kombi nie sortuj poza arkuszem, nie pozbierasz się z indeksami. Nie rozumiem natomiast dlaczego uparłeś się biegać przez ogródek, jeśli do furtki dwa kroki...
Inne rozwiązanie [syntax=vbscript]Private Sub ComboBox1_Change() ComboBox1.Value = Application.Text(ComboBox1.Value, "hh:mm") End Sub[/syntax]
Analogicznie [syntax=vb] For Each c In ActiveSheet.Range("C1:C22") ' przeszukiwanie If c = cc2.Value And Range("A" & c.Row)= cc1.Value Then wiersz = c.Row Exit For End If Next c [/syntax] Edit
Wszystko działa dopóki liczby w combobox'ach mają tyle samo cyfr. To powinno Ci dać do myślenia. ComboBox-y przechowują poszczególne pozycje jako ... ciąg znaków, a nie wartości liczbowe. W swoim kodzie, zamień wartość Value , z wszystkich trzech Combo na liczbę i porównaj wtedy. Np. tak : If Val(ComboBox1.Value) < Val(ComboBox2.Value)...
Na pierwszym arkuszu umieszczamy listę Combo. Żeby wyświetlić listę arkuszy można to zrobić w makro, które ładuje listę Combo przy otwarciu skoroszytu, w obsłudze zdarzenia Workbook_Open: [syntax=vb] Option Explicit Private Sub Workbook_Open() Dim iWiersz As Integer Dim ws As Worksheet iWiersz = 1 'Utwórz listę arkuszy w pierwszym arkuszu od drugiego...
Witam, Lista jest ładowana na bieżąco, ponieważ listy filtrowane się zmieniają za każdym wpisaniem litery. Ma działać i działa tak że po wpisaniu jednej litery w Combobox2 lista się zawęża o wszystkie pozycje które taką literę posiadają i tak w kółko, aż nie wybiorę jednej pozycji z listy Combobox2. Niestety jak w kolejnym Combobox kliknę kursor aby...
dlaczego ograniczenie listy następuje dopiero po wpisaniu spacji Należy zmienić warunek porównujący stringi. Funkcja InStr szuka także wewnątrz. Np pamiętasz, że sala ma w nazwie "020" a nie pamiętasz początku. W przypadku długich ciągów metoda nie sprawdza się. Spróbuj [syntax=vb]If UCase(Left(lista(i, 2), Len(txtOpisSali.Text))) = UCase(txtOpisSali.Text)...
[syntax=vbscript]q = Formularz.ComboBox_jako a = Val(Mid(q, InStr(1, q, "=") + 1)) Range("I" & Cells(Rows.Count, "I").End(xlUp).Row + 1) = a [/syntax]
W UserForm1 wystarczy zrobić 3 proste rzeczy: 1. Aby załadować dane do comboboxa, dodaj: [syntax=vb]Private Sub UserForm_Initialize() Dim ostTowar As Long With Arkusz2 ostTowar = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 cmbTowar.RowSource = "Towary!" & Arkusz2.Range("A2:A" & ostTowar).Address End With End Sub[/syntax] 2. Aby przepisywać towar do textboxa...
To nie taki hop-siup: w VBA masz trochę ograniczoną liczbę obiektów którymi by można to wykonać w miarę prostu, więc trzeba samemu napisać dwa fragmenty kodu: jeden odpowiedzialny za wyłuskanie niepowtarzających się wartości z podanego zakresu i drugi, który je posortuje rosnąco (zakładając, że te dane mają być posortowane). Można by do tego wykorzystać...
Poniżej przykład do pierwszej zakładki. Resztę zrobisz sobie analogicznie.
[syntax=vb]ComboBox1.ListIndex[/syntax] Tylko że ListIndex zaczyna liczyć od 0 więc jeżeli chcesz poznać wiersz to : [syntax=vb]wiersz=ComboBox1.ListIndex+1[... Ale jeżeli listę pobierasz nie od pierwszego wiersza arkusza należy dodać liczbę wierszy od pierwszego do wiersza w którym zaczyna się początek listy czyli np: [syntax=vb]wiersz=ComboBox1.ListIndex+1....
Splitem go i policz. Np [syntax=vb]Private Sub CommandButton1_Click() Dim a As Double Dim b As Double Dim dr As Integer a = TextBox1.Value b = TextBox2.Value liczba = Split(UserForm1.ComboBox1.Value, ",") dr = Len(liczba(1)) Me.Label5.Caption = Round(a + b, dr) End Sub[/syntax]
Jest przypisanie, jest wyszukiwanie wolnego wiersza, brakuje tylko instrukcji warunkowej. Napisz najpierw samą instrukcję, następnie podstaw wyszukiwanie i przypisanie. Przeanalizuj: [syntax=vb]If usfdiplomaden.ComboBoxprefix3.Value = "Frau" Then MsgBox "Kobieta, czyli ""in""" 'sprawdzimy czy dobrze. Później linię usuniemy 'wyszukanie1 'przypisanie1...
Pokaż jak "załadowany" masz cboCostCenter.Value (i jak wartości) to [syntax=vbscript]Val(cboCostCenter.Value...
Czy zamiast poniższego : Worksheets("Arkusz2").OLEObjects("ComboB... = "Nazwa_firmy3" można wstawić jakiś inny kod Można tu wstawiać każdy inny kod :idea: :D ale zawsze musisz wiedzieć co wstawiasz :?: i w jakim celu :?: :D Obecnie - do nie wiadomo w jakim celu stworzonego ComboBoxa :cry: z listą firm pobraną z zakresu: 'Robocze':F6:F34...
Dzień dobry, Przygotowałem, a raczej zaadaptowałem na podstawie opisanych przykładów kod pod swój arkusz excela. Mam 2 problemy: 1. Potrzebuję w arkuszu "material cost" z którego pobierane są dane dopisywać pozycje - w związku z tym potrzebuję aby combo odświeżało sobie dane przy otwarciu (lub jakiś trigger do odświerzania po wpisaniu nowych danych)...
Zrobic gotowy dlugo potrwa, tym bardziej ze cala logika nieznana. Zobacz w tym przykladzie, zwlaszcza wlasciwosci BoundColumn, RowSource dla ComboBox i ControlSource dla wszystkiego i kombinuj.
Zrobiłem na formularzu, bo Excel niewłaściwie pokazywał Combobox po użyciu AddItem.
Popatrz sobie tutaj [url=http://www.contextures.com/Excel-VB... W skrócie: - dodawanie - Me.MojeKombi.AddItem - usuwanie - Me.MojeKombi.RemoveItem
Po zmieszaniu kodów wyszło mi: [syntax=vbscript]Private Sub Workbook_Open() For x = 1 To Cells(1, Columns.Count).End(xlToLeft).Column Sheets(1).ComboBox1.AddItem Cells(1, x) Next End Sub Private Sub ComboBox1_Change() Cells(Rows.Count, Application.Match(ComboBox1, Rows(1), 0)).End(xlUp)(2).Select End Sub [/syntax] Temat na razie wisi w powietrzu. Autor...
W końcu uporałem się z problemami z punktu pierwszego i dostosowałem do własnych potrzeb. Pozostał punkt drugi czyli : Po zamknięciu UserForm i kliknięciu w przycisk "Wypełnij", dane z arkusza "Zestawienie przesyłek" wypełniały by się w szablonie w arkuszu "Opis szkody". W ilości takiej ile jest wprowadzonych przesyłek w arkuszu "Zestawienie przesyłek"....
Ponieważ dane które pobierasz masz rozdzielone tabulatorem, wystarczy taka prosta przeróbka: [syntax=vb]Private Sub CommandButton1_Click() ComboBox1.Clear ComboBox2.Clear Dim InFile As Integer InFile = FreeFile plik_txt = Application.GetOpenFilename("Pliki txt(*.txt),*txt") Open plik_txt For Input As InFile While Not EOF(InFile) Line Input #InFile,...
Zapewne masz już bałagan z nazwami... Sprawdź (Name) we właściwościach ComboBox.
Tak ma pan racje. Jesteś na forum więc, nie musisz używać zwrotów grzecznościowych (chyba, że adamas_nt ma inne zdanie w tym zakresie, ale miałem już kiedyś konto na elektrodzie i nie spodziewał bym się tego po Nim :D ). udostepniłem tylko tę część kodu. Właściwie to nic nie udostępniasz... Cały twój kod można zastąpić wpisem: [syntax=vb]'wczytuje...
Nigdzie na forum nie mogę znaleźć takiego przykładu. Stwórz go sama. Nagraj makro wyszukiwania i pod argument 'What:=' podstaw nazwę pola... Odnośnie wyszukiwarki forum: 1. "excel vba combobox" - 28 wyników 2. "excel vba wyszukiwanie " - 27 wyników Jest więc w czym przebierać.
cześć, mam do Was wielką prośbę, ponieważ nie wiem jak do końca zrobić aby w combbox przypisać wartości z arkusza poza opcją Source: =Arkusz1!D8:D25 Czy istnieje aby przypisać takie wartości jakoś inaczej i pomijane były wiersze puste ? Czy ewentualnie można zrobić tak, aby dane wyświetlane w liście combbox były od najmniejszej do największej, ale żeby...
Zdaje się, że próbujesz oprogramować nie to zdarzenie pola kombi. Interesuje nas zmiana wartości w polu, nie kliknięcie w nie. W Twoim przykładzie Nr indeksu pasuje do tabeli, z której pobierasz dane (RowSouce), więc nie ma problemu z przypisaniem i tak zrobiłem w załączonym przykładzie. Zwróć uwagę na deklarację zmiennej publicznej i przypisywanie...
Tak Public Uas As String W podpowiedzi istnieje możliwość wyboru ComboBox1.Value the default property of a combobox is the value property
Zrobiłem pewien plik, który jak się uruchomi wyskakuje okno UserForm z miejscami do uzupełnienia arkusza. Część tekstu wpisuje się w TextBox'y a część wybiera z list ComboBox'ów. Problem pojawia się wtedy gdy kliknę na listę ComboBox, Excel się zawiesza i bez zamknięcia z poziomu menadżera urządzeń nic się nie poradzi. Nie wiem co jest nie tak?
Podmień ComboBox na ListBox...
Zależy jakie pole. Zacznij od nagrania makra wstawiania obiektu i coś już będzie wiadomo.
Czy jest możliwe aby w liście combobox 'SIEC' były nazwy wszystkich arkuszy oprócz START i BAZA Nie mogę sobie z tym poradzić. Jak zrobić aby po dodaniu nowego arkusza znalazły się tam nagłówki z arkusza BAZA od B1 do G1 Zapis danych do arkusza BAZA (wszystkie) i odpowiednio do tego arkusza który zostanie wybrany w Combobox -SIEC. Znalazłem podobny...
Witajcie. Mam w excelu na formatce combobox który przez RowSource zaciąga jakiś zakres danych np (A2:C40). Na rozwijanej liście combo wyświetlam dane z kolumny "A" wspomnianego zakresu. Jak w polu tekstowym comboboxa zaczynam coś wpisywać pojawiają się sugestie/podpowiedzi zaczerpnięte z listy rozwijanej combobox. Jak zrobić aby podczas wpisywania w...
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,...
jak zrobić by po wyborze numeru zamówienia w comboboxie i wpisaniu ilości sztuk w textboxie właśnie o tą wartości powiększają się ilość w komórce wiersza w którym jest zamówienie wybrane z comboboxa Zrób powiązane z tym textboxem i comboboxem makro typu Private Sub TextBox1_Change() , które będzie realizowała w arkuszu zmiany ilości :D
Witam, Chciałbym się dowiedzieć, czy istnieje jakiś sposób, aby po anulowaniu zmian w ComboBox (BeforeUpdate wybiera Cancel) omawiany ComboBox powracał do wyświetlania indeksu wybranego przed próbą dokonania zmiany?
witam mam problem z odpowiednim wyświetleniem danych w okienku combobox. Chciałbym żeby był jednakowy tabulator, czyli kolumna pod kolumną. Pobieram dane z bazy i wyświetlam je z comboboxie. .AddItem rst![Kategoria] & rst![Typ, nr katalogowy] rst.MoveNext Wiem że można to podzielić BoundColumn. Ale nie wiem jak zrobić żeby była kolumna pod kolumną....
dzięki , pomogło :) pozdrawiam
Bez VBA raczej się nie da. Jeśli mowa o VBA, ComboBox ma tę właściwość. W przykładzie uForm uruchamiany przez podwójne kliknięcie. Możesz wybrać z listy lub wpisując pierwsze znaki. Zatwierdzasz Enter'em. Spróbuj, może to jest to...
W załączniku przykład dla kolumny D. Użyłem pól kombi ActiveX, zwróć uwagę na ich właściwości. Kod jest prosty, więc nie powinno być kłopotów z adaptacją dla kolejnych ComboBox'ów.
Witam. Jeżeli wartość w polu ComboBox będzie pusta, w jaki sposób przypisać domyślny wydruk jednej kartki? If Me.Arkusz1 = True Then ThisWorkbook.Sheets("Arkusz1&qu... Copies:=ComboBox End If
A nie lepiej użyć deklaracji tablicowej typu Combobox(x).value = 123 ? Wtedy możesz ogarniać to w pętli :D
(at)maciejgonet Zwykła literówka podczas pisania postu :) Dołączam plik. Po kliknięciu w przycisk Szukaj pokaże się forma, trzeba wybrać nazwisko i imię z ComboBox i znów kliknąć Szukaj. Pozdrawiam
Nic z tego. Chodzi zapewne o "formularzowe" w arkuszu. Nie wykorzystasz komórki z indeksem pola kombi dla obu sposobów. Jeśli wpiszesz tam formułę, to przy ręcznym wyborze (we wtorek) zostanie zastąpiona indeksem. Najprościej byłoby wstawić ComboBox'y ActiveX i oprogramować...
Dziękuję ! Działa ! :) a co w momencie kiedy chcę zrobić to samo tylko, że z Label ? Jeszcze jedno pytanie, jak dodać pozycję (chodzi mi o items) w ComboBox ?
Zmieniłam kod ale nadal nie działa, w załączeniu przykład wraz z kodem
Poniżej bez definiowania listy. [syntax=vbscript]Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 32 Then Set l = Sheets("Lista") If IsNumeric(ComboBox1) Then l.Range("A:A").AutoFilter Field:=1, Criteria1:=ComboBox1 Else l.Range("A:A").AutoFilter Field:=1, Criteria1:="=**" & RTrim(ComboBox1) & "**" End If ComboBox1.Clear...
Ja bym sprawdził DateTime.Month z innym DateTime.Month.
no i wszystko jasne ja to próbowałem na już utworzonym wcześniej arkuszu gdzie to x było nie przypisane, a po zmianie i tworzeniu od nowa wszystkich arkuszy czyli magazynów jest ok:) Ok kalendarz później :) Dodano po 3 jak zrobić żeby wszystkie arkusze tylko o nazwie daty formacie dd.mm.rrrr zostały załadowane do combobox??
I cóż? Nikt nie ma pomysłu jakby to można fajnie zautomatyzować?
Widzę, że nie bardzo lubisz makra ;) a wystarczy: 1. makro z WorkbookOpen powtórzyć przy WorksheetActivate (aktualizacja listy Combobox''a). 2. Usunąć instrukcje warunkowe dot. producenta Listę kolorów modyfikujesz w arkuszu "Opcje". Musi być "ciurkiem" (bez dziur). Edit 20:17 - zmieniłem załącznik (Clear brakowało przy Activate)
Coś mi się kojarzy z tymi salami, ale kiedy to było... W każdym razie: w załączniku masz formularz z filtrem 2-poziomowym (opcjonalnie). Co prawda to typowa książka telefoniczna, ale zrobiona na tej samej podstawie.
W jaki sposób ładujesz dane do combobox? Podaj więcej info.
A może jeszcze byś napisał czy robisz winforma czy może w Excelu coś skubiesz... ogólnie zdefiniować ilość dni możesz tak... [syntax=vbnet] dim Next100Day As Date = DateAdd(DateInterval.Day, 100, DateTime.Now) [/syntax] to sto dni do przodu z minusem będzie do tyłu, możesz użyć również miesięcy lub lat... [syntax=vbnet] dim Next2Month As Date = DateAdd(DateInterval.Month,...
Wypróbuj coś takiego, ew. przerób do własnych potrzeb: [syntax=vb]IsValid = True For Each ctrl In UserForm1.Controls If TypeName(ctrl) = "TextBox" Then If ctrl.Text = "" Then IsValid = False End If End If If TypeName(ctrl) = "ComboBox" Then If ctrl.ListIndex < 0 Then IsValid = False End If End If Next ctrl If IsValid Then MsgBox "OK" Else MsgBox...
Przecież parametrem funkcji wyboru (np Range) jest adres w postaci tekstowej.
Hmm, zdaje się, że jest: dodatkowe umiejętności, kwalifikacje - wymagania Gdyby jeszcze zapisane były "bazodanowo"... Np na podstawie zdefiniowanych list (combobox, listbox, poprawność danych)
Witam Potrzebuję wykonać obliczenie tak, żeby wyliczało mi różnicę '= róznica [ towar sprzedany] - [koszt PLN] względem wyznacznika z kolumny V. Najlepiej Makro które przeszuka kolumnę V znajdzie dany wyznacznik [liczbę] i poda wynik różnicy wszystkich liczb z kolumny S i P . Niestety nie mogę tego pogrupować względem kolumny V. Musi pozostać taki układ...
Można to zrobić np w ten sposób:[syntax=vb] Dim Nazwane_zakresy(2) Private Sub UserForm_Initialize() Nazwane_zakresy(0) = "zakres1" Nazwane_zakresy(1) = "zakres2" Nazwane_zakresy(2) = "zakres3" ComboBox1.List() = Nazwane_zakresy ComboBox1.ListIndex = 0 End Sub Private Sub ComboBox1_Change() ListBox1.RowSource = ComboBox1.List(ComboBox1.ListIndex) End...
Natomiast nadal nie mam pomysłu jak wpisać jako nową wartość "domOWY" jeśli mam na liście "domowy" Nie rozumiem. Napisałeś, że dodajesz na koniec listy. Excel rozróżnia wielkość liter, zdaje się...
Proponuje zmienić nazwy zmiennych "placowka, podzespol" aby były różne dla każdego ComboBox. np. tak: [syntax=vbscript] Private Sub UserForm_Initialize() Dim ost As Long With Arkusz1 ost = .Cells(.Rows.count, "C").End(xlUp).Row If ost = 2 Then ComboBox1.AddItem .Range("C3").Value ElseIf ost > 2 Then placowka = .Range("C3:C" & ost).Value ComboBox1.List...
Witam. Jestem w trakcie tworzenia w pliku nowego okna UserForm z opcją drukowania. W sumie to już wszystko zrobiłem ale chcę dodać jeszcze opcję wyboru drukarki ponieważ w pracy mam dostęp do paru drukarek i korzystam ze wszystkich. W oknie dodałem ComboBox i mam pytanie jakim kodem wywołam żeby po rozwinięciu okna ComboBox pokazało mi wszystkie dostępne...
Wydaje mi sie ze nie mozesz do typu Int dodac typu String a juz na pewno nie pustego stringa (""). Jesli wspomniany ComboBox ma wartsc to jest ona najpewniej niejawnie rzutowana na Int i dopiero dodawana do wyniku.
Formułkę (różnica dat) wpisałem do kodu zdarzenia 'Exit' obu TextBox'ów. Oprogramowałem ComboBox_Change, wykorzystując jego ListIndex. Numer>Opis. Zmienną 'ostW' w 'Initialize' można wykorzystać wielokrotnie (tworzenie list) Ciut komplikujesz proste rzeczy, moim zdaniem ;)
Dodaj sobie do formularza przykładowy kod VBA: [syntax=vb]Private Sub ComboBox1_Change() If Me.ComboBox1 = "EAST" Then Me.ComboBox2.Clear Me.ComboBox2.AddItem "1" Me.ComboBox2.AddItem "2" Me.ComboBox2.AddItem "3" End If If Me.ComboBox1 = "SOUTH" Then Me.ComboBox2.Clear Me.ComboBox2.AddItem "11" Me.ComboBox2.AddItem "22" Me.ComboBox2.AddItem "33" End...
No właśnie.. jak wkleiłem to do Private Sub UserForm_Initialize() A dlaczego do Initialize? Po mojemu najprościej będzie: jedna procedura z argumentem przekazywanym przez ComboBox. Wystarczy wkleić kod ComboBox'a 50x, zmieniając nazwę na kolejny Nr. W razie korekty, jest tylko jedna procedura do poprawienia. Taki szybki przykład w załączniku.
W całości popieram zdanie kolegi jankolo (i żeby nie było, że ceruję się u moderatora) :D Toteż nie podeślę gotowca. Odpowiem tylko na zadane pytania. Czy muszę dla każdego z tych produktów tworzyć osobny warunek If Nie. czy mogę zastąpić to jakąś petlą Nie trzeba. w jaki sposób? Tworzysz formularz. Umieszczasz na nim Combobox -a i Label -a. Właściwość...
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...
Dzień dobry, Przy wykorzystaniu Userform wprowadzane są dane da arkusza. Arkusz traktowany jest jako swego rodzaju baza danych. Jedna z kolumn tworzy nazwany dynamiczny zakres: "PESELW" [ =PRZESUNIĘCIE(DaneOsobowe!$B$2;0;0;ILE.N... ]. Następnie ten zakres wykorzystany jest do wygenerowania listy w combobox: [syntax=vbscript]...
Niestety nie mogę zobaczyć pliku, nie mogę go nawet pobrać z internetu - admin zablokował. No to teoretycznie: Tak sobie myślę skąd makro ma wiedzieć z którego pliku pobrać dane? Sprawdź czy jest to jawnie określone w RowSource. Nazwany Range też może nie mieć właściwego (pełnego) adresu i próbuje brać z ThisWorkbook. Wyświetl sobie co tam dokładnie...
[syntax=vb] Set Zmienna = Docel.Range(Cells(l_pw, l_kol), Cells(l_ow, l_kol)) ComboBox1.ColumnCount = 1 ' ComboBox1.List() = Zmienna ComboBox1.RowSource = Docel.Name & "!" & Zmienna.Address [/syntax]
Nie rozumiem dlaczego VBA, ale skoro ma być... Po pierwsze: do wyszukiwania osoby nie możesz oddzielać imienia i nazwiska. Zrobiłbym sobie kolumnę pomocniczą łączącą teksty z kolumny C i D, z niej pobierał dane do listy. Masz "załatwione" dwie rzeczy: jasną identyfikację osobnika oraz precyzyjne wyszukiwanie /indeksowanie. Po drugie: w formularzu wyszukiwania...
Znalazłem "błąd". Ponieważ przykład z funduszem robiłem na liczbie całkowitej (555) zapomniałem/nie zwróciłem uwagi że liczba z przecinkiem dla VB jest z kropką. Później kod próbuje to dalej konwertować i występuje różnica typu. Wystarczy pobrać z funduszu remontowego tekst wartości Text .TextBox5.Visible = True .TextBox5.Enabled = False .Label6.Caption...
1. Kod z Initialize uForm1 przekopiować do Initialize uForm2 2. Przy Open załadować uForm2 3. przy zamknięciu ukryć formularz (nie zamykać) i wyczyścić ComboBox W efekcie wyjdzie coś, jak w załączniku. UserForm1 jest w tym przypadku zbędny.
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...
A może zastosować inne rozwiązanie? Zastanawiam się i kilku rzeczy nie mogę rozgryźć. Zapytam: 1. Czy plik to jeden miesiąc, czy więcej? 2. Jeżeli nie, to co będzie za pół/półtora roku? 3. Czemu ma/miał służyć pierwszy arkusz? Zakładając, że plik to miesiąc można ten arkusz wykorzystać do przedstawiania wyników wyszukiwania (stosując listę, combobox,...
szczerze mówiąc nawet go nie zauważyłem, a po wklejeniu nie widzę żadnej różnicy :) ... i co, jak próbujesz wyjść z ComboBox o nazwie "cmbListItem" bez wybrania czegokolwiek z listy, to ci pozwala ? ... :)
combobox excel excel combobox listbox excel combobox textbox
pionier bateryjny polonez gasnie zimnym silniku junkers zawór główny
sonda lambda wymiana sonda lambda wymiana
Projektowanie transformatora sieciowego 12V, rdzeń EI 11cm2 Jak przyspieszyć skanowanie w TestDisk?