Właściwość ControlSource textboxa ustaw na adres komórki, np. Arkusz1!A2 (uwaga: działa w dwie strony, tj. zmiana wartości w textboxie zmieni wartość w Excelu, chyba że dasz go tylko do odczytu)
Opisz dokładniej co chcesz zrobić, czy masz program w .NET, obok otwarty excel i wrzucić do tego arkusza wartość z pola textbox, czy chcesz utworzyć plik excela w .NET z określoną zawartością?
Czy 'txtPDF_List' to twój 'textbox'? Jeżeli tak to ominiemy ten 'klipbord' [syntax=vbscript]Private Sub cmdList_Click() With txtPDF_List If .Text <> "" Then .SelStart = 0 .SelLength = .TextLength .Copy MsgBox "Skopiowano nazwę dla listu przewozowego " & txtKURIER & ": " & Chr(10) & _ txtPDF_List, vbInformation, "Kopiowanie" Else...
Spróbuj z anulowaniem zdarzenia (Cancel=True) Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If IsNumeric(Okno.TextBox1.Value) = False Then MsgBox "popraw" Cancel = True End If End Sub
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
Jeśli datę zapisujesz w komórce, to może okazać się, że to nie taka prosta sprawa. W innym przypadku spróbuj podmienić separator. Np [syntax=vb]jakasData = Date If Application.International(xlDateSeparato... <> "." Then jakasData = Format(jakasData, "dd.MM.yyyy") End If MsgBox jakasData[/syntax]
Przykład (schemat działania) w załączniku. Sposób odwołania do arkuszy (pobieranie danych) w przypisaniach Masgbox'a. Aktywne tylko dwie pierwsze pozycje, resztę trzeba doklepać. Można wstawić TextBox z ilością i odejmować ze stanu.
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.
ok to sprawdzę to u siebie i odpiszę jak zrobić by działało Dodano po 35 Masz rację! Excel inaczej traktuje liczby. Może je porównywać większa/mniejsza/równa ale nie cyfra po cyfrze. Ustaw formatowanie kolumny z kodem jako tekst! Od tej pory każda wpisana w nią liczba będzie ciągiem znaków i będzie działać na niej filtrowanie. /// uwaga: u mnie w Excelu...
Ewentualnie możesz jeszcze sprawdzić coś takiego: [syntax=vbscript] Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Call Valid End Sub Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Call Valid End Sub Private Sub Valid() Dim a$ a = TextBox1.Text If a Like "##:##"...
Odnośnie daty - użyj kontrolki z kalendarzem zamiast kontrolki textbox. Tu masz przykład: http://www.fontstuff.com/excel/exltut03.... Tylko u Ciebie z tego co widzę kontrolka jest na formie, a nie zagnieżdzona w arkuszu, ale chyba sobie poradzisz, po prostu w edytorze form sobie ją wrzucisz. Tak, zgadza się - textbox nie ma właściwości value. W linijce...
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...
A dlaczego warunkujesz działanie działanie Textboxów w Arkuszu1 od stanu filtrowania w Arkuszu2 (który jest całkowicie pusty) ? Popraw makro w zapisie "Arkusz1" zamiast "Arkusz2" i będzie działać :D
Moje sugestie: 1. Jeśli część pól formularza ma być nieedytowalna, użyj etykiet (Label) 2. Co, jeśli już wcześniej zapisano? Należy umożliwić edycję (Np Find w arkuszu wynikowym). Wybierz Nr1 dla przykładu. 3. Nazywaj kontrolki! Teraz masz ich kilka, ale jeśli będzie kilkadziesiąt... Przykład w załączniku.
Bo siedzi w pamięci ze "starą" wartością. Zamiast ukrywać, zamknij: Unload
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, 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_...
Ramka jest kontenerem dla kontrolek. Zdarzenia pól tekstowych będą działać wewnątrz, ale wyjście poza ramkę to zdarzenie ramki (Frame_Exit), które należałoby w tym przypadku oprogramować. Do kontrolek wewnątrz przy takim zdarzeniu odwołujesz się z poziomu parent: Frame1.Controls(indeks/nazwa). Coś jak z podformularzami w Access'ie. Zastanów się czy...
(a teraz go zamykasz) Workbooks("a.xls").Close A ode mnie: 1. Nie wpadaj w panikę. 2. Czytaj co inni piszą. 3. Daj coś od siebie. 4. Kombinuj, jak popsujesz wróć do p.1 Pozdrawiam :) p.s. Jeżeli przypisałeś nazwę pliku do zmiennej obiektowej to używasz: nazwa_zmiennej.Close
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...
Zamiast Range("A1") można użyć komórki zaznaczonej (Selection), a po wpisaniu danych przesunąć zaznaczenie np. Selection.Offset(1,0).Select. Jest to oczywiście tylko jedna z możliwości. Przykład załączony, ale trzeba go dopasować, ja użyłem funkcji InputBox, bo podany fragment kodu jest wyrwany z kontekstu.
Zasugeruj się [url=http://www.access.vis.pl/war021.htm... rozwiązaniem.
[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]
jaky ma byc wynik z tego: "12,3/4ftj56we,4" ? Nie wiem co jest w textbox Dodano po 10 Co na to?[syntax=vb]Function zmien_na_punkt$(src$) dig = "012345689" For i = 1 To Len(src) c = Mid(src, i, 1) If InStr(dig, c) Then w = w & c ElseIf Right(w, 1) <> "." And Len(w) Then w = w & "." End If Next zmien_na_punkt = w End Function [/syntax]
Witajcie Od jakiegoś czasu walczę z problemem aby skopiować format z komórki (np Cells(3, 3) z formatem "0.00%") do pola tekstowego budowanego komendą myDocument.Shapes.AddTextBox(msoTextOrie... 581, 100, 71, 21) Wykorzystując zwyczajne odwołanie do komórki .TextFrame.Characters.Text = Cells(3, 2).Value kopiuje mi się wartość poprawnie...
gdy ilość znaków wynosi 14 Proponuje np. [syntax=vbscript]Private Sub TextBox1_Change() Lr = Range("A" & Rows.Count).End(xlUp).Row + 1 If Len(TextBox1.Value) = 14 Then Cells(Lr, "A") = TextBox1.Value End If End Sub[/syntax] Jeśli chcesz 14 znaków lub więcej to oczywiście zmień zapis warunku na => 14 :D
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 W programie pisanym w makro po wprowadzeniu danych w TextBox , chcę aby reagowało tylko na przycisk "CommandButton1". Niestety również reaguje na "Enter". Ponieważ Enter używam w innym celu, proszę o podpowiedź jak zrobić w programie aby " Enter " nie uruchamiał tej funkcji - tylko " CommandButton1"? Pozdrawiam Ps. Poniżej podaję przykład użycia...
To zielone pole to, jak wcześniej napisałem TextBox10 Przecież to wszystko jedno. TextBox10.Value= Range() albo Label10.Caption=Range() TextBox domyślnie edytowalny (należy wyłączyć), Label nie. Ważna tylko właściwa nazwa kontrolki...
Cześć W arkuszu excela mam stworzoną tabelę przestawną i kilka fragmentatorów do niej. Obok mam pole textowe ActiveX i kod vba do niego jak poniżej. Textbox pokazuje mi wartość, ale tylko za pierwszym razem jesli zaznacze jakaś opcje we fragmentatorze. Jak zrobić, aby odświeżał dane według filtrów z fragmentatorów? Zawsze chodzi o pobranie wartości...
To prawda, chodzi o prawidłowe formatowanie. W moim przypadku problem w tym że ja pracuję w Czechach i próbowałem to rozwiązać na polskim komputerze. Ostatecznie sprawdziłem poniższy kod na czeskim komputerze i działa jak najbardziej poprawnie: [syntax=vb]txtGornik = Format(DateAdd("yyyy", txtGornik3, txtGornik2), "d.m.yyyy")[/syntax] ...wykorzystałem...
Witam, piszę program dodający studentów do bazy, ale nie wiem jakiej pętli użyć, aby po wciśnięciu Następny student dane zapisywały się w kolejnym wierszu, a pola textbox czyściły się. Myślę,że a=a+1 i zapis "Worksheets("arkusz1").Range("b" & a).Value = TextBox2.Text" będzie skutkował zapisem w kolejnym wierszu? Jeszcze jest problem pętli - teraz jest...
Działa. Teraz chciałem jeszcze dodać wyszukiwanie dynamiczne dla Dgv1 oraz Dgv3. Dla Dgv1 mam kod pobierania danych z Excela: Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click With OpenFileDialog .Title = "Importieren" .InitialDirectory = TextBox1.Text .Filter = "All Files (*.*)|*.*|Excel...
TextBox1.Text = msg Dodano po 1 Lub nawet TextBox1 = msg Dodano po 3 Jak TextBox na Arkuszy to Sheets("nie_widze").TextBox1 = msg
Może tak :?: Dla polskich wersji Excela zamiast obiektu "Textbox" należy użyć "Pole tekstowe" :D czyli raczej kod [syntax=vbscript]Sub kopiujto() Dim wartosc As String Dim TextBox As String Dim i As Integer Dim j As Integer j = 4 For i = 1 To 3 wartosc = Sheets("Arkusz1").Cells(j, 1) j = j + 1 TextBox = "Pole tekstowe " & i Worksheets("Arkusz2").Shapes.Range(Array...
Ktoś już kiedyś walczył z filtrowaniem listBox'a: http://www.elektroda.pl/rtvforum/viewtop...
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...
Pomysł z analizą wyrażenia wydaje się trochę nadmiarowy. Oczywiście, żeby było idealnie to tak trzeba, ale zastanówmy się co się stanie jak wpiszemy z błędem. Excel poinformuje o błędzie i się poprawimy. Można też przechwycić komunikat błędu i podstawić własny po czym wymusić przejście do edycji wyrażenia. W większości przypadków to wystarczy, a jest...
Witam Potrzebuję zrobić niby proste makro, ale utknąłem na kodzie do niektórych elementów. W skrócie wygląda to tak: mam arkusz z przyciskiem, do którego jest przypisane makro. Po uruchomieniu makra otwiera się panel z jednym textboxem i trzynastoma przyciskami Commandbotton. Przyciskami od 0 do 9 wprowadzam liczby do textboxa, a pozostałe przyciski...
jest tak: x = TextBox1 For i = 1 To ThisWorkbook.Worksheets.Count If Sheets(i).Name = "M-" & x Then MsgBox "TAKA NAZWA JUZ ISTNIEJE!!!", vbOKOnly, "Podaj inną nazwe!" TextBox1 = "" TextBox2 = "" Exit Sub End If Next Sheets.Add ActiveSheet.Name = ("M-" & x) ' i tej Lini pokazuje...
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...
Do wywołania reakcji na wprowadzane do arkusza dane (odpowiedzi na pytania) wykorzystaj procedurę zdarzeniową arkusza: Target - Komórka podlegająca zmianie. W konstrukcji z ".Cells(1,1)" odnosi się do komórek scalonych Intersect - Sprawdza czy "Target" i komórka mająca wywoływać określoną reakcję, to jedna i ta sama komórk, czy też nie Jeśli ta sama...
Ostatecznie rozwiązanie z trzema polami TextBox dla jednej daty byłoby najlepszym rozwiązaniem i działa naprawdę wyśmienicie, jednak jak widać na załączonym screenie w moim przypadku tych dat zaznaczonych na czerwono jest sporo i musiałbym dużo zmieniać aby dla każdej daty zrobić trzy pola TextBox. Dlatego byłbym za zastosowaniem jednego TextBoxu dla...
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...
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)....
No i nie daję już rady z ComboBox-TextBox Moje założenie to wybrać towar z listy - automatycznie wpisuje się do TextBox (txtNazwa), w następnym TextBox wpisuję ilość (txtIle) i po zatwierdzeniu DOPISZ, dane znajdą się w komórkach C18 i E18 a pola Combo i Text czyste. Następny wybór i kolejne wolne, czyli C19 i E19 Dziękuję jeśli ktoś poświęci troszkę...
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...
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...
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...
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)...
userform textbox excel excel combobox textbox textbox makra excel
mikrofon odsłuchu reklama neonowa skraplacz ariston
electronic workbench zmywarka elektrolux
Błąd 4B10 w BMW E61 3.0d M57 - Diagnostyka i Naprawa Samsung RSA1ZTVG – lokalizacja i wymiana czujnika drzwi (reed-switch, alarm, światło)