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...
Witam, Od jakiegoś czasu pracuje nad swoim pliczkiem który ma za zadanie zebrać kilkaset danych i je przeliczyć. Teraz postanowiłem dodac do pliku formularz wpisywania tych danych. Zorganizowałem go tak, że w kolumnach mam pola textowe do wpisywania danych a podsumy robię polami typu label do których ściagam dane z arkusza kodem [syntax=vb] Label1ControlSource...
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...
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
np. Dodano po 1 Analogicznie dla H, I, O kolumny
Witam Najprościej zamienić na format binarny i dopiero przypisać do TextBox'a. TextBox1.Text = binarna Pozdrawiam Jarek
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]
Problem rozwiązany.
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ć :(
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...
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")
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.
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...
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.
Witam. Chciałbym liczbę pobraną z bazy danych do TextBox zapisać w formacie np. 1 000 000,00. Jak pobieram tą liczbę to obecnie w TextBox wyświetla mi się w postaci: 1000000.0000 Dane do TextBox dodaje w następujący sposób i nie chciałbym już tego zmieniać: Dodano po 1 Wiem, że poniższym kodem: [syntax=vbnet] frmNoweDane.txtLiczba.Text = Format(frmNoweDane.txtLiczba.Text,...
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)...
Czy format pliku (rozszerzenie) to .pptm?
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 {...
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...
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...
to wpisz w TextBox1 to: 44616D69616E37353436 No ładnie :) a wpisz w textbox 1111 albo 11 :)
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.
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...
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...
mam problem z poniższym kodem: Private Sub TextBox3_AfterUpdate() TextBox3.MaxLength = 10 TextBox3 = Format(TextBox3.Text, "dd-mm-yyyy") If Not IsDate(TextBox3.Value) Then MsgBox "WPROWADŹ DATĘ W PODANYM FORMACIE" TextBox3.Value = "" Exit Sub End If End Sub kiedy wprowadzam dzień < od 12 lub = 12 komputer uporczywie zamienia dzień za miesiąc. Proszę...
Sorki, Asp.net MVC C#:) Kod: [syntax=html5]<%(at) Page Language="C#" Inherits="System.Web.Mvc.ViewUserControl... %> <%(at) Register Assembly="Microsoft.ReportViewer.WebForm... Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" Namespace="Microsoft.Reporting.WebForms" TagPrefix="rsweb" %> <script runat="server"> protected...
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....
Witam Mam dwa problemiki z textboxami 1. Mam taki mały problemik, a mianowicie chcę aby tekst wpisany w textboxie był zwracany do komórki jako wartość. Chodzi o datę wpisujemy w textboxa datę on sam ją zapisuje w odpowiednim formacie i zwraca ją do komórki. Wartość w tej komórce jest rozpoznana przez exel jako data bo przy moich próbach było inaczej....
Swego czasu była dostępna w necie kontrolka nazywająca się Super Text z numerkami (chyba 1.1...). Ma w sobie to co TextBox i jeszcze więcej. :D Spróbuj walki z nią. --- 2009-07-17 No dobrze. Może inny sposób, bo nie dawało mi spokoju, że nie można użyć standardowych kontrolek. Spróbuj połączyć w jedno: - Twoja kontrola wprowadzania wartości liczbowej...
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...
Witam. Chcę, żeby było sprawdzane po kliknięciu Button1 czy wszystkie pola TextBox są uzupełnione, inaczej czy nie ma pustych Textboxów. Działam następującym kodem: Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim empty = Me.Controls.OfType(Of TextBox)().Where(Functio... txt.Text.Length...
dlaczego chcesz ponownie wykonywać zapytanie przy filtrowaniu? Zrób filtrowanie dynamiczne bezpośrednio na dbgrid coś tego typu... Data <= '" & date2 &
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
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...
Witam Mam problem z poniższym kodem. ormularz nie wysyłą mejli. Chcialbym aby na adres podany przez zainteresowanego został wysłany mejl potwerdzajacy wypełnienie formularza. Proszę o pomoc:) [syntax=xml] <?xml version="1.0" encoding="UTF-8"?> <contact> <layout bg_color="0xb3c6d7" bg_alpha="1.5" fields="right" fields_color="7a99b5" fields_alpha="0.5"...
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...
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]...
Cześć, Chciałbym, aby poniższy kod sprawdzał czy ktoś poprawnie wpisał dane do pola textbox. Gdy testuje ten kod i zamienie kropkę na przecinek, albo / to nie wykrywa mi tego jako błąd. Jak poprawić ten kod aby działało poprawnie? [syntax=vb]Dim x As String x = Me.txtsesachvonbis1.Value y = Len(x) 'SPRAWDZA CZY ILOSC ZNAKOW SIE ZGADZA If y < 26 Then...
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...
Mam podobny kod wykorzystany w oknie gdzie wpisuję daty (dodałem do niego Twój sposób zaznaczania) jednak mam problem z tym kodem bo nie działa poprawnie ale tylko dlatego że okno 'TextBox' jest włożone w sumie do dwój okien 'Frame' (bez 'Frame' działa poprawnie). Czy można coś zrobić żeby kod działał poprawnie bez konieczności usuwania 'Frame'? A to...
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_...
Podpiąłem pod bindingsource'a tabelę zaciągniętą z bazy danych sql. Następnie zaś wykorzystałem tego bindingsource'a w listbox'ie ustawiając mu jako wyświetlaną wartość kolumnę Name tabeli (ListBox.DisplayMember="Name") a jako zwracaną wartość kolumnę ID tabeli (ListBox.ValueMember="ID") - kolumna ta jest kluczem głównym tabeli i zawiera wartości typu...
Witam Nadal nie napisałeś gdzie Ci się co blokuje. Pisząc blokuje chodziło mi, że programu nie dało się dalej obsługiwać, na nic reagował, procesor w moim PC 100% obciążony. Trzeba było Menedżerem wyłączyć, problem tkwił w tym że port był odpytywany gdy był zamknięty. Ale po blokowałem to poleceniem "Enabled" jest OK i teraz trzeba wpierw wybrać Port,...
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...
https://obrazki.elektroda.pl/1915818500_... Jak wykonać projekt w oparciu o najnowsze modele językowe dostępne lokalnie, takie jak deepseek-r1, llama, qwen, gemma i mistral? Jak działa jednolity interfejs Ollama oparty o zapytania HTTP? Tutaj postaram się to pokazać. Nauczymy się wysyłać zapytania chatu zawierające zarówno tekst, jak i obrazki....
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;...
Trzeba to mieć przed oczyma. Nie mam teraz czasu, aby symulować przynajmniej 30 tekstboksow. Dodano po 2 zawiesza się Excel dlatego ze "For each"
Mianowicie do arkusza VB wstawiłem pole ComboBox hmmm... dla jasności: na co dzień nie zajmuję się programowaniem Kolega zrobi PrintScreen'a ze swojego okna i zamieści w poście bo jak narazie to ta wypowiedź jest niejasna i coś mi się wydaje, że poszukiwane rozwiązanie jest inne niż to co napisano. Zamiast ComboBox do daty proponuję "DateTimePicker"....
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...
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...
textbox format textbox format liczby textbox format liczba
desire wymiana baterii eurolive kolumny instalacja elektryczny ogrzewa
forscan fiesta wkrętarka milwaukee
Podgrzewacz wody Siemens nie grzeje - przyczyny i rozwiązania Moovo X4 – czyszczenie pamięci sterownika, reset pilotów i ustawień