[syntax=vbscript]Private Sub CommandButton1_Click() Dim W As Workbook Set W = Workbooks.Open("C:\PlikiExcela\Zeszyt1.x... W.Sheets(1).Range("A1") = Me.TextBox1 W.Close vbYes End Sub[/syntax]
Nie, w UserForm, w sekcji UserForm_Initialize: Private Sub UserForm_Initialize() MultiPage1.Value = 0 DTPicker1.Value = Date MultiPage1.Value = 1 DTPicker2.Value = Date MultiPage1.Value = 2 DTPicker3.Value = Date End Sub
W poprzedni temacie załączony plik był pozbawiony tych błędów. Popełniłeś dwa błędy podczas dostosowywania kodu do własnych potrzeb: 1. W Arkuszu1 w kolumnie B muszą być unikalne wartości. Po tej kolumnie wyszukujemy wybraną pozycję z listy. W przesłanym pliku była pusta i dlatego był błąd wynikający z kodu: [syntax=vbscript] indeks = Application.Match(szukana,...
Witam wszystkich, jako że dawno nie miałem okazji popracować z makrami to niestety pojawił się problem potrzebuje napisać makro które przeszuka cały skoroszyt z 41 arkuszami i aktywuje ten który w komórce B1 ma taką samą datę jak w userform wpisaną w textbox. Dzięki za wszystkie podpowiedzi.
Jak najszybciej i najprościej przemieścić informację z textboxa do listboxa o ograniczonym zakresie komórek (30)? Pytanie jest spowodowane brakiem wiedzy i pomysłu.
próbuję właśnie formularzem, mam formularz i TextBox1, TextBox2... i na końcu ComboBox1. W załączeniu podesłałem jak wygląda. Teraz musiałbym do przycisku dodać pewnie to makro które pisałem, a do zmiennych tych WIP, TAT itd podłączyć jakoś że ma brać wartości z pól w userform textbox 1, 2,itd. tylko nie wiem jak. Podpowiedz plz
Witam, mam taki niewielki problem związany z kolejnością elementów zawartych w Userform. Okno Userform służy do zobrazowania wyboru składników z arkusza. Dodatkowo aby poprawić efekt wizualny zastosowałem linie w postaci zminimalizowanych TextBoxów (14, 15 i 16) na tle TextBox 12 (normalnie tworzą wyimaginowane okna zobrazowanych danych). Aby bardziej...
Cześć, przychodzę z takim problemem: w userform dodałam textbox, w który należy wpisać datę. Mój kod to na razie coś takiego: [syntax=vbnet] Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0 MsgBox "Wpisz cyfre!" End If End Sub Private Sub TextBox1_change() TextBox1.MaxLength = 10...
Witam znowu mam kłopot - mam na UserForm TextBox, z którego po naciśnięciu klawisza Wstaw dane z TextBox'a wstawiają mi się do Arkusza w wyznaczoną komórkę kodem: [syntax=vb] Private Sub Wstaw_Click() Range("A222").FormulaR1C1 = TextBox18.Text End Sub [/syntax] Problem pojawia się, gdy w TextBox przechodzę Enterem do kolejnej linii, bo po przeniesieniu...
Mam jeszcze jedno pytanie- mam w userform pola tekstowe textbox oraz przycisk. Chciałabym, aby po jego przyciśnięciu wszystkie pola były puste, bez tekstu. Ale tych pól mam dość sporo i nie chcialabym do każdego pisać oddzielnie komend txtBox1.Text= Empty bo zajęłoby mi to mnóstwo miejsca. Czy jest jakaś mozliwośc by w krótszej komendzie objąć zakres...
Prośba o pomoc. Potrzebuję rozwiązać taki problem: mam utworzony userform z dwoma textboxami. Jak napisać procedurę aby po wpisaniu tekstu do textbox1 w drugim textbox2 wyświetlana była wartość przypisana w bazie do wartości w textbox1. Innymi słowy, jeśli w arkusz1 komórce A1 jest wartość "ZORRO" a w komórce B1 jest wartość 23 to chciałbym aby po wpisaniu...
Witam. Bardzo proszę o pomoc w napisaniu odpowiedniego kodu, niestety ja sobie nie umiem z tym poradzić. Potrzebuję aby kod sprawdzał mi czy w wybranym folderze istnieje plik "PDF". Dokładnie to mam w oknie UserForm TextBox o nazwie "txtNazwiskoImie" w którym pokazuje mi się pracownik. W osobnym folderze (ścieżka folderu jest taka sama jak główny plik)...
Proszę o pomoc. Próbuję stworzyć aplikację "Menadżera pracy pojazdów". Mam problem z formatem wyświetlania czasu wprowadzonego w okienku UserForm. W Textbox wpisuje czas (w formacie hh:mm), a w ListBox pokazuje mi wynik dzielenia a nie czas (hh:mm), a do arkusza przerzuca prawidłowo. Nie wiem gdzie ustawić prawidłowy format. Z góry dziękuję za pomoc...
Sprawa jest zapewne prosta, ale siedzę już kilka godzin nad tym i nic nie mogę znaleźć w tym temacie. Ogólnie mam jakiś tam plik w którym otwiera się okno TextBox ze zwykłym butonem który ma potwierdzić wprowadzone zmiany w oknie TextBox. Napisałem taki kod do tego UserForm: Private Sub CommandButton1_Click() Arkusz2.Range("A3")...
Ale co to ma robić? ;) W UserForm podajesz warunek, a w TextBox pojawiają się po kolei zawartości komórek spełniające ten warunek?
Witam, chciałbym skopiować dane po nacisnięciu przycisku z userform z otwartego pliku txt np: "C:\notatnik.txt" do textbox w userform (mam 5 textboxów gdzie dane z 5 wierszy w pliku txt mają być skopiowane do textboxów np: 1 wiersz z txt do textbox1, 2 wiersz z txt do textbox 2 itd). Po każdym imporcie danych plik txt jest czyszczony i zapisywany. https://obrazki.elektroda.pl/6886566600_...
Witam was czy jest możliwość po najechaniu myszka na pole TextBox lub Label w UserForm aby pojawił się komunikat np. kliknij dwa 2 razy ?
mam okno UserForm w którym jest tylko jedna kontrolka (...) TextBox zaczyna wykonywanie funkcji po kliknięciu na niego W takim razie dlaczego TextBox? Intuicyjnym rozwiązaniem jest Command Button. Tekst, jeżeli występuje, możesz przypisać do Caption. Jeśli to istotne, wygląd sformatować tak, żeby przypominał TextBox.
1. Zdecydować się na jakiś konkretny sposób wyszukiwania: For Each Next, For Next, Match, Find, itd. 2. W zależności od niego ułożyć kroki postępowania: a) zmuszenie użytkownika do satosowania jednego zapisu daty w TextBox - dowolność wykluczona b) weryfikacja poprawności wprowadzonej daty c) konwersja na datę 3. Wyszukiwanie w danym zakresie 4. Reszta...
Tak, w jednym polu TextBox mogą być wpisywane symbole np. 1; P; P1; 5,5. Wszystkie dniówki zawsze będę wprowadzał z okna UserForm wiec kod musi działać w TextBox-ach
Kolega Taczan podał mi kod którym mogę zmniejszyć tan mój bardzo długi kod, i tak zrobiłem jak mi napisał ale to wywaliło błąd który zaznaczył się na żółto. Ps. tak przy okazji w tym temacie. W oknie UserForm mam pole TextBox w którym chcę sprawdzić duplikaty, a dokładnie duplikaty w komórkach arkusza. Jak pokazałem na poniższym kodzie wszystko jest...
Ale gdy wskazujesz obszar to ten inny skoroszyt staje się aktywnym (no bo jak wskazujesz obszar bez aktywacji innego skoroszytu) żebyśmy się dobrze zrozumieli mam otwarte dwa pliki (a plik z makrem) i (b - dowolny inny) żeby wskazać obszar pliku b muszę go wywołać.(czyli otwierasz a uruchamiasz userform przechodzisz do pliku b wtedy uruchamiasz inputbox)
Witam, Odświeżam temat mam problem dopiero się uczę i nie wiem jak pobrać z tak wygenerowanego TextBox wczesniej przypisaną wartość t = 1 ' TextBox Set NewTextBox = Me.Controls.Add("Forms.textbox.1") With NewTextBox .Name = "TextBoxNrZl" & t .Value = Sheets("Dane zasilające").Cells(i, 16) .Top = yStart .Left = xStart + 15 .Width = 60 .Height = 18 .Font.Size...
Dzieki bardzo, Wlasnie chcialem dac ci znac ze ogarnalem temat, jesli mozna mam jeszcze dwa pytania, co do pytania odniosnie nazw kontrolek to zapisuje je tak zeby pozniej wiedziec o co chodzi - mam mala sciage, (wiem ze to moze wydawac sie smieszne, ale dopiero sie ucze) 1) w tym samym userform udalo mi sie zrobic podsumowanie z listbox (textbox1)...
Czy mógł by mi ktoś pomóc? Jestem zielony i nie znam sie na programowaniu w VBA. Wykonałem formularz z wykorzystaniem UserForm i chce dodać każdą daną z Textbox do arkusza i to mi się udaje, ale chce aby kolejne wpisanie wartości do TextBox było wpisywanie do wiersz a poniżej, a nie zastępowało te poprzednie. http://obrazki.elektroda.pl/1247350200_1...
Witam, mam userform w którym wyświetlane są recordy z arkusza "Baza". Jednym z tych pól jest data gwarancji (kolumna G). W bazie zapisana jest w formacie rrrr-mm-dd natomiast w formularzu w textbox wyświetla się w formacie mm/dd/rrrr. Jak to zmienić żeby wyświetlało się w formacie rrrr-mm-dd jak w bazie.
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...
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...
Panowie, Dziękuje za pomoc. Widzę, że mało czytelnie predstawiłam problem. Chodziło mi o zastosowanie maski w textbox do wprowadzania daty. Maska w postaci ____-__-__ jest wprowadzona do textboxa jako text i tag. Opis maski w kodzie powyżej. Problem pojawia się w momencie jeżeli wprowadzimy datę do bazy zapiszemy nowy rekord i przeszukujemy ponownie...
O to mi chodziło, nie wpadłem na to żeby dwa razy przekazać tą samą zmienną. Wartości vWi i vPo potrzebuje bo o od tego zależy jakie wartości z tablicy mi pobiera. Myślę, że to rozwiązuje problem. Co do Change i AfterUpdate to oczywiście znam tą właściwość dlatego skłaniam się raczej do AfterUpdate ale czasami obserwuje niepożądane działanie. Np w tym...
Witam Szukałem długo w internecie w jaki sposób sprawdzać dane z UserForma z dwóch TextBoów (w moim przypadku TextBox i ComboBox) przed wprowadzeniem do arkusza Excela stanowiącego bazę danych. Chodzi o to, żeby w bazie danych nie dublować pozycji i jeżeli dane są w bazie, to żeby makro wyrzuciło komunikat, że te dane już są. Czyli wprowadzane dane...
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]...
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ć?
w TextBox wpisywana jest wartość raz z lewej strony a raz z prawej Zdaje się, że kolega Marek003 już z tym walczył. Co wywalczył, nie pamiętam, trzeba by poszukać tematu. Co do stawki. Wszystko jedno czy będziesz pobierał ją z label.caption, czy przypisywał do zmiennej. Jeśli do zmiennej, to poskładaj label.caption (jest typy String) przy UserForm.Initialize.
Pierwsze zadanie moze byc wykonane za pomoca procedury: Sub ReverseText() Selection.TypeText (StrReverse(Selection.Text)&... End Sub Drugie byc moze powinno wygladac tak: Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 32 Then TextBox1.Locked = True End If End Sub ... oczywiscie po wczesniejszym...
Witam Do formatowania dat w TextBox-ach używam poniższego makra. Jak zrobić, żeby takie jedno makro działało na wielu TextBoxa-ch o różnych nazwach? Potrzebuję, aby to makro działało na około 60 TextBox-ach. Jak mogę dodać je do tego makra? [syntax=vb]Public Function FormatyDat() As String With UserForm .TextBox = Replace(.TextBox, "-", ".") .TextBox...
Kontynuując, pola tekstowe należałoby "uporządkować numerycznie" zaś jedną etykietę (data) nazewniczo, np. tak: [syntax=txt]lab_dzis => 'Etykieta z wyświetlaną "dzisiejszą datą" TextBox1 => 'Nazwisko TextBox2 => 'Ulica TextBox3 => 'Kod pocztowy TextBox4 => 'Miejscowość TextBox5 => 'PESEL TextBox6 => 'NIP TextBox7 => 'Telefon TextBox8 => 'Pocztel TextBox9...
Jest tam wykorzystana kontrolka 'dtPicker' Potwierdzając problem z cytowanego przez autora wątku i dyskusję o problemach z tą kontrolką - oto zachowanie tego pliku na moim komputerze :) http://obrazki.elektroda.pl/5826995400_1... Czyli tak jak mówiliśmy - dateTimePicker = samo zło :D Plik kalendarza rozbudowany o textbox do wyboru godziny...
[syntax=vbscript]Private Sub CommandButton1_Click() Sheets("Test").Select nw = Cells(Rows.Count, "E").End(xlUp).Row + 1 For x = 5 To 17 t = "TextBox" & x - 4 Cells(nw, x) = Me.Controls(t) Me.Controls(t) = "" Next End Sub [/syntax]
Kod łatwiej się czyta, kiedy umieścisz go w znacznikach... Na Twoim miejscu zacząłbym od usunięcia [syntax=vb]On Error Resume Next[/syntax]bo to, że błędy ukrywasz nie znaczy, że one znikną... Nie wiem też, czemu mają służyć te linijki z XlApp - jeżeli chcesz się odwołać do bieżącego pliku, to się robi inaczej (zakłądajc, że jest to makro w Excelu)......
Witam, proszę o pomoc w poniższym. Robię arkusz do skanowania wyrobów, które przyjeżdżają na magazyn. Zrobiłam to za pomocą formularza w VBA. Chciałabym aby w przypadku gdy któryś z TextBoxów w formularzu nie będzie posiadał tekstu to automatycznie po zatwierdzeniu będzie wpisywać się wartość "brak". W załączniku podgląd. mój kod: https://obrazki.elektroda.pl/7807554200_...
No męczysz trochę....
Możesz to zrobić w ten sposób: [syntax=vb]Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If Shift = 2 And KeyCode = 186 Then TextBox1.Text = Date End If End Sub[/syntax]
Spróbuj w 'Private Sub TextBox_Historia_klienta_Exit' dopisać na końcu (przed End If) https://obrazki.elektroda.pl/1635878000_... tak mam ustawiony format daty w OS.
Taki przykład. Na jednej formie mam ListBoxa, który w zdarzeniu initialize pobiera dane z tablicy1 (wcześniej załadowane od tablicy z arkusza) . Procedura w zdarzeniu Change (TextBox) filtruje dane w arkuszu (poprzez porównywanie ciągów w TextBox i arkuszu) i tworzy nową tablicę2 z pasującymi rekordami, która trafia do tego listBoxa (w miejsce tablicy1)....
[syntax=vbnet] For Each Ctrl In UserForm1.Controls If Not TypeName(Ctrl) = "Label" Then If TypeName(Ctrl) = "TextBox" And Ctrl.Value <> vbNullString Then ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(0, 1).Value & Ctrl.Value & vbNewLine End If End If Next [/syntax]
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?)
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 pół godzinie wczytywania się załapałem (chyba) o co chodzi. Po pierwsze czy aby na pewno nie będzie interesowało cię za co klient zapłacił? Bo czyszczenie danych i przygotowywanie do kolejnego "wpisu" zlikwiduje szczegóły (składowe) danej wpłaty. Druga rzecz związana z brakiem sumowania. Może jest błędna formuła (nie uwzględnia wszystkich komórek)...
userform textbox excel userform textbox excel tekst userform makro
podgrzewacz junkers spawarki inwertorowej ciśnienia passat
suzuki burgman an400 bateria milwaukee
Stukanie z tyłu Fiata Bravo przy puszczaniu gazu - przyczyny i rozwiązania Fiat Grande Punto 2.4 8v nie odpala po wymianie pompy paliwa
