Witam ponownie. Mam w moim pliku poniższy kod którym po aktywacji okna UserForm wpisuje zakresy do odpowiednich okien. Wszystkie listy z zakresami są umieszczone w pomocniczym arkuszu. Jak zrobić żeby kod pobierał zakresy nie z arkusza ale z osobnego pliku tekstowego? Do jakiego pliku tekstowego wrzucić...
ActiveSheet.Name = "." - Trudno wymyślić nazwę? [syntax=vb] Worksheets("Dane - zestawienie").Activate ComboBox1.RowSource = "D6:D15" ComboBox2.RowSource = "D1:D5" ComboBox3.RowSource = "D1:D5" ComboBox4.RowSource = "A28:A52" [/syntax] - Wszystkie zakresy puste
Ten błąd (przy włączeniu przycisku) dotyczy zapewne inicjalizacji okna. We wczesnych wersjach - które sygnalizowałeś - aby ominąć podobny błąd musiałem skierować makro na arkusz DANE przy "zerowaniu" danych. Sporóbuj więc poprawić kod inicjalizacji (w VBA dwukliknij w obszar okienka i popraw): ...
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...
Jak będzie wyglądał kod VBA, gdy w Combobox1 będzie wartość np EAST a dane dla Combobox2, który jest uzależniony od Combobox1, będą znajdowały się w Arkuszu1 w kolumnie H? Wtedy - zamiast przypisywać wartości "ręcznie" - metodą: Me.ComboBoxXXX.AddItem YYYYnależy wybierać interesujący nas zakres bezpośrednio...
No tak, w listboxie na formie to jest parametr RowSource. Dla danych jak wyżej ustawiasz go przy projektowaniu na: [syntax=vb]Sheet1!A2:B6[/syntax] l... w kodzie programu: [syntax=vb]ListBox1.RowSource = "=Sheet1!A2:B6"[/syntax]
lstKierownik.RowSource = "DataBaza!C2:C" & ostWrs RowSource - jest String, nie Range Dodano po 1 Lista = .Range("C2:C" & ostWrs) - to nie trzeba Dodano po 35 lstKierownik.ColumnWidths = 50 - (72 minimum)
Ad1). Poradziłem sobie dodając poprostu listy w osobnym arkuszu oraz wykorzystaniem If Me.TextBox2 = "GDAŃSK" Then Me.ComboBox4.RowSource = "USTAWIENIA!J2:J50" End If Działa. Ad2) jeśli chodzi o różnicę dat to w obu textboxach mają być wpisane w formacie RRRR-MM-DD, i tak np chciałbym...
Jeśli ListBox wypełniasz przez RowSource, to przepisz listę do tablicy tymczasowej, wyzeruj i przypisz tablicę. Coś takiego: [syntax=vbscript]Private Sub UserForm_Initialize() Dim tbTemp() tbTemp = ListBox1.List ListBox1.RowSource = "" ListBox1.List = tbTemp End Sub[/syntax] Wtedy możesz dodawać...
[syntax=vbscript]Private Sub ComboBox1_Change() [F1] = ComboBox1 End Sub Private Sub OptionButton1_Click() Me.ComboBox1.RowS... = "Arkusz1!A1:A5" [F1] = ComboBox1 [E1] = "litera" End Sub Private Sub OptionButton2_Click() Me.ComboBox1.RowS... = "Arkusz1!B1:B5" [F1] = ComboBox1 [E1]...
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...
Witam Dziś postanowiłem pobawić się Combobox'em. Może ktoś pomoże jak mógłbym to zrobić i czy jest to do zrobienia. Chce w Userform'ie zrobic Combobox'a z listą - to osiągąłem przez: Private Sub UserForm_Initialize() Worksheet...
Witam, w Excel VBA zrobiłem sobie formularz w ktorym dodałem ComboBox zawierający dane z arkusza 1 od B2 do B10. Po wybraniu pozycji w ComboBox program wstawia mi tą wartość do komórki F9 w arkuszu 3. Chcę teraz wstawić zależność, że jesli w Combobox zostanie wybrana pozycja nr1 to do kolejnej...
Cudów nie ma. komenda_SQL = "SELECT * FROM Test.Baza ORDER BY Nazwa ASC" W Akcesie stosuję: [syntax=vbscript]Me.ListBox1... = rs [/syntax] Myślę, że w Excelu też się da.
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...
Witam. Mam 2 problemy/zapytania z listboxem w excelu 2013. 1. Stworzyłem listboxa w userform, połączyłem z listą w arkuszu (rowsource), ale nie wiem jak zrobić że jak kliknę na liście to wybrana pozycja pojawi w wybranej komórce arkusza 2. czy jest możliwe takie stworzenie listboxów, że w zależności...
Koledzy pomożecie z takim drobiazgiem. Bo mam zaćmienie. Private Sub UserForm_activate() Sheets("LISTA").Activa... a As Integer a = 4 + ComboBox1.Value Me.ComboBox3.RowSource = Range(Cells(4, 3), Cells(a, 3)).Address...
Private Sub UserForm_Initialize() ListVie... = "'BAAN 2'!G8:K97" ''ListView2.RowSour... = "'BAAN 3'!G8:K97" ''ListView3.RowSour... = "'BAAN 4'!G8:K97" ''ListView4.RowSour... = "'BAAN 5'!G8:K97" ''ListView5.RowSour... = "'BAAN...
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,...
Trochę jest to skomplikowane. Ogólnie to rozumiem co napisałeś ale problem jest w tym że lista pracowników jest w kolumnie 'B' a lista numerów pracowników jest w kolumnie 'D' więc tego nie połączę chyba tak jak napisałeś bo lista pokaże jeszcze zawartość kolumny 'C'. Ale zastanawiam się nad innym rozwiązaniem...
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.
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...
Witam, Zrobiłem stany magazynowe oraz historię ich zmian. Mój problem polega na tym, że jak zrobię jakieś pobranie towaru to w historii zmian wszystko ładnie się wyświetla ale tylko ostatnia zmiana. Moje pytanie brzmi jak zrobić by w historii zmian pojawiały się wszystkie wpisy zmian wers pod wersem?...
Można to zrobić np w ten sposób:[syntax=vb] Dim Nazwane_zakresy(2) Private Sub UserForm_Initialize() Nazwane_zakresy... = "zakres1" Nazwane_zakresy(1) = "zakres2" Nazwane_zakresy(2) = "zakres3" ComboBox1.List() = Nazwane_zakresy ComboBox1.ListIndex = 0 End Sub Private Sub ComboBox1_Change() ListBox1.RowSource...
Nie da się tego na wprost poprawić. Kłopot polega na zastosowanej przez ciebie metodzie sprawdzania czy wprowadzone dane są prawidłowe. Metoda exit textbox'a jest wykonywana wcześniej niż następuje przyciśnięcie (w tym przypadku Visual najpierw odczyta zdarzenie exit a dopiero później resztę) a to...
Witam serdecznie... Napotkałem problem z filtrowaniem rozwijanej listy w ComboBox Po kliknięciu w komórki kolumn C , D , E w Arkuszu1 wyświetla się okno UserForm Okno to zawiera rozwijaną listę ComboBox, pokazującą zawartość kolumny B Chcę żeby formant ComboBox wyświetlał przefiltrowaną...
Witam jeszcze raz Ja mam tak i działa. Private Sub UserForm_Activate() CB_REJON.RowSourc... = Sheets("Arkusz1").Range("TAB_REJON[REJON... = Sheets("Arkusz1").Range("TAB_URZADZ[URZA... = Sheets("Arkusz1").Range("TAB_TYP[TYP]")....
W jaki sposób można się uchronić przed błędem "invalid property value" w comboboxie? Nie blokując wpisywania? W pozycji RowSource jest umieszczona lista z wartościami tekstowymi. Ewentualnie czy jest możliwe ewentualnie czy jest możliwe wyrzucenie msgbox'a zamiast błędu?
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...
Dla labGrafik1_Change() przetwarzania moj makra tak, ze [syntax=vb] labGrafik.RowSource = Range(lab(rowStart), lab(rowStop))[/syntax]
Witam serdecznie. Na formularzu umieściłem kilka ComboBoxów które zostały podzielone na grupy. Piony określają rodzaje linii i dodatkowe reaktory, poziomo określane są grupy stanowiące linię produkcyjną. Podczas aktywacji nowej linii aktywowane jest jednocześnie kilka ComboBoxów. Dopóki stosowałem...
Deklarację zmiennej wrs umieść w nagłówku i dodaj usuwanie... Coś w ten deseń [syntax=vb]Dim wrs As Long Private Sub EMAILONE_Click() 'MsgBox "i tu przepisujesz odwrotnie niż wczytanie przy Initialize" & vbNewLine _ & "czyli najpierw Find w razie poprawki a jeśli Err>0 to do ostatniego...
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.
Witam ponownie. Czy w ListBox , w którym mam ustawione np. 3 kolumny jest możliwość aby dla każdej kolumny ustawić inny zakres RowSource ? Mam trzy różne zakres i każdy z nich chciałbym wyświetlić w osobnej kolumnie jednego ListBox-a . Czy można coś takiego zrobić?
Witam 1. AddItem ma limit do 10 (0-9) 2. Przez AddItem nie da rady przypisać nazw jedynie przez RowSource
[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]
Cześć, mam problem, chciałbym zastosować pętle dla kilkunastu comboboxów,których kolejne nazwy są zdefiniowane jako DEF. każdy combobox ma to samo źródło (rowsource). z tym że męczące jest klepanie tego samego 50razy.. [syntax=vbscript]If Left(DEF1.Value, 2) = "LK" Then Me.DEF1.RowSource = "DEF_LIST!A2:A300" End...
Objawy jednak jak przy przypisaniu przez RowSource. Pokaż Initialize tego formularza.
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...
Witam, Jak w temacie. Combobox o nazwie SMkolor w userformie, próbuję dodać listę z innego arkusza(Kolor) niż aktywny(mogą różne arkusze), problem w tym, że nie wiem jak napisać kod który dodał by tylko pola wypełnione z pierwszej kolumny arkusza "Kolor". Czy mógłby ktoś miły pomóc? Dodano po...
Witam, w formularzu excela mam listbox, którego zakres danych (RowSource) jest wynikiem funkcji przesunięcie, którą zapisałem w menadżerze nazw. =PRZESUNIĘCIE(Dtech!$A$8:Dtech!... widać funkcja ta odwołuje się do dwóch kolumn A i B. Chciałbym się także...
A jak zrobić taką rzecz: mam zdefiniowaną nazwę dla danych z tabeli, które znajdują się w zakładce Baza. Listbox chcę wywołać przyciskiem z zakładki o nazwie Bilans jako Userform1.Show. Tym userformem jest właśnie ten z listbox, dla którego mam takie makro: Private Sub UserForm_Initialize() ListBox1.RowSourc...
Witam, Mam bazę danych w Excelu jak poniżej. lp Kod obcy Producent 1 111/001 aaa 2 111/002 aaa 3 111/003 aaa 4 111/004 aaa 5 111/005 b 6 111/006 b 7 111/007 b 8 111/008 b Stworzyłem userform w którym są dwa commandboxy (producent i kod obcy). W producent mam do...
Proszę o pomoc, bo sam nie mogę rozgryźć już tego problemu Dlatego podpowiadam gdzie widzę źródło potencjalnych błędów, żebyś mógł samodzielnie je wyeliminować. Bez względu jakiego uczyłeś się języka w szkole :D - odnośnie Excela i VBA musisz zapamiętać, że program zawsze operuje datą jako wartością...
