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 ;)
Przepraszam za pomylenie kontrolek oto przykład z Combobox-ami
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,...
:) ... 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...
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...
Możesz w właściwościach combo wybrać style i 2 [syntax=vbscript]Me.ComboBox1.Style = 2[/syntax]
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...
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...
Pokaż jak "załadowany" masz cboCostCenter.Value (i jak wartości) to [syntax=vbscript]Val(cboCostCenter.Value...
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...
[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?
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ż...
A czemu nie masz tam .BackColor?
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]
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.
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
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)...
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)...
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...
Zapewne masz już bałagan z nazwami... Sprawdź (Name) we właściwościach ComboBox.
Witam np tak [syntax=vbscript] Range("B1") = Me.ComboBox1.Value If OptionButton1.Value = True Then Range("B2").Value = "tak" [/syntax]
Poniżej przykład do pierwszej zakładki. Resztę zrobisz sobie analogicznie.
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)...
[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]
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...
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)...
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...
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.
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?
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ć...
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.
[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....
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...
Inne rozwiązanie [syntax=vbscript]Private Sub ComboBox1_Change() ComboBox1.Value = Application.Text(ComboBox1.Value, "hh:mm") End Sub[/syntax]
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]
Podmień ComboBox na ListBox...
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??
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...
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.
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.
Tak Public Uas As String W podpowiedzi istnieje możliwość wyboru ComboBox1.Value the default property of a combobox is the value property
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,...
Sub Zapisz_bierzaca_spolke_PDF_PL() Tutaj jest błąd.;)
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...
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ć.
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 ?
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,...
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
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:...
(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
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.
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...
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ć...
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?
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...
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...
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
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)
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...
Witam potrzebuje rozwinąć moja bazę magazynową. Nie wiem 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
dzięki , pomogło :) pozdrawiam
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ą....
W jaki sposób ładujesz dane do combobox? Podaj więcej info.
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)
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...
Ja bym sprawdził DateTime.Month z innym DateTime.Month.
Zmieniłam kod ale nadal nie działa, w załączeniu przykład wraz z kodem
I cóż? Nikt nie ma pomysłu jakby to można fajnie zautomatyzować?
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.
Przecież parametrem funkcji wyboru (np Range) jest adres w postaci tekstowej.
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...
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ść...
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.
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...
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 ;)
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ę...
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.
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...
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...
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]
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,...
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...
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 ? ... :)
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]...
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.
Bez makra się nie obejdzie. Wprowadź do arkusza objekt rysunkowy (Image1) tam gdzie ma być to zdjęcie. I wprowadź kod przyporządkowując w każdej liście wyboru każdą z wybranych opcji do jakiegoś rysunku. np tak: Select Case ComboBox1.ListIndex Case 0 Image1.Picture = LoadPicture("c:\rys1_1.jpg&... Case 1 Image1.Picture = LoadPicture("c:\rys1_2.jpg&...
excel combobox excel combobox listbox excel textbox combobox
mitsubishi klucze twarde lutowanie renault skrzynia automat
sandisk ultra instrukcja obsługi
Zmywarka Electrolux ESL4500L0 błąd i30 i wyciek wody Ferroli Bluehelix 25C błąd A7 - czujnik NTC