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...
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...
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ę...
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,...
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....
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...
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.
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...
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]
Do takiego filtrowania listy musiałbyś wykorzystać TextBox. Raczej nie da się tego wykonać "wewnątrz" ComBox'a, gdy jest aktywny (posiada focus).
Witam (na chwilę) po świętach. Przepraszam za tak późny post ale święta świętami (i karp i choinka :) ) a ja mam koniec roku w firmie i niestety nie mam za dużo czasu. Wiem że pomagałem pisać to makro ale musiałem sobie trochę przypomnieć o co chodziło a to mimo wszystko wymaga czasu. Teraz z pełnym brzuchem (i w domu) mogę trochę pomóc :) Można zrobić...
Najprostszy przykład (z zakomentowanym connection string dla dwóch wersji plików): Arkusz1 , dane są wpisane do kolumny z nagłówkiem Miasto
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,...
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.
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]
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'...
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...
Bardzo dziękuje koledzy za pomoc. W programiku wykorzystałem propozycję adamasa która działa bardzo dobrze. Bobo - dopiero raczkuję w VBA i metodami prób i błędów tworze małe programiki jak na razie na oddzielnych formatkach aby mieć dostęp do różnych kodów. W dalszej nauce będę się starał operować tylko w jednym UserForm. adamas - wyniki wyboru umieściłem...
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...
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,...
Czy tak przekombinuję? Na to wygląda... Wykorzystaj właściwość ListIndex Combobox'a. Pierwsza pozycja pola kombi ma indeks 0. Przyjmując założenie, że wartość pola tekstowego pobierana będzie z zakresu C5:Cxxx to Private Sub ComboBox1_Change() wrs = ComboBox1.ListIndex + 5 TextBox1.Text = Sheets("Arkusz1").Cell... 3)...
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...
Witam, mam problem z VBA. Chciałbym aby po wybraniu wartości w ComboBoxie program odszukał tą wartość w kolumnie A w innym arkuszu i wstawił wartość z kolumny D do TextBoxa. Dokładnie: Arkusz: Toyo1 Formularz: KARTA REJESTRACJI DANYCH po wybraniu wartości w "Zlecenie" (ComboBox) automatycznie wstawiło nazwę do TextBoxa obok. Zlecenie i Nazwa jest w...
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....
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...
Otwórz sobie okno immediate w edytorze VB (Ctrl+G), w kod wklej linie (patrz przykład) i uruchom procedurę. MsgBox "DODANO", vbOKOnly, "Okno dodania" TextBox1.Value = "" Debug.Print ark ' TUTAJ Debug.Print wrs Debug.Print t1 Stop t1 = t1 - ComboBox1.Value Sheets(ark).Cells(wrs, 2) = t1 If t1 = 0 Then Sheets(ark).Range("a&qu...
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...
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...
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...
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]...
Po wpisaniu w tą pętlę kodu - faktycznie chroni arkusz - ale tylko podczas otworzenia arkusza DANE, i próbę wpisu w niepowołane rubryki. Natomiast w czasie działania programu i wpisywania kwoty - da się wpisać w każdą kolumnę... To jest niemożliwe żeby nie chroniło. Chyba że nie w tym miejscu wpisałeś procedury. To ma być w procedurze przycisku Ok...
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...
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, 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...
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ć?
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"....
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...
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...
Niestety mi ten plik nie działa ale poniżej jest makro z uszkodzonego pliku i po wklejeniu do sprawnego pliku -działa dalej. wiec nie jestem teraz pewny czy to napewno makro ... Private Sub ComboBox1_Change() End Sub Private Sub UserForm_Initialize() lista1 = Array("Oferta", "Zamówienie", "Specyfikacja", "Pismo", "Protokół", "Reklamacja") ComboBox1.List...
Witam, Mam problem z moim kodem. (SAM DOSZEDŁEM DO ROZWIĄZANIA:) W swoim programie w Excelu napisałem kod który: 1- łączy się z tabelą w Accessie 2 -ma za zadanie wyszukać wszystkie wartości które mają w sobie słowo klucz 3 -następnie wprowadzić je do comboboxa tworząc listę. Niestety słabo się znam na SQl i wywala mi błąd. [syntax=vb]Dim strMyPath...
excel textbox combobox combobox textbox excel textbox
wzmacniacz hifonics schemat tranzystor łącznik regulator awaria załączania
electronic workbench zmywarka elektrolux
Jak podświetlić włączniki w samochodzie - diody LED i instalacja IMAP WP – jak włączyć dostęp IMAP w poczcie WP.pl, konfiguracja IMAP/SMTP, hasło aplikacji
