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")...
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...
To nie działa bo teraz czyta to jako tekst i mam zamiast 11 luty to 11-2. I nie wiem jak to zrobić żeby w textbox'ie użyć więcej niż 5 znaków bo chcę wpisywać też rok. TextBox ma właściwość MaxLength, domyślnie jest równa 0, musiałeś zmienić na 5 skoro robi ograniczenia długości.... A żeby nie czytał jako tekst dokonaj konwersji na datę przed zapisaniem....
problemem jest to ze data wyswietlana w listbox jest w amerykanskim formacie Bez obrazy, ale stwierdzam, że "leń patentowany" jesteś ... :-) ... "Rozwiązanie" masz pod nosem i sam się w pewnym sensie nim posługiwałeś. Właściwość " List " ... dlaczego nie sprawdziłeś składni tej właściwości ? " object.List(row, column) " Gdybyś zerknął w pomoc podręczną,...
Witam, na pytanie mickpr: tak, chcę w jednej komórce zamieścić tekst wielowierszowy. W załączniku przesyłam screena: Userform'a , właściwości textbox'a, o którym mowa oraz jak wartość w textbox'ie wstawia się do komórki. Proszę wstawiać obrazki według
Zrobiłem pewien plik, który jak się uruchomi wyskakuje okno UserForm z miejscami do uzupełnienia arkusza. Część tekstu wpisuje się w TextBox'y a część wybiera z list ComboBox'ów. Problem pojawia się wtedy gdy kliknę na listę ComboBox, Excel się zawiesza i bez zamknięcia z poziomu menadżera urządzeń nic się nie poradzi. Nie wiem co jest nie tak?
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...
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.
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...
Nie dużo wiem o VB ale... Zadziałało ci bez aktywowania? Pierwszy kod tzn który? Podrzuć przykład bo mi działa przy takich kodach: Private Sub UserForm_Initialize() GetObject ("c:\zeszyt1.xls") End Sub Private Sub CommandButton1_Click() Workbooks("zeszyt1.xls"... TextBox1 = Worksheets("Arkusz1")....
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...
excel 2007 vba 6.5 Dodano po 4 Moze ja opisze to dokladniej, być może o co innego nam chodzi. Utworzyłem w vba userform1 na którym dodałem textbox1 i commandbutton1 wpisuje ble ble w textbox1 klikam commandbutton1 i chcę żeby tekst ble ble wstawił mi się w utworzonym w arkusz1 wstaw->pole tekstowe 1
Dzięki wielkie. Szczerze- nie wiedziałem że jak dodam 'Frame' to niektóre kody trzeba zadać w inny sposób. W sumie to dodanie do UserForm ramek Frame fajnie i estetycznie wygląda ale w pewnym momencie stało się to kłopotliwe. Okno 'cmbUrodzony' jest w sumie w dwóch ramkach Frame ale zadanie kodu tylko w jednej obudziło działanie kodu do życia. Jeszcze...
Przyznam że nie do końca rozumiem o co chodzi... Jeśli mówimy o Change lub AfterUpdate - to zależy, kiedy chcesz akcję wykonac. Change będzie się wykonywała po każdej zmianie w kontrolce, i np. przy wpisywaniu 5 znakowego tekstu w textboxie wykona się pięć razy. AfterUpdate wykona się w tym czasie raz, ale dopiero przy po opuszczeniu pola. Jeśli zaś...
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)...
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)...
ok czaje ale mam inny problem: Private Sub TextBox1_Change() Dim tekst As String, wynik As String tekst = TextBox1.Value wynik = TekstEtykiety(tekst, "Magazyn") If wynik <> "" Then Label1.Caption = wynik Else wynik = TekstEtykiety(tekst, "Magazyn2") If wynik <> "" Then Label1.Caption...
Cześć Mam pewien problem z pętlą w UserForm. W formularzu mam m.in. dwa pola tekstowe, które muszę ze sobą połączyć. Kiedy do TextBox1 skanuje kod kreskowy to chciałabym żeby w TextBox2 pokazywała się nazwa tego produktu pobierana z listy w excelu właśnie po tym kodzie. Domyślam się, że trzeba to zrobić albo vlookupem, albo szukać po liście w jakiejś...
Mam funkcję sprawdzającą która sprawdza czy wprowadzona dana jest liczbą. Jeżeli jest źle ma krzyczy żeby poprawić i wraca do textbox'a. If IsNumeric(UserForm1.TextBox1.Value&#... = False Then MsgBox "Złe dane. Popraw." UserForm1.TextBox1.SetFocus 'TO TU Else UserForm1.TextBox1.Value = CStr(Round(UserForm1.TextBox1.Va... 2))...
Nadal błąd tym razem zmodernizowałem kod i dla próby zrobiłem miniaturkę mojego programu w którym chodzi o to by dane były wpisywane do arkusza poprzez formularz i po kliknięciu na formularzu przycisku oblicz wynik został wpisany do pola wynik w komórce D5 arkusza i zarazem pojawiał się na formularzu w TextBox4. Mimo że nie wywala błędu , tym razem...
UserForm1 Wartość/Szanse na powodzenie: W polu wartość wpisywana jest kwota - jak zrobić, żeby po wpisaniu liczby, automatycznie formatowałaby się ona 0000,00 ZL? W przypadku pola Szanse na powodzenie - liczba automatycznie formatowana do procentów. Komentarz: Czy można wprowadzić automatyczne zawijanie tekstu? UserForm3 Zakładka Inwestycje/Projekty...
Nie potrzebujesz dwóch okienek :) Rzutnik i tak wyświetla to, co masz na ekranie. Przeanalizuj kawałek kodu który na szybko napisałem w VBA w Excelu ;) Ja to zrobiłem tak: na formie umieściłem Label'e odpowiedzialne za: wyświetlanie odpowiedzi, wyświetlanie punktów zawodnika oraz 6 ukrytych (Visible = false) z X: po 3 z każdej strony, odpowiednik błędów....
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)...
Witam Po pierwsze zmiany w makro symbole narodowe na angielski w związku z tym mogą być błędy TextBox3.Value == w polu tekstowym tekst zawsze. trzeba przerobić na numer Ponadto sprawdź różnicę - arkusz -> Target(i).NumberFormatLocal = PodajFormat(.... makro -> Label3 = PodajFormat(..... Spróbuj oddzielnie - Label3.caption = format( 3, "0.000")
Ja go chyba trochę zrozumiałem. Troszeczkę inaczej bym to napisał (mniej tekstu - po co tak gmatwać) Stwórz okienko UserForm1 z jednym textbox'em przyciskiem Pod przyciskiem (kodem do przycisku) wklej coś takiego. Przejrzyj wcześniej komentarze i dostosuj do twoich warunków. Private Sub CommandButton1_Click() GetObject ("c:\Zlecenia...
Dane o czasie pracy zapisujesz w kolumnie F. Komórki sformatowane są jako Czas. To co się zapisuje w komórce to nie jest wynik z dzielenia, ale liczbowy zapis czasu tzn: 24:00 to jest 1, 12:00 to jest 0,5 itd. Wystarczy sformatować komórki kolumny F jako tekstowe. To co wpiszesz do Textboxa będzie bez zmian zapisane do komórki arkusza.
Z wypracowań na języku polskim miałeś pewnie piątkę.;) Możesz powyższe napisać w 3 zdaniach? Za czasów szkolnych umiałam wszystko napisać w 3 zdaniach – zarówno charakterystykę Boryny jak i rozprawkę o tym czy warto chodzić do szkoły – więc piątki z polskiego zawsze mnie omijały, ale mniejsza z tym. W 3 zdaniach – chcę żeby: W TextBox2...
userform textbox excel userform textbox excel textbox
17978 engine start kabel sharan programowanie pilotów alarmu skoda
suzuki burgman an400 bateria milwaukee
Częstotliwość 440 Hz i 330 Hz w radiu i TV – standardy lektorskie, tony testowe, EBU R128 Opóźnienie włączania silników na jednej fazie
