userform textbox excel

Jak ustawić format daty w TextBox w UserForm w Excel VBA?

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

[VBA/Excel] UserForm z polem TextBox

[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 znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

VBA Excel - TextBox: Jak wyświetlić aktualną zawartość komórki?

miał na myśli przykładowy plik programu Excel z tym UserForm

Uzupełnianie tabeli w Excel VBA za pomocą wartości z 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]

Excel- Szychtownica: Jak zminimalizować długie kody VBA?

Witaj A1...A30, ......G1...G30 co to jest? Objekty? (TextBox, Combo, Button, UserForm) ?

VBA Excel: Jak przenieść dane z TextBox do ListBox w UserForm z limitem 30 komórek?

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...

VBA Excel - Jak wyświetlić dane z arkusza w textbox na userform?

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...

[vba][excel] - Jak sprawdzić numer indeksu kontrolki na UserForm

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)...

EXCEL VBA - Walidacja cyfr i przecinka w TextBox1 podczas wpisywania kwoty

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.

Excel VBA - Formatowanie dat w wielu TextBox-ach jednym makrem

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...

Excel/VBA - Zapełnienie kolejnych komórek textboxami - wyskakujące UserForm

No męczysz trochę....

Excel VBA - Combobox - wypełnianie listy dla szukanej wartości

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,...

[Excell] Jak ustabilizować format daty w Listbox UserForm?

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ą,...

Excel VBA - jak podpiąć listę towarów do ComboBox i wstawić dane do arkusza?

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...

VBA Excel - ComboBox a dane wyświetlane w UserFormie

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,...

Excel VBA - Jak zablokować 64 TextBoxy w UserForm pod warunkiem?

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...

Excel: Automatyczne numerowanie listy pracowników w kolumnie 'A' po dodaniu

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...

Jak ograniczyć liczbę kontrolek w Userformie VBA dla planowania produkcji?

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...

[VBA][Excel] Dynamiczne tworzenie etykiet na formie UserForm

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...

Excel UserForm – jak zapisać stan CheckBoxów po zamknięciu i ponownym otwarciu?

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...

EXCEL VBA - Jak wyłączyć zdarzenia dla CommandButton?

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...

Excel 2003/VBA - Zawieszanie się przy użyciu ComboBox w UserForm

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...

Wstawienie nowej wartości do arkusza Excel z formularza

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...

Jak dodać wybór godziny do kalendarza w Excel VBA?

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...

EXCEL VBA - Enter kwadraciki po przeniesieniu danych do arkusza z TextBox'a

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...

VBA excel - Kopiowanie danych z pliku txt do textbox

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_...

Excel - Jak usunąć focus z TextBox po wykonaniu makra?

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.

VBA Excel - jak poprawnie zorganizować struktury programu z UserForm'ami?

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)....

VBA EXCEL; Kopiowanie wartości textbox do pierwszej pustej komórki w arkuszu

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...

Visual Basic: Jak wyświetlić dane z komórek A1 i B1 w polach tekstowych?

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")....

vba,programowanie,excel - Odświeżanie OptionButton.

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 2010 VBA - formatowanie czasu w UserForm i ListBox

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...

VBA EXCEL Jak uniknąć ERROR 1004 przy generowaniu PDF z nazwą z textboxów w VBA?

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()...

[VBA/Excel] - Dodawanie nowego wiersza do arkusza na podstawie danych z forma

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...

Excel makro kalkulator - Kod do Enter nie zapisuje danych z textboxa

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,...

Excel- Okno UserForm, wyświetlanie i sprawdzanie formatów.

Chciałbym zadać kilka pytań związanych z wyświetlaniem i sprawdzaniem formatów w oknie 'UserForm'. Jedno z nich: mam poniższy kod umieszczony w oknie 'TextBox' Ogólnie to kod dział poprawnie jednak problem pojawia się kiedy okno 'TextBox' umieszczę w 'Frame', wówczas kod przestaje działać i nie informuje mnie o niepoprawnie wprowadzonej formie daty....

Excel VBA Kopiowanie danych z jednego Okienka (UserForm) do drugiego

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...

Makro w excelu. Dlaczego suma nie zostaje obliczona?

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).

