1. Private Sub UserForm_Terminate() combo1.Value = combo1.ControlSource End Sub 2. combo1.MatchRequired = True 3. Do wujka Googla CreateObject("scripting.dictionary") Na angielskom - http://www.snb-vba.eu/VBA_Dictionary_en....
Podmień ComboBox na ListBox...
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)
Tylko chodzi mi o listbox a nie combobox
W Listboxie możesz ustawić ColumnCount = 5 i RowSource = =PRODUKTY!B2:F46 Ewentualnie, przy klinięciu przycisku START wczytać dane ręczenie wiersz po wierszu: [syntax=vb]Private Sub cmbstart_Click() With Worksheets("PRODUKTY") For i = 2 To .Range("B" & .Rows.Count).End(xlUp).Row PROG1.ListBox1.AddItem PROG1.ListBox1.List(i - 2, 0) = .Range("B" & i)...
Nie zaszalałeś z programowaniem... Jak przypisujesz listę do kombo? W kodzie, czy właściwościach? Lista ma indeks (od zera), więc wiersz będzie równy Kombo.ListIndex +1 Wystarczy dodać: Cells(indeks listy +1, kolumna)= Cells(indeks listy +1, kolumna) + wartość z pola Było kilka podobnych tematów, poszukaj. I trochę samodzielności kolego ;) ComboBox/ListBox...
[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]
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...
Dopisz może w temacie o jakie środowisko/język programowania chodzi - teraz dopiero po pobraniu i rozpakowaniu archiwum się dowiaduję, że chodzi o excela.
Dzięki, dokładnie o to chodziło. Dorobiłam wyszukiwanie dla pola "Opis sali" i "Adres sali" i znów mam pytanie: - dlaczego ograniczenie listy następuje dopiero po wpisaniu spacji, tzn. w polu "txtOpisSali" wpisuję "e" i dopiero gdy wpiszę spację lista się "zawęża"? W ListBox chciałam wyświetlić nazwy kolumn, ustawiłam więc właściwość ColumnHead na "True"...
Nie wiem jak zrobić by z comboBoxa można było wybrać 2 bądz więcej numerów katalogowych Nie da się. Musiałbyś wykorzystać pole listy z ustawionym MuliSelect na wartość 1 lub 2. Następnie sprawdzać cała listę i działać warunkowo (if Listbox.Selected(indeks/licznik pętli)=true then) Ewentualnie umieścić dodatkowe, wielowierszowe pole listy z pionowym...
Witam ponownie mistrzu chyba utknąłem i proszę o pokazanie właściwej drogi - muszę zrobić sortowanie w combox-ie - do zrobienia, wrzucić te same dane ( tzn komórki z tymi samymi nazwami które są posortowane combox-em) do listbox-a i tak jak zaznaczę daną nazwę wrzuci mi wszystkie pozostałe dane tej konkretnej nazwy w textbox-ie. hmm chyba się poddaję,...
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...
Nie ładują się comboboxy w UserFormie . Mam otwarte dwa pliki Excela na 1 monitorze , na drugim edytor VBA . W momencie uruchamiania formularza F5 gdy nie jest kliknięty plik odpowiadający uruchamianemu formularzowi , kontrolki texbox i listbox są puste . Nie wiem czy to może powodować jakieś komplikacje przy użytkowaniu przez inne osoby ? Pliki pobierają...
Witam, Czy można na formie dynamicznie tworzyć etykiety (Label), ListBox, ComboBox w zależności od zadanej liczby? Ta liczba zawsze będzie zmienna. Poniżej kod programu, który dla 5-ciu etykiet nazwanych Label1....Label5, wstawionych do UserForm, w pole Caption wpisuje odpowiednie wartości z Excel'a. [syntax=vb] Dim i As Integer ' zmienna pomocnicza...
Witam Prawdopodobnie jest, to nie tylko jest tak szybko zrobić. To praktycznie wszystko od nowa robić. I do tego, aby być trochę czasu. Tak co na to? Do UserForm1: [syntax=vb]Private Sub CheckBox1_Click() wybor End Sub Private Sub CheckBox2_Click() wybor End Sub Private Sub CheckBox3_Click() wybor End Sub Private Sub CheckBox4_Click() wybor End Sub...
Mam w moim pliku dodane okno (na poniższym screenie) na podstawie którego drukuję arkusz z odpowiednimi danymi. Ogólnie to wszystko jest OK. Poniżej jest kod który wszystko przesyła do arkusza. Okno pozwala na wydruk pojedynczej listy dla jednego pracownika. Jak zrobić aby okno miało możliwość wydrukować taki sam arkusz dla wielu pracowników? http://obrazki.elektroda.pl/3447331200_1...
Chciałbym dowiedzieć się jak automatycznie tworzyc przy pomocy makra listboxa lub comboxa i wypełniac je danymi np z komórki?
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...
Dzięki bardzo, działa rewelacyjnie. Mam jeszcze taki kod jak poniżej. Jak można by go zminimalizować? 'A1-A31' to TextBox, 'txtMiesiac' to ComboBox a 'lstPracownicy' to ListBox [syntax=vb]A1.Value = Sheets(txtMiesiac.Value).Range("B:B").Fi... lookat:=xlWhole).Offset(0, 8) A2.Value = Sheets(txtMiesiac.Value).Range("B:B").Fi...
Wszystko fajnie, tylko zmiana drugiego formularza (Polska, Niemcy, Anglia) powoduje zmianę w pierwszym Ale tak wynika z Twojego opisu. Teraz to już nic nie rozumiem ;) Listę do ComboBox/Listbox mozna przypisać na wiele sposobów (z tablicy .List=tablica, z zakresu .rowsource=Range(), pojedynczo przez add). Dokładnie opisane jest to w pomocy.
Mianowicie do arkusza VB wstawiłem pole ComboBox hmmm... dla jasności: na co dzień nie zajmuję się programowaniem Kolega zrobi PrintScreen'a ze swojego okna i zamieści w poście bo jak narazie to ta wypowiedź jest niejasna i coś mi się wydaje, że poszukiwane rozwiązanie jest inne niż to co napisano. Zamiast ComboBox do daty proponuję "DateTimePicker"....
Wartości do listboxa wpisuję funkcją AddItem.Pierwsza kolumna to wartość zmiennej, druga i trzecia to wartości z comboboxów. [syntax=vb] With Me.listbox_karata_zapisu .AddItem "" .Column(0, lp - 5) = lp_pracownika .Column(1, lp - 5) = Me.ComboBox1.Value .Column(2, lp - 5) = Me.ComboBox2.Value End With[/syntax]
Witam, Zaczynam naukę z VBA i napotkałem następujący problem: Potrzebuję do ListBox wprowadzić dane z tabeli składającej się z 9 kolumn i np. 100 wierszy (najlepiej, żeby nie było ograniczenia). Próbuję na różne sposoby i nic... :((( Z Comboboxem sobie poradziłem jakoś: poniżej kod: Private Sub UserForm_Activate() CB_REJON.RowSource = Sheets("Arkusz1").Range("TAB_REJON...
Nie rozumem o co chodzi z tym leczeniem kanałowym i co to ma do dolnej kolumny... Ogólnie ciekawy pomysł... dolna kolumna... Biorąc kod marcimix wyszło takie coś: [syntax=vb]Type iCell Row As Integer Col As Integer End Type Sub ColorNext() Dim C As iCell Dim r As Range Dim tmp As Range Dim step As Integer C.Row = Excel.ActiveCell.Row C.Col = Excel.ActiveCell.Column...
Czyli z tego co zrozumiałem, wynikałoby że maksymalna liczba kolumn to 10. Ale używam ComboBoxy i ListBoxy z większą liczbą kolumn. Także odwołuje się do wartości kolumn o indeksie powyżej 10 i jest ok. Także przy dodawaniu, jak wspomniałem, jeżeli na liście są już jakieś pozycje to nie ma problemu żeby dodać kolejną. Chyba że źle rozumiem ten fragment...
excel listbox listbox excel excel combobox
odczyt pamięć licznik podłączyć wentylator dioda lokalizacja złączać diagnostyczny
Zamiana tranzystora 2N6488 na BD911 w Unitra Fonica PW9013 Zasięg sygnału 4G LTE: czynniki i praktyka