Kolego, przerabialiśmy to wczoraj, adams_nt w #5 o tym pisał dzisiaj i znowu ten sam problem?? Rozwiązanie to samo: ustalasz ostatni wiersz w kolumnie E, która jest pusta: [syntax=vb]ost = Range("E10000").End(xlUp).Row + 2[/syntax] (nie wiem czemu dodajesz 2 nie 1...). Użyj G albo H.
Możesz w właściwościach combo wybrać style i 2 [syntax=vbscript]Me.ComboBox1.Style = 2[/syntax]
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,...
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?
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]
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)...
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...
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...
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
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ć...
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)...
Kiedyś na forum był temat magazynu. uchował mi się plik. Jeśli towarów jest naprawdę dużo, to zerknij na filtry (przede wszystkim ten po nazwie) w formularzu pod przyciskiem "Wydanie z magazynu". Projekt oczywiście nie jest dokończony, ale chodziło wtedy o to filtrowanie. Może w ten sposób?
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.
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...
Sub Zapisz_bierzaca_spolke_PDF_PL() Tutaj jest błąd.;)
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)...
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...
Poniżej przykład do pierwszej zakładki. Resztę zrobisz sobie analogicznie.
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?
Zależy jakie pole. Zacznij od nagrania makra wstawiania obiektu i coś już będzie wiadomo.
Dodaję załącznik z plikiem oczywiście dane zostały zmienione. Gdy wchodzi się do pliku pojawia się na start userform wybieramy pierwszą opcję dodawania do magazynu. Gdy już będzie widoczny arkusz do wprowadzania danych to wpisujemy datę, z listboxa wybieramy selekcję następnie wpisujemy ilość w zielony textbox (jeżeli chcemy coś dodać) lub czerwony...
kurcze nie moge sobie z tym poradzić chciałbym aby po wybranu maszyny nr 1 z combobox2 wyświetlały się w combobox 3 wartości z komórki (C1:C4) natomiast po wybraniu maszyny nr 2 wartości od (C5:C6) itd.
cześć, dziękuję za pomoc. Faktycznie jest w tym prosta logika. Dokładnie mi o to się rozchodziło.
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?
I cóż? Nikt nie ma pomysłu jakby to można fajnie zautomatyzować?
Jakiej pomocy oczekujesz? Gotowego rozwiązania? Czy podpowiedź: DateTime.Month rozwiązuje problem?
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.
dzięki , pomogło :) pozdrawiam
Zmieniłam kod ale nadal nie działa, w załączeniu przykład wraz z kodem
(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
Przepraszam za pomylenie kontrolek oto przykład z Combobox-ami
nazwa jest taka sama a może to wynikać z tego że na moim UserForm jest więcej elementów niż tylko sam ComboBox ??
OblKierownik1.MatchRequired = True - to nie makrem, to we wlasciwosciach kombo(proektowanie) .ControlSource - wlasciwosci - ma byc adres komorki na arkushe - u mnia dziala
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...
Zrobiłem na formularzu, bo Excel niewłaściwie pokazywał Combobox po użyciu AddItem.
:) ... 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...
Podmień ComboBox na ListBox...
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)...
Hej, mam takie prostackie pytanie:) W jaki sposób można wskazać za pomocą wybranej wartości w combobox kolumnę o takiej samej nazwie w pierwszym jej wierszu i jej ostatni niepusty wiersz? Chociaż jakąś podpowiedź;] [/align][/code][/quote]
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. 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
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...
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...
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ż...
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.
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,...
Spróbuj poprawność danych>lista (pobierana z zakresu lub wpisana ręcznie).
Tylko chodzi mi o listbox a nie combobox
Jak w temacie: jak spiąć kilka comboboxów? Jeżeli w comboboxie 1 wybiore poniedziałek, to automatycznie w combobox 2 zmieni się na zupa, a gdy wtorek to comboboxie 2 moge wybrać recznie. Doszedłem do tego jak zrobić to za pomocą funkcji jeżeli lecz formuła się rozjeżdza ;(
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]...
jak to zmodyfikować żeby działało tak jak potrzebuję :?: Z Twojego opisu i symbolicznego przykładu trudno zrozumieć logikę działania arkusza :cry: W pierwszym combo-boksie wybieram z listy np "Przykład 9" - wówczas makro skraca mi listę 1 do jednego wiersza :cry: , a formuły w arkuszu ograniczają także pozostałe dwie listy (odpowiednich dla combobox...
cześć, mam problem i dalszą naukę jak powiązać dwa okna combobox tak aby gdy wybiorę wartość EAST to w drugim będzie możliwość wyboru 1,2 lub 3. Gdy wybiorę następną np SOUTH to będzie dostępne 11, 22 lub 33
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 ? ... :)
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...
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...
lista wielokrotnego wyboru , po naciśnięciu edytuj można edytować zawartość Przejrzałem Twój plik i niestety "za Chiny" nie mogę zrozumieć :cry: co masz na myśli używając nazwy lista wielokrotnego wyboru . Co to ma być jakiś listbox, czy combobox :?: ale co wtedy ma znaczyć wielokrotny wybór u Ciebie ? Robiłem już jakieś listboxy z wielokrotnym wyborem...
A czemu nie masz tam .BackColor?
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
Hm może tak. Panowie lesławek, oraz clubs - bardzo dziękuję za pomoc. Oba zaproponowane rozwiązania działają, nauczyły mnie kolejnych nowych rzeczy i jestem za to bardzo wdzięczny. Gdyby ktoś był ciekawy jak wygląda finalny kod (być może jest więcej takich laików jak ja), to podaje go poniżej: [syntax=vbscript] Option Explicit Dim tbl() As Variant...
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.
Podany przeze mnie obraz jest z Akcesa. O ile się orientuję, to Excel nie daje możliwości użycia więcej niż jednej kolumny (może się mylę). Jeżeli nie, to musisz poskładać dane z 3 kolumn rozdzielając je np. '|', a następnie po wybraniu pozycji z listy odpowiednio rozdzielić.
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...
kopiowanie funkcji chodzi mi o przeniesienie do arkusza1 gotowego wzoru bedacego w komorce w arkuszu3, z tym ze, wzor liczy np. mnozac 4 komorki przez siebie w ustalony sposob - czyli wzor. Wzor moze ulec zmianie i zmieniam go w arkuszu3. Dlaczego ? Dlatego ze w arkuszu3 beda inne wartosci 4 kolejnych mnożonych komórek. W arkuszu3 wyliczam sobie współczynnik...
a i jeszcze mam pytanko jak uzbroic combobox w wartości z innego arkusza z kolumn a1... a2... itd Dodano po 5 czy tak bedzie ok? For i = 1 To 100 if cells(i , 1) = "" then end sub wartosc = cells(i , 1).value UserForm6.ComboBox2.AddItem wartosc Next i
Sprawa wyglada tak: Uruchomiam formularz POLIKOL_Pozycja_1 lub POLIKOL_Pozycja_2 itd, w którym wypełniam dane w combobox przy pomocy innego formularza (formularz zaciąga dane a raczej text "[A] np. z POLIKOL_Pozycja_1.Combobox3 - wprowadzam te dane za pomocą(też przy użyciu) comboboxa "analiza" używając powyższego kodu ale nie pozwalam wprowadzać innych...
Zerknij Ale tak, w excelu jest tylko 10 arkuszy. W pierwszym są tylko dane niewykorzystywane, zaś od 2 do 9-go są wykresy do pobrania. Może jakiś ComboBox z listą arkuszy/nazw wykresów?
Chodzi mi o to żeby po wybraniu z combobox „Bezpański” pies wprowadziło mi do komórki liczbę 35, a gdy wybiorę Domowy poda mi jakąś liczbę z komórki L8. - to działa pod funkcją: =JEŻELI(D8="Bezpański";35;JEŻELI(D8="Dom... TEGO NIE POTRAFIĘ DODAĆ DO GÓRNEJ FUNKCJI ale jeśli wybiorę status psa Bezpański i rodzaj „Szarpey”...
W Excelu masz do wyboru, dwa sposoby zastosowania pola wyboru: 1. Pole kombi - pobierasz go z menu Formularze ( trudniej jest go zaprzegnac do roboty z poziomu VBA, latwiej przy zastosowaniu formul ) 2. ComboBox - pobierasz go z menu Przybornik Formantów i mozesz wszelkie ruchy zwiazane z dzialaniem tego obiektu wykonac swobodnie w VBA Jezeli dane ktore...
Ostatnio zacząłem bawić się vba w excelu i niestety chwilowo utknąłem ;) mam dwa problemy: 1) Mam userforma w którego wpisywane są dane i po zatwierdzeniu przyciskiem "zapisz" wszystko trafia do odpowiedniego akrusza w excelu. ww. userform wywoływany jest przez przycisk na w innym arkuszu (commandButton) Private Sub cmbDodajDefekt_Click() DodajDefekt.Show...
Hej! Zupełna zagwozdka mam takie dane jak w załączniku i teraz tak potrzebne mi sa 3 pola wyboru i jesli w pierwszym polu wybiorę określną wartość to będzie to ograniczenie dla 2 pozostalych pól jesli w drugim wybiorę określony projekt, to w trzecim combobox powinny pojawic sie do wyboru tylko wartości odpowiednie dla wybranego projektu czyli wybieranie...
No właśnie ComboBox wiem jak użyć z tym że nie wiem jak to zrobić przy pomocy trzech (dzień, miesiąc, rok). Chciałem to zrobić w jednym. Próbowałem też podzielić datę która jest w formacie amerykańskim na 3 części i później je złożyć do "kupy" ale wtedy jest odczytana jako TEKST i nie da się zmienić na datę. Błąd mi wyskakuje na tej linijce: DNT = CDate(Right(TextBox1.Text,...
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]
Pokaż jak "załadowany" masz cboCostCenter.Value (i jak wartości) to [syntax=vbscript]Val(cboCostCenter.Value...
Witam np tak [syntax=vbscript] Range("B1") = Me.ComboBox1.Value If OptionButton1.Value = True Then Range("B2").Value = "tak" [/syntax]
[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]
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...
[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]
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 ;)
To jest dość niewdzięczne zadanie, bo ComboBox przechowuje dane w postaci tekstu i jeśli są to liczby, to z kropką dziesiętną. Ty masz w arkuszu dane liczbowe tylko sformatowane jako czas, więc gdy przenosisz to do ComboBox jako RowSource, to on dostaje liczby, a nie czas. Spróbuj tak: [syntax=vbscript]Private Sub ComboBox1_Change() If Val(ComboBox1.Value)...
Nie mam Corel'a, ale VBA chyba wszędzie podobny... Najprościej byłoby z FileDialog. Jeśli konieczna jest lista dysków w ComboBox, to można połączyć z FileSystemObject. Załączam przykład takiej listy plików w Excel'u.
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,...
Wg mnie wywołane zdarzenie change dla combobox2 winno ładować listę dla następnego combobox, teraz za każdym razem gdy zmieniasz wartość combobox2 to ponownie ladujesz do niego listę, troch nielogiczne
A nie lepiej użyć deklaracji tablicowej typu Combobox(x).value = 123 ? Wtedy możesz ogarniać to w pętli :D
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ść...
Najwygodniej byłoby zrobić UserForm z dwoma ComboBox'ami, gdzie na podstawie wyboru pierwszego (nazwa arkusza) wypełniało by się drugi danymi z dwóch kolumn. Bardzo uprościłoby ujednolicenie nagłówków. Oczywiście jest to do zrobienia w obecnej postaci, ale nie we wszystkich arkuszach występują obie poszukiwane kolumny. Co w takim przypadku? http://obrazki.elektroda.pl/5048931400_1...
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,...
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ć.
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...
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)
No powielasz kod który napisał admas_nt [syntax=vb]Private Sub Workbook_Open() Dim oSheet As Excel.Worksheet Dim oCmbBox1 As MSForms.ComboBox Dim oCmbBox2 As MSForms.ComboBox Dim oCmbBox3 As MSForms.ComboBox Set oCmbBox1 = Sheets("Kombi").ComboBox1 Set oCmbBox2 = Sheets("Kombi").ComboBox2 Set oCmbBox3 = Sheets("Kombi").ComboBox3 oCmbBox1.Clear oCmbBox2.Clear...
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 ?
Witam! Mam problem tego typu. Postanowiłem dodać parę opcji do załączonego pliku i zadanie mnie przerosło. W początkowej formie, arkusz służył do wprowadzania numerów paczek zeskanowanych skanerem z listu przewozowego. Założenia arkusza: 1. Po kliknięciu w przycisk: Wprowadzanie nr przesyłek, w wyświetlonym UserForm domyślne kursor znajduje się w polu:...
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...
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...
W jaki sposób ładujesz dane do combobox? Podaj więcej info.
excel combobox excel combobox listbox excel combobox textbox
volvo silnika schemat magna czujnik tlenku węgla czadu
xiaomi robot vacuum xiaomi robot vacuum
Kod błędu U1318 w Peugeot - przyczyny i diagnostyka VW Passat B7 – centralny zamek otwiera, ale nie zamyka drzwi: mikrostyk, siłownik, przewody