EXCEl/VBA - Liczba miejsc po przecinku w zależności od listy z Combobox

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]

Jak wyświetlić dane po wyborze z Combobox w Userform w Excel VBA?

Witam Dziś postanowiłem pobawić się Combobox'em. Może ktoś pomoże jak mógłbym to zrobić i czy jest to do zrobienia. Chce w Userform'ie zrobic Combobox'a z listą - to osiągąłem przez: Private Sub UserForm_Initialize() Worksheets("Arkusz1").... ComboBox1.RowSource = "B5:B170" End Sub Listę mam a chciałbym aby...

Jak dynamicznie wyświetlić wartość z komórki Excel w TextBox VBA?

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.

UserForm z 2 listboxami które bazują na 1 textboxie i 1 comboboxie excel vba

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ł...

VBA - Szukanie ciągu znaków oraz podawanie godziny (w komórce obok)

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_...

Excel- wydruk jednego arkusza dla wielu pracowników

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...

Excel VBA - Automatyczne sprawdzanie istnienia plików PDF w folderze

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)...

VBA EXCEL: Jak zastąpić MsgBox userformem w pętli wyszukiwania?

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...

[VBA Excel] Jak skrócić/sprawnie poprawić ten kod?

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)...

Excel VBA - Dodawanie danych z TextBoxów do kolejnych pustych rzędów - użycie For

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_...

Jak ustawić focus na pole formularza po wydruku etykiet VBA Excel?

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...

Excel VBA – jak scalić i obramować komórki kodem w programie magazynowym?

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...

[vba-excel] Jak dopisać dane do kolejnego wiersza w Excel VBA?

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...

Jak napisać skrypt w Excelu do symulacji losowania Multi Lotka?

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...

Wyłączający się plik Excela

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...

EXCEL / VBA - UserForm zapisuje dane w tym samym wierszu po kliknięciu przycisku

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...

VBA Excel - Automatyczne daty w UserForm zależne od wartości TextBoxa

Ten parameter masz jako miesiące, nie lata... Czyli: [syntax=vbscript]TextBox6.Value = Format(DateAdd("m", Kalibracja1.Value, TextBox5.Value), "yyyy-mm-dd")[/syntax]

VBA Excel - Textbox, przypisywanie danych z arkusza

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...

VBA - Wstawianie bieżącej daty w TextBox za pomocą Ctrl + : w UserFormie

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.

[VBA][Excel] Nadawanie wartości wielu polom na UserFormie

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)...

Excel- Kwestionariusz pracownika. Rozszerzenie możliwości pliku

Ja będę chciał jeszcze trochę rozwinąć temat powyższej 'Ankiety' i jeszcze dodać do filtra dodatkową opcję. Jak widać na załączonym screenie dodałem do filtra jeszcze jedno okno 'ListBox' z pracownikami. W zaznaczonym kółeczku jest wstawione okno 'Label', jak zrobić aby w oknie 'Label' pokazało mi ilu pracowników jest zaznaczonych w powyższej liście?...

Dodawanie pozycji do bazy przez Userform jaka pętla VBA excel?

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...

Excel VBA - Jak przyporządkować dwie różne komórki do jednego textboxa?

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...

Aktualizacja ilości sztuk w bazie magazynowej Excel VBA po wyborze w ComboBox

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...

VBA Excel - wartość z textboxa definiuje listę do comboboxa oraz różnica dat

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 ?!

Jak uniknąć błędu dzielenia przez zero w VBA Excel przy pobieraniu danych?

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...

Visual Basic w Excelu - Błędy w kodzie kalkulatora, jak je naprawić?

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...

Excel VBA: Formatowanie kwot i procentów w UserForm1 oraz edycja projektów

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...

Excel VBA - zaznaczanie całego tekstu w TextBox po błędzie danych

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))...

VBA Excel - Usuwanie danych w arkuszu za pomocą ListBox

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...

VB - Visual Basic 2010 Express - problem z operatorami

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...

[VB] Jak stworzyć grę wzorowaną na Familiadzie w Visual Basic na Win XP?

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....

[vba][Excel] - Dodawanie pozycji listy do CmboBox (AddItem)

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]...

