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
[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]
miał na myśli przykładowy plik programu Excel z tym UserForm
[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]
Witaj A1...A30, ......G1...G30 co to jest? Objekty? (TextBox, Combo, Button, UserForm) ?
Jeśli ListBox wypełniasz przez RowSource, to przepisz listę do tablicy tymczasowej, wyzeruj i przypisz tablicę. Coś takiego: [syntax=vbscript]Private Sub UserForm_Initialize() Dim tbTemp() tbTemp = ListBox1.List ListBox1.RowSource = "" ListBox1.List = tbTemp End Sub[/syntax] Wtedy możesz dodawać przez AddItem. W innym przypadku będzie komunikat "Permission...
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 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...
No męczysz trochę....
Witam, Możesz to zrobić prościej - przekazując referencję do kontrolki jako argument funkcji. Przykład: [syntax=vb]Private Sub TextBox1_Change() Call Wiadomosc(TextBox1) End Sub Private Sub TextBox2_Change() Call Wiadomosc(TextBox2) End Sub Private Sub TextBox3_Change() Call Wiadomosc(TextBox3) End Sub Private Sub Wiadomosc(ByRef sender As MSForms.TextBox)...
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ą,...
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.
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,...
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...
Witam [syntax=vb]Dim tb As Control Dim wiz As Boolean wiz = Not (Index = "") For Each tb In UserForm1.Controls If tb.Name Like "txt*" Then tb.Visible = wiz Next [/syntax] Jeśli jest to widoczne, ale zablokowany [syntax=vb]wiz = Index = "" For Each tb In UserForm1.Controls If tb.Name Like "txt*" Then tb.Locked = wiz Next [/syntax] nie zaleca się używania...
Fajne te Twoje pytania. ;) Ile sam sie przy nich uczę. ;) Znalazłem rozwiązanie na Twoje pytanie, daj mi 10 min to poskładam to czytanie i wrzucę tu. ;) [syntax=vb] Private Sub txtNazwisko_Change() Call AktualizujListe(txtNazwisko.Text, 0) End Sub Private Sub txtZnaczek_Change() Call AktualizujListe(txtZnaczek.Text, 2) End Sub Private Sub AktualizujListe(ByRef...
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, 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...
Dziwną drugą zmierzasz, jeśli bawisz się formantami ActiveX. Cały czas myśleliśmy, że jest to UserForm. Z ActiveX się nie bawiłem, więc nie pomogę. [syntax=vb] Private Sub TextBox1_Change() Dim MyCell As Range Dim MyRange As Range Dim DuplicateFound As Boolean DuplicateFound = False Set MyRange = Intersect(ThisWorkbook.Worksheets("4").R...
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...
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...
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...
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_...
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.
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)....
Witam, w ostatnim czasie chciałem utworzyć userform, w którym dokonywane będą skany kodów kreskowych (długość 14 znaków). Poniżej poszczególne etapy pracy formularza: 1)Skan kodu kreskowego w textbox, 2)Kopiowanie wartości text box (automatycznie/ textbox change() do akrusza karkulacyjnego, 3)Wyczyszczenie pola textbox oraz kolejne skany w kolejnej...
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...
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...
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...
Cześć, Próbuję wygenerować pdfa z takiego kodu, jednak ciągle wyskakuje mi ERROR 1004. Gdy textboxy, które będą stanowiły nazwę pdfa, są puste, wtedy mogę wygenerować plik, ale nie ma on nazwy. Zatem problem jest z zadeklarowaniem zmiennych, jednak już kombinowałem na różne sposoby i problem jest ten sam. Proszę zatem o pomoc. Private Sub pdf_Click()...
Mam rozwiązanie. Niech klawisz "0" nazywa się "C0" wtedy: Private Sub C0_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) C0.BackColor = &H80000010 ' Zmieniamy kolor przycisku End Sub Dla klawisza "1", który nazywa się "C1" Private Sub C1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer,...
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")....
Witam W programie mam kilka Okienek. W pierwszym wpisuję dane w kontrolki Textbox . Po wpisaniu określonego znaku w jedną z kontrolek wywołuję drugie Okienko i chciałbym aby w nim skopiowane zostały dane z pierwszego Okienka w kontrolki o tej samej nazwie (kontrolki mają te same nazwy co w pierwszym, ponieważ zostały skopiowane i pewna ich część została...
Co do kursora w okienku to w "sekcji" UserForm_Initialize() na końcu (przed End Sub) umieść "focusa" Private Sub UserForm_Initialize() ... ... ... TextBox1.SetFocus End Sub Jak możesz to zdejmij "opłatę" za załącznik w poprzednim poście - to dla ciebie pomoc nie odwrotnie. (skasuj załącznik i dodaj jeszcze raz z opcją wyłączenia punktów).
Nie wiem co mogłem zepsuć kopiując powyższą formułkę ale zwyczajnie nie działa. No ja też nie wiem... :) To jest label na UserForm'ie, który podpinasz w zdarzeniu Initialize? Edit: Mała korekta :) Zamiast zdarzenia Activate lepiej wykorzystać Initialize.
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]
Tak to wygląda [syntax=vbscript]Private Sub TextBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Select Case KeyCode Case 13 TextBox4.SelStart = 0 TextBox4.SelLength = Len(TextBox4.text) KeyCode = 0 If UserForm1.TextBox3.Value = "" Then Call szukaj(TextBox4) Else Sheets("wydruk").Cells(2, 2).Value = UserForm1.nazwa.Value...
Witam potrzebuję waszej pomocy. Próbuję stworzyć UserForm z dwoma listboxami które bazują na jednym textboxie i jednym comboboxie Pierwszy listbox służy mi do znalezienia użytkownika, nastepnie po wybraniu pozycji w comboboxie (nowy/istniejący) chciałbym aby w drugim listboxie pokazywało mi zamówienia tego klienta (lub nie jeżeli jeszcze nie dokonał...
Cześć Czy ktoś pomoże rozwiązać mój problem? :) W Excelu posiadam okno UserForm z polem TextBox. Chciałbym aby po wpisaniu numeru seryjnego np, G20A61627 excel wyszukał je w jednym z arkuszy w kolumnie oraz podał obecną godzinę w tym samym wierszu, natomiast kolumnę obok numeru seryjnego. Obecnie kod wyszukuje wolne pole w kolumnie "Data oddał" https://obrazki.elektroda.pl/6582089700_...
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ę,...
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. 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)...
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...
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)...
Nie wiem jaki jest sens używania własnego UserForma zawierającego te same właściwości co wbudowany w Excela Formularz ... https://obrazki.elektroda.pl/9755796900_...
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...
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...
1. if Szukaj_dalej = True Then moim zdaniem przycisk nie ma wartość, może mieć tylko zdarzenie click 2. UserForm należy tylko do wyświetlania lub danych wejściowych? 3. Private Sub TextBox2_Change() 'adres TextBox2 = ActiveCell.Offset(0, 2) End Sub dlaczego zmiany wpisu danych wybrano zdarzenie Change 4. Jaky Algorytm, który działa cały...
Ten parameter masz jako miesiące, nie lata... Czyli: [syntax=vbscript]TextBox6.Value = Format(DateAdd("m", Kalibracja1.Value, TextBox5.Value), "yyyy-mm-dd")[/syntax]
Jest jakikolwiek sposób aby w okienko textboxa wstawić przy pomocy skrótu klawiszowego ctrl + : bieżącą datę ? Ta samo jak wstawia się w excelu dlatego chodzi mi żeby ten sam klawisz pozostał w userformie.
Witam, to moje pierwsze kroki w tym programie i natknąłem się na pewną przeszkodę której sam nie jestem w stanie wyminąć. Mianowicie proszę o pomoc lub podpowiedź gdzie znajdę wytłumaczenie poniższego problemu. Chcąc od czegoś zacząć moją naukę z visual basic zrobiłem w Excelu kalkulator odsetek, stworzyłem odpowiedni userform i taki kod: [syntax=vb]Private...
Możesz odwołać się do wielu kontrolek w pętli np w ten sposób: 'definiowanie Dim tabl_kontrolek(1 To 6) As Control Set tabl_kontrolek(1) = Label1 Set tabl_kontrolek(2) = TextBox1 Set tabl_kontrolek(3) = Label2 Set tabl_kontrolek(4) = TextBox2 Set tabl_kontrolek(5) = Label3 Set tabl_kontrolek(6)...
Słuchajcie mam cos takiego: Szanowni koledzy juz sie trudze i trudze i ni hu hu nie umiem dobrnąć do konca :( otóż robię makro symulujące losowanie multilotka z tym ze potrzebuję jeszcze takiego myku który bedzie wskazywał ilość trafień. Zrobiłem juz user forma i skrypt mniej wiecej taki: Option Explicit Private Sub CommandButton1_Click() Dim Ilosc_liczb...
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...
W UserForm1 wystarczy zrobić 3 proste rzeczy: 1. Aby załadować dane do comboboxa, dodaj: [syntax=vb]Private Sub UserForm_Initialize() Dim ostTowar As Long With Arkusz2 ostTowar = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 cmbTowar.RowSource = "Towary!" & Arkusz2.Range("A2:A" & ostTowar).Address End With End Sub[/syntax] 2. Aby przepisywać towar do textboxa...
Ok. Jeśli chodzi o dodawanie pustych wierszy to wszystko jest już jasne. Mam kolejny dylemat związany oknem 'Ankieta'. Z tym już borykam się od dawna i niestety ja tego nie potrafię rozwiązać. W oknie jest filtr którym mogę sterować wyświetlaną listę pracowników. Na początku taki filtr wystarczał mi ale w trakcie mojej pracy okazało się że muszę się...
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...
Udało mi się uporać z usuwaniem wybranej pozycji. Natomiast nadal jest problem z dodawaniem, tzn. dopóki dodaję kolejne pozycje do bazy i nie zamknę userforma z dodawaniem jest prawie ok. Prawie, bo baza nie zawsze na bieżąco aktualizuje listboxa. Większy problem pojawia się wtedy kiedy zamknę userforma odpowiadającego za dodawanie firmy do bazy i włącze...
Która wersja Excela się wyłącza? Mógłbyś może podesłać kod tego makra? Wersja Excela 365, Kod makra : Private Sub CommandButton1_Click() Me.CommandButton2.Visible = True Me.CommandButton1.Visible = False Me.Height = 350 End Sub Private Sub CommandButton2_Click() Me.CommandButton1.Visible = True Me.CommandButton2.Visible = False Me.Height = 285 End...
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...
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))...
Witam, Przygotowuje narzędzie dzięki któremu druga osoba będzie mogła w prosty sposób dodać albo usunąć dane z arkusza. Dodawanie jest proste, gorzej z usuwaniem Stworzyłem UserForm a w nim TextBox1 gdzie użytkownik wpisuje wartość, którą chce usunąć. Po wpisaniu tej wartości w ListBox1 wyświetla się ta wartość lub sugeruje odpowiedź. Przykład: Użytkownik...
Dzień Dobry Jestem bardzo początkującym użytkownikiem i nie mogę poradzić sobie z problemem, zrobiłem arkusz w którym rejestruję wjazdy samochodów do firmy, wszystko ładnie działa tylko jeszcze te samochody wyjeżdżają i chciałbym odnaleźć wcześniej dodany wpis o wjeździe auta na zakład i po np godzinie odnaleźć ten wpis i jak będzie wyjeżdżał to zrobić...
Witam. Jestem żółtodziobem w temacie VBA i nie mogę przeskoczyć pewnej rzeczy, która pewnie jest banalnie prosta więc proszę o poradę a mianowicie jak przyporządkować dwie różne komórki w różnych arkuszach tego samego skoroszytu do jednego textboxa, inaczej mówiąć chciałbym wpisać coś w textboksie znajdującym się na userformie i chciałbym aby wstawiło...
Weź przemnóż wartości z komórek Q*R aby wynik był w komórce S, przeklej to jako wartości. A następnie odpal userforma i spróbuj zarejestrować coś i wróć do tych danych z początku tabeli Chodzi o to że nie wiem dlaczego ale na początku tabeli wywala mi równanie z kosmosu... 1 * 1158,57 = 115856511,00 ?!
Czesc, Niestety przyszlo mi dzialac w pracy przy pomocy OneDrive, nie kalsycznego serwera gdzie kazdy moze po prostu wejsc do folderu.... i pojawil sie problem z transferem plikow. Mianowice, potrzebuje stworzyc makro, ktore bedzie dosyc prostym UserFormem, w ktorym pozostali wypelnia podstawowe dane oraz za pomoca przycisku ''browse'' wskaza mi plik...
Mógłby być to exel, używam worda z uwagi na to, że łatwiej mi upchać po 3-4 tabelki na stronę :) Chodzi o to, że mam tabelkę z grafikami i chce wydrukować załóżmy na 6 tygodni. To wpisuje datę początkową i automatycznie na kolejnych kartkach wychodzących z drukarki data się zmienia. Excel ma coś takiego jak "wpasuj w stronę" w obcjach wydruku w ustawieniach...
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 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, Otóż jestem początkującym w tej dziedzinie nie mogę przejść pewnej bariery którą jest utworzenie zgodnego kodu. Chciałem stworzyć własny kalkulator, wszystko było dobrze dopóki nie zacząłem pisać kodu, który ma zadziałać. Prawdopodobnie źle formułuję polecenia które podkreśla mi na czerwono.. Tutaj podkreśliłem te błędy. Oto ten kod: Private...
wolałbym jednak zrobic to w excelu Rzecz w tym, że ostatni znak w stringu skanera musi być Enter'em (char 13), w przeciwnym wypadku komórka pozostanie w trybie edycji. Jeśli nie chcesz grzebać w konfiguracji skanera, to spróbuj z UserForm i sprawdzaniem długości ciągu przy TextBox_Change. Dołóż "licznik" sczytanych kodów, label z poprzednią zawartością...
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...
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")
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ć...
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...
Witam, Zrobiłem stany magazynowe oraz historię ich zmian. Mój problem polega na tym, że jak zrobię jakieś pobranie towaru to w historii zmian wszystko ładnie się wyświetla ale tylko ostatnia zmiana. Moje pytanie brzmi jak zrobić by w historii zmian pojawiały się wszystkie wpisy zmian wers pod wersem? A o to mój kod: [syntax=vb]Private Sub CmbAktualizujdane_Click()...
Witam Zajmuję się obecnie tworzeniem grafiku zatrudnienia. System jest dwuzmianowy. Wszystko będzie jeszcze rozbudowane, jednak stworzyłem już działające podstawy. Zatrzymałem się w trzecim UserForm3, gdzie należy wpisać dni w jakich pracownicy nie mogą przybyć do pracy, czyli ich wolne. Nie wiem zupełnie jak napisać program by odpowienie wartości z...
Mam problem. Mianowicie kod, który zaraz wkleje liczy liczbę sąsiadów komórek, w których są jedynki. W zależności ile tych komórek o wartości jeden jest u sąsiadów to dana komórka albo zmienia wartosć na 1(gdy jest 3 sąsiadów itp.) lub zmienia na 0 lub pozostaje przy swojej poprzedniej wartości. Gdy zmieni wartosć na 1 to automatycznie komórka zmieni...
Witam Mam taki problem: zrobiłem pewien UserForm w którym znajdują się TextBoxy od 1 do 10. W TextBoxach od 1 do 9 wpisuje wartości, które są wpisywane w odpowiednie komórki w arkuszu np. od A1 do A9. TextBox10 powinien za to pokazywać wynik obliczeń z komórki A10. Tak się jednak nie dzieje ponieważ jak wpiszę tylko jedną wartość, obojętnie w którym...
Ok mam już coś takiego [syntax=vb]Private Sub CommandButton2_Click() Dim i As Integer For i = 3 To 12 Selection.NumberFormat = "General" Cells(i, 3) = "='" & Link(TextBox1.Text) & "[" & Nazwa(TextBox1.Text) & "]Input'!$C$" & i Next i For i = 14 To 287 If i <> 32 And i <> 33 And i <> 103 And i <> 104 And i...
Hej! Potrzebuje troche pomocy z VBA i uzyciem autofiltra. Mam okno z UserForm gdzie sa 2 pola do podania danych (textBoxes). W jednym mozna podac imie osoby a w drogim nazwe miasta. Staram się zrobić kod z Autofiltr, gdzie na podstawie wprowadzonych informacji VBA filtruje mój arkusz: - Jeśli ktos podal imie osoby, to patrzy sie na kolumne Q i wyszukuje...
Deklarację zmiennej wrs umieść w nagłówku i dodaj usuwanie... Coś w ten deseń [syntax=vb]Dim wrs As Long Private Sub EMAILONE_Click() 'MsgBox "i tu przepisujesz odwrotnie niż wczytanie przy Initialize" & vbNewLine _ & "czyli najpierw Find w razie poprawki a jeśli Err>0 to do ostatniego wiersza" With Sheets("DANE_PRZETWORZONE") ostatniwiersz1 = .Range("A65536").End(xlUp).Row...
staram sie pisac po polsku :) nie pamietam jeszcze ak dobrze wszystkich technicznych... sory :) staram sie... w UserForm1 mam cztery Frame w ktorych mam CheckBox'y i textpol'a - w frame1 moze byc jeden i tylko jeden checkbox odznaczony jesli inazej to blad - w frame2 to samo - w frame3 musza byc wypelnione wszystkie textpola - frame4 tylko jeden. chcialbym...
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...
Sprawdzasz który jest zaznaczony wiersz (pozycja) i wiedząc to przyporządkowujesz poszczególnym textboxom poszczególne pozycje ze stworzonej przez ciebie "listy". Ale nie wiem do końca czy o to ci chodziło. Pod przyciskiem edytuj wstaw: [syntax=vb]' Wprowadzenie danych z listy do okienek pozycja = lstSala.ListIndex If pozycja = -1 Then MsgBox "Nie wybrano...
[syntax=vb]Sub Makro1() UserForm1.Show Range("A1").Value = UserForm1.TextBox1.Text End Sub[/syntax]
Witam wszystkich forumowiczów Jestem początkującym użytkownikiem vba i natrafiłem na problem, przez który nie mogę ruszyć dalej: Stworzyłem Userforma, który ma za zadanie przenosić wartości z textboxów do kolejnych pustych komórek. Makro działa dobrze, jednak mam problem z numeracją wiersza w pierwszej kolumnie w tej samej linii, w której wprowadzane...
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
Okej a więc udało mi się uzyskać ścieżkę ale nadal jest coś nie tak + nie wiem jak zmienić nazwę pliku na nową. [syntax=vb]Sub upload() Dim fd As FileDialog Dim vrtSelectedItem As Variant Set fd = Application.FileDialog(msoFileDialogFile... With fd .AllowMultiSelect = False .Title = "Chose file to add" .Filters.Clear .Filters.Add "PDF", "*.pdf"...
Witam Próbuję odwołać się do procedur z poziomu vba, ale powstaje błąd 449 arument not optional i nie bardzo wiem co z tym fantem zrobić. Chciałbym, żeby procedury były wykonywane dlatego odwołuję się do nich za pomocą Call. Może coś robię nie tak, dziękuję za każdą pomoc, kod wygląda tak: Błąd występuje w linii Call OpenEcxel. Te procedury znajdują...
Dzień dobry, Chciałbym wrócić do tego tematu. Czy istnieje sposób, dzięki któremu poprzez zastosowanie vba będę mógł wprowadzić odpowiednie dane do Userforma pobrane z Accessa? Posiadam prowizoryczną bazę danych, którą później rozbuduję do około 150 klientów. Potrzebuję, by po otwarciu pliku z kwitem wagowym i uruchomieniu programu w vba, pobrać potrzebne...
Witam, Napisałem sobie programik, w którym zrobiłem UserForma do wprowadzania danych do arkusza. Po uruchomieniu go na komputerze w pracy ten właśnie UserForm nie działa. Kiedy chcę zapisać wprowadzone w nim dane pojawia się błąd: http://obrazki.elektroda.pl/2480258900_1... [syntax=vbscript]Private Sub Anuluj_Click() Unload Me End Sub...
Do zdjęci jest określona pełna sciezka: DOSTAWCA = Workbooks("Reklamacje 2015.xlsm").Sheets("TE... NUMEREK = UserForm1.TextBox1.Text sciezka = "\\sts0004\QS-test\REKLAMACJE\Zarza... Reklamacjami\Reklamacje do dostawcow 2015\" & DOSTAWCA & "\LR15" & NUMEREK...
Czy jest możliwość jakiejś aktualizacji przed przełączeniem do userform Ps3Kupno bo po dodaniu nowej pozycji za każdym razem muszę zamykać user form żeby zaczęło działac? [syntax=vbscript]Private Sub cmbSubmit2_Click() If TextBox1 = "" Then Call MsgBox("WPROWADZ DANE") Else Dim sheet As Worksheet Set sheet = ThisWorkbook.Sheets("List") nr = sheet.Cells(Rows.count,...
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....
Witam raz jeszcze, Mam nadzieję, że piszę już po raz ostatni w tym temacie, ale nie daje mi on spokoju, ponieważ makro traktuje wszystkie procedury jako True. A sądząc z warunku If, jeśli nie znajdzie odpowiedniego wymiaru w tabeli, to powinno być False. Nie wiem też czemu po podświetleniu w kodzie słowa knyps, zawsze wyświetla się knyps=True, a moim...
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ć?
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...
Jak wyżej ;) Data w Excelu zapisywana jest jako liczba i nie ingerowałbym w to. Formatowanie daty radziłbym stosować tylko dla estetyki formularza. Czyli: 1. User wpisuje datę do TetBoxa 2. Sprawdzamy czy wartość jest datą 3. Zapisujemy w "bazie" lub później, przy zapisie 'cells() = DateValue(TexBox.value) 4. Formatujemy w formularzu (coby ładnie, nie...
userform textbox userform textbox excel tekst userform excel
master maska alternator diesel gruba bateria
samsung wf70f5e0w2w bafang bateria
Lokalizacja czujnika skrzyni biegów Fiat Idea 1.4 Dualogic VW Passat B5 1.9 TDI - Zawór EGR otwiera się na zimnym silniku
