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
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...
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 Tu nie chodzi o format waluty tylko że masz txtboxy jako string zrób np. tak [syntax=vbnet]Private Sub produkt1CenaMax_DblClick(ByVal Cancel As MSForms.ReturnBoolean) produkt1CenaMax.Locked = False produkt1CenaMax = "" End Sub Private Sub produkt1CenaMax_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Val(produkt1CenaMax.Value) > Val(produkt1CenaMin.Value)...
W TextBox chcę mięć zapisany format w jakim ma być zapisana numeracja (czyli mam formularz o nazwie "USTAWIENIA" na nim mam zakładkę NUMERACJA DOKUMENTÓW, a w niej TextBox w którym jest zapisany format (maska)). Niestety kombinuję i nie mogę wykombinować jak to zrobić :(
Witam, mam napisać program, który zczytuje wartość z pierwszego textbox'a oraz drugiego, a następnie wykonuje działania. Wszystko działa póki są wprowadzone wartości liczbowe w textbox'ach. Gdy pola są puste zaczyna się kłopot. Rozwiązaniem byłoby napisanie: if (textbox1.Text == "" || textbox2.Text == "") { MessageBox.Show("wrong values"); } else {...
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...
Czy format pliku (rozszerzenie) to .pptm?
Dołączyłem screeny. Jak widać w bazie jest jeden format a w formatce drugi. A chciałbym żeby były takie same. Jak zmieniam daty przez formatkę to do bazy zapisuje się prawidłowo
... data zmienia się na system amerykański ...kiedy wprowadzam dzień < od 12 lub = 12 komputer uporczywie zamienia dzień za miesiąc ... A jaki format jest wprowadzony w ustawieniach systemu ? Jeśli amerykański właśnie, to jak można z tym walczyć w pojedynczym polu tekstowym ? Zawsze wartości od 1 do 12 ustawią się zgodnie z systemowymi. Najłatwiej...
Mam w oknie TextBox które służy mi do dodawania daty kod jak poniżej. Kod sprawdza czy dobrze zadałem format daty. Jednak czy można zrobić tak żeby kod zawsze brał pod uwagę jeden format daty niezależnie od regionu? Tz. chcę żeby kod zawsze zwracał datę w formacie 'dd.mm.yyyy'. Chodzi o to że mój plik często uruchamiam na czeskim komputerze a tam właśnie...
Chyba nie do końca rozumiesz "okienka" VBA. Zarówno label jak i textbox jest "zawsze" okienkiem "tekstowym" i tego niczym nie zmienisz. To co uważasz za formatowanie okienka za pomocą funkcji format w rzeczywistości jest formatem jakiejś danej Podstawianie kolejnych numerów w nazwie obiektu For n = 1 To 15 Sheets("Dane").Cells(y, n).Value = Okno.Controls("TextBox"...
Niestety tak mam, że tłumaczę strasznie niejasno :) Rzeczywiście teraz kod jest bardziej przejrzysty. Chciałem jeszcze usprawnić co nieco tą formę i zrobić sumę textboxów, a gdzieś po drodze mnożenie jednego (gdzie wprowadzam dane) przez drugi (gdzie dane już są załadowane podczas uruchamiania formy (to co robiliśmy powyżej) :) Obrazowo: http://obrazki.elektroda.pl/8460102500_1...
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...
Witam. Zalaczam: V*i*s*u*a*l B|a|s|i|c - L|e*k*s*y*k*o|n z H*e|l*i|o*n|u.Nie wiem czy jest dobry.Jesli jestes zorientowany w programowaniu pod windows ogolnie to powinno Ci sie przydać. Przed ściągnięciem zalecam jednak zerknąć na spis treści. Wstęp11 Rozdział 1. Podstawy obsługi programu VB13 1.1.Menu programu13 1.1.1.File13 1.1.2.Edit16 1.1.3.View20...
Aplikacja uruchamia się z ustawieniami języka, formatowania itd zgodnie z ustawieniami systemowymi. Prawdopodobnie masz system polski, gdzie część całkowitą i ułamkową oddziela przecinek. W textbox musisz więc wpisać wartość z przecinkiem aby prawidłowo skonwertować wartość (albo musisz dodatkowo zdefiniować format liczby i przekazać to ustawienie przy...
Poniżej masz kod, który dokonuje sprawdzenia tych warunków. Ponieważ nie wiem czy bazujesz na starym kodzie, czy robisz coś nowego, więc podpiąłem go do przycisku - chodzi o zasadzę działania. o kurde myslalem ze bedzie to troche mniej skomplikowane. latwiej sie mowi niz pisze. wielkie dzieki. juz nie chce Ci tak slodzic bo pomysliz zsaobie ze chce...
Witam Najprościej zamienić na format binarny i dopiero przypisać do TextBox'a. TextBox1.Text = binarna Pozdrawiam Jarek
W tym przykładzie co podałeś zmienna a jest typu DialogResult, czemu odwołujesz się do niej właśnie? [syntax=csharp]a.textBox1.Text;[/syntax] Przypuszczam że to pomyłka, bo kod się nie kompiluje. Można to uprościć do postaci: [syntax=csharp]using (Form2 b = new Form2()) { if (b.ShowDialog() == DialogResult.OK) { textBox1.Text = b.textBox1.Text; } }[/syntax]...
[syntax=csharp] ushort result; if (ushort.TryParse( txtRok.Text,out result)) { // jeśli sie da skonwertować rok do ushort ushort[] data = { result, 0x2200, 0x2200, 0x2200, 0x2200, 0x2200, 0x2200 }; } [/syntax] Nie ma znaczenia czy wpiszesz liczbę hex czy dziesiętną.
Formatowanie liczb jest chyba identyczne z VBA, więc: https://obrazki.elektroda.pl/1077054900_...
Dim ctrl As Control
wiec na PL komputerze w opcjach regionalnych ustaw sobie Czeski możesz zrobic jeszcze tak txtGornik = Format(DateSerial(Year(txtGornik2) + 2, Month(txtGornik2), Day(txtGornik2) + 1), "d.m.yyyy")
witam. Mam pytanie odnośnie formatowania procentów w textbox. Jak zmodyfikować poniższy kod Cena = Format(Val(Cena)/100, "Percent") tak aby pojawiała mi się wartość powiedzmy 0,0025% lub 0,065%. wiem że zamiast "Percent" można wpisać np. "#.0000%" ale wtedy na sztywno będę miał 4 miejsca po przecinku, a ja bym chciał aby ilość miejsc po przecinku była...
Spróbuj w 'Private Sub TextBox_Historia_klienta_Exit' dopisać na końcu (przed End If) https://obrazki.elektroda.pl/1635878000_... tak mam ustawiony format daty w OS.
Dobry kierunek - to nie obrazek a przykladowy plik, w szczególności, UserForm. Logiczne czas wpisac w jednym TextBox w formacie "gg:mm". Zamiast pola wyboru najlepsze radio guzik(Option Button), wtedy coś musi być zaznaczone.
Kontynuując, pola tekstowe należałoby "uporządkować numerycznie" zaś jedną etykietę (data) nazewniczo, np. tak: [syntax=txt]lab_dzis => 'Etykieta z wyświetlaną "dzisiejszą datą" TextBox1 => 'Nazwisko TextBox2 => 'Ulica TextBox3 => 'Kod pocztowy TextBox4 => 'Miejscowość TextBox5 => 'PESEL TextBox6 => 'NIP TextBox7 => 'Telefon TextBox8 => 'Pocztel TextBox9...
string.Format("{0:.00}",3.12345);
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...
Jeżeli to jest fragment o stałej długości to możesz użyć kilku sąsiadujących pól tekstowych z różnym formatem czcionki. Jeżeli ma to być coś bardziej ambitnego pozostaje kontrolka ActiveX o nazwie: "Microsoft Rich Textbox Control 6.0" (znajdziesz ją przez kliknięcie w prawą dolną ikonkę na przyborniku) i składanie tekstu ze stringów kopiowanych Np z...
No, nie wiem... Moim zdaniem wystarczy użyć funkcji IsDate() do sprawdzenia, czy wpisana wartość zostanie przez Excela rozpoznana jako data. jak pisałem, wtedy fromat DD.MM.YYYY nie zostanie jako taki rozpoznany (co innego: DD-MM-YYYY). W tym kodzie co masz teraz za "poprawny" zostanie uznany np. taki zapis: 99.99.9999
Aaa, to spróbuj 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 = wynik...
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....
Funkcja DateDiff jest wyczerpująco opisana w pomocy. Kłopot może sprawiać pobieranie dat z TextBox'ów. Jak sama nazwa wskazuje, są w formacie tekstowym. Przydatna może być tutaj funkcja DateValue oraz wymuszenie właściwego formatu podczas wpisywania.
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...
Proponuję wcześniej sprawdzać czy wpisana dana jest numeryczna i to załatwi sprawę. Dodatkowo po obliczeniach zamieniałbym obliczoną daną na string gdyż wtedy pokazywać będzie wartość liczbową po polsku czyli z przecinkiem Proponuje zmienić kod pod txt3 na Uważaj bo amerykanie inaczej zaokrąglają :) . To co dla nas jest normalne nie koniecznie dla funkcji...
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")
Witam, proszę o pomoc w poniższym. Robię arkusz do skanowania wyrobów, które przyjeżdżają na magazyn. Zrobiłam to za pomocą formularza w VBA. Chciałabym aby w przypadku gdy któryś z TextBoxów w formularzu nie będzie posiadał tekstu to automatycznie po zatwierdzeniu będzie wpisywać się wartość "brak". W załączniku podgląd. mój kod: https://obrazki.elektroda.pl/7807554200_...
Miał być plik Excela, a nie kod. Samego kodu bez danych i bez formantów nie da się uruchomić. Szanuj czas tych, od których oczekujesz pomocy. W załączonym pliku masz przykład formularza, do którego możesz wprowadzić datę i czas do pola 'Start' oraz czas w formacie [g]:mm do pola 'Czas trwania'. Wynik w polu 'Koniec'. Użyty kod: [syntax=vbnet]Private...
Na formatce mam panel, na nim Label (próbowałem też z PictureBox). A widzisz - ja próbowałem z TextBox'ami dlatego u mnie działało a u Ciebie nie. :D Problem w tym że żeby scrollować panel to panel lub kontrolka na nim musi przejąć focus. Label ani pixture box nie przejmują domyślnie focusa po najechaniu na nie myszą. Spróbuj dodać sobie dwa TextBox'y-...
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...
Witam. Podpowiedzcie Panowie jak zrobić, żeby wyświetlona formatka nie blokowała aktualnie wyświetlanego arkusza. Precyzując. Mam formatkę z kilkoma textbox'ami. Dane do tych textbox'ów wpisuję z wyświetlonego wcześniej arkusza. Niestety, dane te są w różnych miejscach tego arkusza i muszę go przewijać. Jednak, gdy wyświetlę formatkę nie mogę przewijać...
to wpisz w TextBox1 to: 44616D69616E37353436 No ładnie :) a wpisz w textbox 1111 albo 11 :)
Dzięki o coś takiego dokładnie mi chodziło:).W poprzedniej Twojej wypowiedzi myślałem że poprzez wirtualną kartkę rozumiesz to abym rzutował poszczególne zmienne stringowe do zmiennej plikowej która potem będzie zapisywana jako zbiór informacji zebranych z pól textbox.Stąd zrobiło się małe zamieszanie bo nie wiedziałem wtedy jak dokonać przejścia do...
Pytanie jak ustawić prawidłowo TEXTBOXy a żeby np. che wprowadzić wartość godziny np. 15:01 to żebym mógł wprowadzić tylko 4 cyfry, podobnie ma się co do formatu daty np. 02-02-2017 próbowałem z opcją mapowania tag lecz wyrzuca błąd na danym texboxie
Zmienna gora jest zmienną VBA, ale służy tylko do pobrania wartości z textboxu, przeliczenie jej i przekazanie do formatowania warunkowego. Na tym jej rola się kończy i nie ma potrzeby redefiniowania jej. Komórka A1 pełni rolę "włącznika" , czyli jak mamy w niej 1 to formatowanie działa, jeżeli zmienimy na 0 formatowanie obejmuje liczby od 0 do 0 (...
Ważne jest w jakim formacie przychodzą dane. Dane są zakończone tabulatorem ? Tzn ramka danych jest taka?: x<nr>= <dana1><dana2>...<danax&g... ?? Ważne jest to dlatego, że dane mogą przychodzić w zasadzie losowo i tak: W pierwszym evencie dostaniesz np. x<nr>= <dana1> W drugim: <dana2>...<danax>\t Więc jeśli...
Czesc, mam problem z userform a dokladnie textbox. Jak ustawic wartosc textboxa, aby mozna bylo wpisac konkretne liczby, a dokladnie chodzi mi o cos takiego: [syntax=vbscript]If TextBox5.value = "0,00" Then MsgBox ("Wprowadz stawke z zakresu: 0; 0,05; 0,08; 0,23!") ElseIf TextBox5.value = "0,05" Then MsgBox ("Wprowadz stawke z zakresu: 0; 0,05; 0,08;...
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...
Zapewne kolejne problemy przyjdą z czasem. Chociaż ... to właściwie temat pokrewny. Mianowicie: Maska wprowadzania w textboxie excela. Np. pod NIP "999-99-99-999" czy np. "000-00-000-00" Akces ma to wbudowane a excel ... Chodzi o to by wprowadzać tylko liczby i ewentualnie "-" (bo jak się nie wprowadzi "-" to i tak powinno wyświetlić się 999-99-99-999)...
textbox format liczby textbox format czasu textbox format liczba
toyota corolla żarówka karta grafiki nvidia niebieski ekran zmiana dekoder polsat
Mocniejsza wieża od Philips FW590C - porównanie modeli Przekaźnik blokowania drzwi Toyota Corolla Verso 2007 - lokalizacja i diagnostyka