Excel/VBA - Integracja UserForm z formatowaniem liczb w Arkuszu1

Witam, Posiadam programik (nie ja go pisałem) który zmienia format liczby w zależności od podania ilości liczb znaczących oraz rozdzielczości liczby. Programik działa idealnie. Programik jest przypisany do Worksheet Arkusza1. Natomiast chciałbym program ten połączyć z UserForm wraz z textboxami. Podanie w textboxach liczby cyfr, rozdzielczości oraz...

Jak sprawdzić unikalność danych z UserForm w Excelu przed dodaniem do arkusza?

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ć...

[excel] Jak edytować zaznaczony wiersz w ListBox na UserForm w Excelu?

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...

Excel VBA: Jak zapisać wszystkie zmiany w historii wers pod wersem?

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()...

VBa Excel(makro, Pętla do utworzenia "Listy" wpisywanej w arkusz Exela

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...

Jak przyspieszyć działanie makra w Excelu do zmiany wartości komórek?

Ale dlaczego tak? 1. Rozmiary różnią się o 1. 2. Przesuwasz tabelę o 1 w lewo i 1 w górę. Dwa skrajne wiersze i dwie skrajne kolumny zostają nienadpisane. Chyba, że tak ma być. Sprawdź Dim i As Integer, j As Integer, tabl As Variant Dim wynik As Long If UserForm1.TextBox1.Value = 1 Then 'jesli tylko jedno przejscie planszy(jedna petla) With...

[Excel] Przenoszenie danych z EditBoxów do odpowiednich komórek

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...

Excel - automatyczne przejście do kolejnej komórki po skanowaniu kodu kreskowego

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ą...

VBA Excel - Błąd kompilacji programu na innym komputerze

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...

Excel VBA - Wprowadzanie danych z jednego Excela do drugiego po przez Listbox

Witam, Mam problem odnośnie aktualizowania danych w innym pliku Excela za pomocą ListBox. Tzn, w jednym pliku Excela mam UserForm z Listbox która zaciąga dane z konkretnego pliku Excela. W tym UserForm mam dodatkowo 19 Textboxów do których po kliknięciu na wiersz w Listbox kopiowane są wybrane wartości. Problem u mnie polega na tym że jak chce zaktualizować...

VBA Excel - Pobieranie ścieżki pliku oraz podgląd w oknie

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...

Jak odnaleźć i zaktualizować wpis w Excelu o wjeździe i wyjeździe samochodu?

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ć...

VBA - Excel - Checkbox i kontrola wypełnienia TexBoxa

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...

Visual Basic - Excel, wklejanie text boxa do komórek

[syntax=vb]Sub Makro1() UserForm1.Show Range("A1").Value = UserForm1.TextBox1.Text End Sub[/syntax]

Word - Word - automatyczna zmiana daty przy drukowaniu

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...

Jak w VBA skopiować komórki między plikami Excel z walidacją numeru?

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...

excel/vba/userform - zwiększanie wartości kolejnego wiersza o x

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...

VBA Excel 2003 - Jak wykonać Label pokazujący wartość z komórki

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...

Jak wstawić zmienną do pola tekstowego w Excel VBA?

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

Excel VBA: filtrowanie arkusza przez UserForm – imię (kolumna Q) i miasto (kolumna L)

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...

VBA EXCEL - Jak zmienić nazwę i skopiować plik do OneDrive?

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"...

VBA błąd 449: Call OpenExcel – jak poprawnie przekazać argumenty do procedury?

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ą...

Excel VBA - Wstawianie zdjęć do pliku, obsługa błędu jeśli tych zdjęć nie ma.

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...

Jak dodać wiadomość przy konkretnym warunku VBA Excel

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,...

Excel 2007: Jak wyświetlić dwie kolumny w Combobox i zapisać jedną?

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....

Makro VBA: Warunek If zawsze zwraca True zamiast False - jak to naprawić?

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...

Jak skopiować wartości z TextBox i ComboBox między UserForm w Excelu?

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ć?

Jak wyświetlić w drugim polu tekstowym nazwę produktu po zeskanowaniu kodu?

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ś...

VBA excel Pojawiający się i znikający CommandButton

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...