Tak masz zasięg w całym formularzu (i projekcie, dopóki formularz jest otwarty): Private Sub UserForm_Initialize() GetObject ("c:\zeszyt1.xls") Workbooks("zeszyt1.xls"... End Sub Private Sub CommandButton1_Click() TextBox1 = Worksheets("Arkusz1")....
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")...
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...
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ą,...
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.
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...
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...
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...
Może i jestem ciemny ale zaczyna mnie to przerastać. Kod wklejam np. do klawisza ActiveX który jest w arkuszu i po kliknięciu na niego mam taką informację: http://obrazki.elektroda.pl/7107949200_1... Klawisze które kod ma zablokować również znajdują się w tym samym arkuszu. Ale w sumie to nie jest żaden problem bo mogę zostawić to tak...
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. Dodano po 9 marcinj12: z tym jest wszystko OK. Sprawdziłem to wcześniej i jest ustawione na dd-mm-rrrr. Jak użyje tego co mi adamas_nt podał to też jest lipa nie mam pojęcia jak to zrobić.
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...
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
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)...
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ś...
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...
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...
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))...
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)...
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...
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?
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....
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")
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ś...
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...
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)...
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 userform excel
kluczyk skoda mikrofon urwane przewody ustawienia nagrywania dzwieku
zasilacz impulsowy silnika saeco royal
Drut nawojowy 0,05 mm: grubość z izolacją Błąd E26 w zmywarce SMEG - przyczyny i rozwiązania