Należy oprogramować warunki przy zdarzeniu Change oraz Exit ComboBoxów. Stopień skomplikowania zależy od ilości ograniczeń jakie chcesz nałożyć. P.S. Bardzo ułatwia życie prefiks przy nazwach kontrolek. Np cmbLiczba1, txtLiczba2 i nie muszę szukać które to ComboBox, a które TextBox...
Przecież parametrem funkcji wyboru (np Range) jest adres w postaci tekstowej.
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 ;)
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...
Wyjaśnie jeszcze raz w czym problem. Gdy uruchomię plik excel'a uruchomia się userform, w którym trzeba wypełnić pola. Po wypełnieniu pierwszego pola i przejścia do combobox'a, excel się zawiesza. Plik umieszczony na forum jest bez makr bo one nie tworzą problemu. Nie jestem informatykiem a grzebie w makrach dla samego siebie aby ułatwić pracę sobie...
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,...
Do takiego filtrowania listy musiałbyś wykorzystać TextBox. Raczej nie da się tego wykonać "wewnątrz" ComBox'a, gdy jest aktywny (posiada focus).
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ć.
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]
Najprostszy przykład (z zakomentowanym connection string dla dwóch wersji plików): Arkusz1 , dane są wpisane do kolumny z nagłówkiem Miasto
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...
Mam pytanie związane z oknem TextBox i wyświetlanymi dwoma kolumnami. Czy można te kolumny przybliżyć do siebie (bez konieczności rozszerzania okna TextBox) bo jak widać na screenie druga kolumna jest niewidoczna? http://obrazki.elektroda.pl/3036157500_1...
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.
Z rysunku w pierwszym poście wynika, że chodzi o procedurę 'Sub Dodaj' (masz ją w module, uruchamiana jest przyciskiem [Dodaj]). [syntax=vbscript]Sub Dodaj() Administrator = UserForm1.CheckBox1.Value Kablowiec = UserForm1.CheckBox2.Value Kierowca = UserForm1.CheckBox3.Value Lp = UserForm1.TextBox1.Value stopien = UserForm1.TextBox2.Value Imie = UserForm1.TextBox3.Value...
No i nie daję już rady z ComboBox-TextBox Moje założenie to wybrać towar z listy - automatycznie wpisuje się do TextBox (txtNazwa), w następnym TextBox wpisuję ilość (txtIle) i po zatwierdzeniu DOPISZ, dane znajdą się w komórkach C18 i E18 a pola Combo i Text czyste. Następny wybór i kolejne wolne, czyli C19 i E19 Dziękuję jeśli ktoś poświęci troszkę...
Witam, jak za pomocą VBA można "pobrać" dane z uzupełnionego formularza? Z pola TextBox można np. do komórki A1 wpisać jego wartość poprzez funkcję Value.. Ale jak zapisać do danej komórki Excela zaznaczoną pozycję z Combobox'a albo OptionButton'a Z góry dziękują za odpowiedź.
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]
Dzień Dobry wszystkim, mam problem w swoim projekcie z pewną sprawą a mianowicie jak napisać komendę aby po zaznaczeniu jednego z kilku dostępnych CheckBox(np.1a) kontrolować wypełnienie danymi wybranych TextBox(np.1b) lub ComboBox(np.1c). Całość jest osadzona w UserFormie, ni chu chu nie wiem jak to napisać żeby się to zgrało w całość :-/. Początkujący...
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 :?: Nie jasne gdzie (w którym arkuszu) ? chcesz prowadzić te rozliczenia :cry: Natomiast ilości na asortyment :?: są zliczane w arkuszach...
Poradziłem sobie samym excelem za pomocą formuły: =JEŻELI(CZY.BŁĄD(WYSZUKAJ.PIONOWO(IM4;ZL...
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ę,...
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,...
A rzeczywiście, mój błąd. Powinno być 'wpisanie do arkusz ceny sprzedazy Range(Cells(licznik + 1, 5), Cells(licznik + 1, 6)).Select cenasprz = TextBox3 Cells(licznik + 1, 5).Value = cenasprz With Selection .HorizontalAlignment = xlCenter .MergeCells = True .NumberFormat = "#,##0.00 $" End With 'wpisanie marży...
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 odbiera jakikolwiek manewr "wyłączenia" z pod obsługi...
Po prostu (blok w kodzie przycisku) [syntax=vb]With Sheets("Lista pracowników") ' ostWrs = Label14.Caption ' .Unprotect Password:=haslo ' .Cells(ostWrs, 21) = TextBox1.Value ' .Protect Password:=haslo For i = 0 To lstFiltr.ListCount - 1 If lstFiltr.Selected(i) = True Then ostWrs = .Range("B:B").Find(what:=lstFiltr.List(i... lookat:=xlWhole).Row .Cells(ostWrs,...
Napisz coś co bardziej rozjaśni problem. W tytule piszesz że, chcesz dodawać nowy wiersz do arkusza a w treści że, będziesz dopisywał dane. To co w końcu? Jak pobierasz zmienne z UserForm i co z nimi robisz? Pozdrówka Chodzi o dodawanie informacji o nowym filmie, czyli wpisanie liczby porządkowej, tytułu, rozmiaru, czasu trwania, lokalizacji i informacji...
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,...
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...
Jeśli chodzi o nagłówki. VBA jest "ślepy" jeśli przypisujesz listę inaczej niż przez RowSource... Po mojemu rozwiązanie z labelem jest wystarczające (i pewniejsze). Wyłącz nagłówki, dla labela ustaw Height=10 i Top=62 i będzie ładnie. Czyli pierwszy pomysł najlepszy. Ok Rozbudowałam formularz dodając ikonę z kalendarzem i Checkbox-y z dniami tygodnia....
W TextBox1 stworzyłem taki kod: Private Sub TextBox1_Change() Dim tekst As String TextBox1.SelLength = TextBox1.TextLength tekst = TextBox1.Value Cells(1, 1) = tekst End Sub Jest to wersja robocza, tzn docelowo wartość z TextBoxa zapisywana będzie do innego arkusza z danymi. I tu mam zagwozdkę. Wartość w komórce (1,1) pojawia w trakcie wpisywania danych....
Witam Chciałbym prosić o wyjaśnienie przyczyny pewnego błędu. W mojej procedurze wykorzystuje metodę AddItem dla dodania nowej pozycji listy w kontrolce ComboBox. Wszystko jest ok gdy dodaję do listy kolejną pozycję problem pojawia się gdy na liście nie ma jeszcze żadnych pozycji, czyli gdy dodaję pierwszą pozycję. Fragment kodu wygląda tak: [syntax=vb]...
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): Private Sub UserForm_Initialize() Arkusz_Nazwa =...
Cześć, Stworzyłem formularz z kilkoma ComboBox'ami. Pierwszy box pobiera dana z zakresu używając RowSoruce. 1. Czy istnieje możliwość automatycznego wpisania danych do pozostałych box'ów po wybraniu danych w pierwszym? 2. Czy udało by się to zrobić z TextBox'ami - tzn. jeden CB, reszta TB? 3. Chciałbym mieć jeszcze możliwość edycji danych i dodawania...
Proszę powiedzcie mi w jaki sposób mogę z powrotem załadować danego pracownik z listy aby móc go prze edytować lub usunąć? Z samą opcją dodawania nowego pracownika poradziłem sobie. Może krótko opiszę jak to zrobiłem (zrobiłem to po swojemu tak jak potrafiłem). Jak już wprowadzę wszystkie dane pracownika to w przycisku 'Dodaj' mam kod: http://obrazki.elektroda.pl/1653474000_1...
1. Tak. Wiersz równy wartości zmiennej wrs , usuwasz. Tu trzeba będzie przepisać listę ComboBox'a, lub po prostu zamknąć i otworzyć ponownie uForm 'Wybierz'. 2 & 3. Z tego wychodzi, że: a) jeśli zaznaczono 'BrakTłumaczenia (chk górny) - email i 'Archiwum' b) jeśli 'BrakWarunków' - email i 'Dane_Przetworzone' c) w pozostałych przypadkach 'Dane_Przetworzone'...
Aha i odnośnie problemu wpadłem na pomysł żeby w okienku obok textboxów było okienko zablkowane w którym pojawiały by się wybrane dane. Jeśli tu też by coś podpowiedział pomógł z góry dziękuje ;)
Dziękuję bardzo za zainteresowanie. W podanym warunku If trzeba określić "treść szukanej frazy". Nie wiem czy dobrze to zrozumiałem, ale nie mogę z góry znać szukanej frazy. Chyba, że czegoś nie rozumiem. Chodzi o to, że to co wpisuję przez UserForma w dwóch polach (txt4, txt2) nie mogę z góry określić, gdyż te dane nie są stałą treścią. Makro ma porównywać...
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...
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"....
Zrobiłem userformy ale wyszło mi ok 2,5tys (Comboboxów, textBoxów ...) Z ciekawości zapytam, jaki cudem wyszło ci te 2.5tys? Jak piszesz, że do wprowadzenia jest 250 danych.(Ty to powtarzałeś dla każdej zmiany i dnia?) Sądzę, ze to główny problem: zdolność (albo niezdolność - dla niektórych do końca kariery) do zmiany /swoich nawyków, toku myślenia...
Witam, mam taki problem chciałabym aby wyszukiwarka zrobiona za pomocą vba przeszukiwała zakres kilku arkuszy "zestawienie" i "zestawinie2" i szukaną frazę umieszczała w arkuszu "szukana_fraza" poniżej kod który przeszukuje tylko jeden arkusz: [syntax=vbscript]Private Sub SZUKAJ_Click() 'do określenia przeszukiwanej kolumny wykorzystamy indeks listy...
No to użyj COUNT i potem GROUP BY Kod SQL - Fajnie działa, lecz jestem wybredny i mam swoje "ale" 1)Podane zapytanie stworzy mi nową kolumnę i zwróci mi tylko wyniki. Czy dało by się stworzyć podzapytanie by wyświetlało również tabele: Miejsce_blendu, Blond, Status + ta nowa Ilość 2) Zliczanie COUNT musi uwzględniać trzy tabele: Miejsce_blendu, Blond,...
Witam W pierwszym Okienku1 w kontrolce TextBox wpisuję literę np. "x" co wywołuje drugie Okienko2 . Chciałbym aby w nim uaktywniło (już wpisane) te same wartości co były w pierwszym Okienku1 (TextBoxy i ComboBoxy). Chciałem zapytać jak to zrobić?
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...
excel combobox textbox combobox textbox excel textbox
rozrzadu scenic schemat drabinki podłączenie video monitora
mikrokomputer cobra1 pralka whirlpool reset
Jak otworzyć plik ZIP na Androidzie i iOS? Klapa wlotu powietrza Renault Trafic 1.9 dCi - diagnostyka i naprawa
