Odnośnie pkt 3. W Management Studio wchodzisz w Tools -> Options I zgodnie z poniższym screenem wpisujesz 0 jeśli chcesz edytować wszystkie wiersze. Tak samo dla selecta. http://obrazki.elektroda.pl/1743076700_1...
A nie lepiej zamienić textbox na combobox? Wtedy użytkownik musi wybrać jedną z istniejących możliwości, które sobie załadujesz z pliku np. na starcie aplikacji
Witam Czy nie chodzi o takie coś? [syntax=vbnet]With Sheets(ComboBox1.Value) i = .Cells(Rows.Count, 2).End(xlUp).Row + 1 .Cells(i, 2) = TextBox1 .Cells(i, 3) = TextBox2 .Cells(i, 4) = TextBox3 'i tak dalej End With[/syntax]
Tak nie zadziała. DataSource to właściwość kontrolki ComboBox i służy do przypisywania kolekcji danych. TextBox nie posiada takiej możliwości, ponieważ jedyne, co można w nim wyświetlić, to tekst.
Niestety, nawet używając google nic odpowiedniego nie znalazłem. Nie chce tego robić za pomocą label, gdyż chciałbym mieć możliwość poprawiania danych. Również łączenie kolumn się tu raczej nie sprawdzi. Wrzucam plik, który pokazuje o co mi mniej więcej chodzi. Po wybraniu imienia chciałbym, żeby wiek się pojawił i żebym mógł go poprawić plus dopisać...
Narysuj je ręcznie.
żeby po dodaniu tekstu do nich, wartości te dodawały się do kilku coboboxów 1. A co ma wyzwalać ten proces, samo dodanie, klawisz, inne ? 2. Ilo-znakowe ciągi mają być dodawane do list z pól tekstowych, ograniczonej długości, nieprzewidywalnej długości, itd. ? 3. No i jak już pododajesz, to co dalej ? Ma to być "ulotne" i po zamknięciu okna ma znikać...
witam mam zadanko do zrobienia z errorprovider mam na formatce TExtBoxa a nizej pare ComboBoxów i innych TextBoxow zadanie polega na tym ze po zostawieniu pustego pola w tym TextBoxie albo wpisaniu czegos innego niz cyfra wyskakuje nam errorprovider ktory blokuje zamkniecie programu i mozliwosc klikania na innych elementach. Doszedlem do tego ze po...
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ę...
Witam. Mam problem i nie wiem jak się do tego zabrać. Otóż jak napisać program który będzie wyszukiwał z arkusza "form" wartość wpisaną do ComboBox i TextBox? Nigdzie na forum nie mogę znaleźć takiego przykładu. Z góry dziękuje za pomoc. Ania
Prócz tabelarycznego DataGridView można jeszcze zastosować ListBox,TextBox i ComboBox.
Należy oprogramować warunki przy zdarzeniu Change oraz Exit ComboBoxów. Stopień skomplikowania zależy od ilości ograniczeń jakie chcesz nałożyć. P.S. Bardzo ułatwia życie prefiks przy nazwach kontrolek. Np cmbLiczba1, txtLiczba2 i nie muszę szukać które to ComboBox, a które TextBox...
Formułkę (różnica dat) wpisałem do kodu zdarzenia 'Exit' obu TextBox'ów. Oprogramowałem ComboBox_Change, wykorzystując jego ListIndex. Numer>Opis. Zmienną 'ostW' w 'Initialize' można wykorzystać wielokrotnie (tworzenie list) Ciut komplikujesz proste rzeczy, moim zdaniem ;)
stworzyłem sobie comboBoxa w którym mam podane określone szybkości i teraz mam problem z przekonwertowaniem tych wartości na int..próbowałem przy pomocy funkcji atoi oraz StrToInt ale nie wyszło int szybkoscTransmisji; string szybkosc = comboBox_Szybkosc->Text; szybkoscTransmisji=comboBox_Szybkosc->... Funkcje atoi...
Hej! Chciałabym, aby w tym programie, który jest w załączniku, jeśli wybiorę w UserFormie -> ComboBox1 lub 2 dostawce/odbiorce, to chciałabym aby jego cale dane które sa w arkuszach były wypisane w oknie TextBox 1 lub 2. Czy mogłabym prosić o rade jakimi instrukcjami to można zrobić, bo pewnie sam worksheets nie wystarczy.
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...
Przecież parametrem funkcji wyboru (np Range) jest adres w postaci tekstowej.
Witam! mam problem, odrazu mówię, że jestem w tym zielona. niestety wymyślono zaliczenie na ocenę. huk, że w ogóle przedmiot do mojego kierunku nie pasuje, ale-trzeba... tak więc czy mógłby mi ktoś powiedzieć jak mam zrobić wczytywanie txt do combobox? Mam visual studio 2010. próbowałam kodu: Shell("C:\Users\user\Deskto...
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...
Cześć, Chciałbym za pomocą combobox i pola tekstowego w formie zrobić listę rozwijaną. W zeszycie pierwszym mam przycisk aktywujący formę z combobox oraz textbox. W zeszycie 2 mam wypełnione dwie kolumny A i B gdzie w A mam wartości które można wybrać w combobox a w kolumnie B opisy tych wartości. Chciałbym aby moja forma działała w następujący sposób:...
Owszem da się. Ale można to zrobić dużo prościej. Ja robiłem takie operacje na podstawie jakiegoś wskazania (np. wybrania w comboboxie określonej wartości) powiedzmy, że w ComboBox masz imię+nazwisko, po jego wybraniu uzupełniało mi wszystkie dane w textboxach. Tak jak wspominałem, robiłem to właśnie w zdarzeniu ComboBox.SelectedIndexChanged. Wówczas...
To bindowanie to jest właśnie "powiązanie z danymi", które uniemożliwia Ci dodawanie wierszy przez dg.Rows.Add(tablica_z_wartosciami_komore... Masz prawdopodobnie jakiś adapter, jak nie tableadapter to coś innego (BindingSource?). Nie pamietam jak to sie nazywa bo tego rzadko używam tych obiektów. Mogło mi się coś pomieszać z innym środowiskiem programistycznym....
Jestem totalnym laikiem. Nie uważasz, że czas najwyższy z tym skończyć? Może to przez ten nick :) Przeanalizuj następujący kod:[syntax=vb]Private Sub ComboBox1_Change() If ComboBox1.ListIndex <> -1 Then TextBox1.Text = ComboBox1.Value Else TextBox1 = Empty End If End Sub Private Sub CommandButton1_Click() If TextBox1.Text <> "" Then usfOPE.txtjobcode.Value...
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ć?
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...
Podsumowując: 1) Jest/ma być formatka=Formularz=okienko=UserForm 2) Są w nim/niej przynajmniej: 2x ComboBox (lista zleceń, osoby), 2x TextBox (dodawanie zlecenia, edycja zlecenia ... numeru ? ... inna ?), 2x Label (wyświetlanie zlecenia/wartości/osoby/inne ?), 5x CommandButton (edycja, dodawanie, usuwanie, szukanie, zamknięcie formatki) 3) Potrzebne...
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...
Do takiego filtrowania listy musiałbyś wykorzystać TextBox. Raczej nie da się tego wykonać "wewnątrz" ComBox'a, gdy jest aktywny (posiada focus).
Polecam skorzystać z MSDN. http://msdn.microsoft.com/en-us/library/... Combobox posiada właściwości SelectedItem oraz SelectedValue - możesz użyć jednej z nich aby sprawdzić, co wybrał użytkownik. Jeśli przypisujesz jakieś obiekty do ComboBoxa, a chcesz użyć SelectedValue, musisz właściwości ValueMember przypisać nazwę...
Nie wystarczy zwykłe przypisanie w kodzie przycisku? Zdaje się, że chodzi też o wypełnienie kolejnych pozycji. Spróbuj: [syntax=vb]Private Sub CommandButton1_Click() ostW = Range("B5").End(xlDown).Row If ostW > 19 Then ostW = 5 Cells(ostW + 1, 2)= ComboBox5.Text Cells(ostW + 1, 3)= val(Wartosc) End Sub[/syntax]
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....
Na formie mam combobox, z którego wybieram interesującą mnie pozycję. Następnie dynamicznie na Panel1 tworzone są trzy texbox i button. [syntax=csharp] if (comboBox1.SelectedIndex == 1) { Panel1.Controls.Clear(); Label lab1 = new Label(); lab1.Text = "IMIE"; lab1.Size = new Size(40,20); lab1.Location = new Point(100, 60); lab1.Font = new Font("Courier...
Dopisz może w temacie o jakie środowisko/język programowania chodzi - teraz dopiero po pobraniu i rozpakowaniu archiwum się dowiaduję, że chodzi o excela.
Wklej jakiś kod, wróżki mają wolne...
potrzebuje pomocy... jak to zbudować bo nie znam takiej funkcji co odsyła to CB lub TB, a zrobić możesz w... to znaczy możesz dostać w zamian uścisk dłoni od mnie. [syntax=vb]application.Goto Reference:=Worksheets("dane do wypełnienia ").combobox1.Select, _ Scroll:=True[/syntax] nie wiem co mam wpisać przed "Combobox" żeby tam odsyłało...
Mam pytanie związane z oknem TextBox i wyświetlanymi dwoma kolumnami. Czy można te kolumny przybliżyć do siebie (bez konieczności rozszerzania okna TextBox) bo jak widać na screenie druga kolumna jest niewidoczna? http://obrazki.elektroda.pl/3036157500_1...
Witam (na chwilę) po świętach. Przepraszam za tak późny post ale święta świętami (i karp i choinka :) ) a ja mam koniec roku w firmie i niestety nie mam za dużo czasu. Wiem że pomagałem pisać to makro ale musiałem sobie trochę przypomnieć o co chodziło a to mimo wszystko wymaga czasu. Teraz z pełnym brzuchem (i w domu) mogę trochę pomóc :) Można zrobić...
Proponuję proste rozwiązanie :spoko: [syntax=vbscript]Private Sub CommandButton1_Click() wr = ComboBox1.ListIndex + 2 kl = ComboBox2.ListIndex + 2 Sheets(1).Cells(wr, kl) = TextBox1.Value End Sub[/syntax]
Kombinuje z kodem w select index case.. nie działają moje wpisy. Jak odjąć datę od już istniejącego wyniku daty :) ?. Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Next100Day As Date = DateAdd(DateInterval.Day, 100, DateTime.Now) Dim Next2Day As Date...
Witam, jak za pomocą VBA można "pobrać" dane z uzupełnionego formularza? Z pola TextBox można np. do komórki A1 wpisać jego wartość poprzez funkcję Value.. Ale jak zapisać do danej komórki Excela zaznaczoną pozycję z Combobox'a albo OptionButton'a Z góry dziękują za odpowiedź.
Witam Czy ktoś może mi pomóc w rozwiązaniu takiego problemu? Mam formę na której umieszczam combobox. Po wybraniu odpowiedniej pozycji z listy (np. Imię i Nazwisko) na Panel1 utworzone zostają dwa textbox i button. (dynamiczne tworzenie już opanowałem :) ). Teraz pojawia się własnie problem jak po naciśnięciu klawisza utworzyć np.: label o treści z...
Witam Makro ma porównywać wartości z ComboBoxa txt1 z danymi w 1 kolumnie arkusza "Rejestr" oraz wartości z TextBoxa txt2 z danymi w 2 kolumnie arkusza "Rejestr". Jeżeli tekst z txt1 jest już w kolumnie pierwszej arkusza „Rejestr” oraz jednocześnie tekst z txt2 też jest odpowiednio w kolumnie drugiej arkusza „Rejestr” to makro...
działa:D bardzo dziękuje :) mam jeszcze jedno pytanko: Jak użytkownik wybierze towar+ jego ilość to chciałabym aby w oknie TextBox wyświetliła mi się cena za ten towar za daną ilość. Czy ja to mogę zrobić w oknie TextBox i tam wpisać kod np: TextBox1.Value=IloscTowaru*worksheets("m... Chciałam tu do okna TextBox...
Mam taki kod programu: [syntax=csharp] private void Button3Click(object sender, EventArgs e) { comboBox1.Items.Clear(); textBox1.AppendText(DateTime.Now.ToLongT... + " Wykryto nastepujace porty: " + Environment.NewLine); ManagementObjectSearcher searcher = new ManagementObjectSearcher("Select * from WIN32_SerialPort"); foreach(string port in...
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...
Zacznijmy od tego, że nazwy klas, zmiennych i metod publicznych wypada pisać z dużej litery - taka konwencja. Brakuje Ci jakiegoś pola z nazwą tego obiektu - no chyba że chcesz wyświetlać nazwy zmiennych, co jest moim zdaniem bez sensu... Dodaj sobie np. pole Nazwa i do niego przypisz "samochód1", "samochód2" etc. Jeżli rok produkcji jest liczbą int,...
Przećwicz sobie takie rozwiązanie [syntax=vb]Dim opt As Control c = 1 With opt For Each opt In frmPlansza.Controls Select Case TypeName(opt) Case "OptionButton" 'tu ustawienia właściwości dla przycisków opcji MsgBox opt.Name, , "Przycisk opcji" Case "CheckBox" MsgBox opt.Name, , "Pole wyboru " Case "TextBox" MsgBox opt.Name, , "Pole tekstowe" Case "ListBox"...
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,...
W TextBox1 stworzyłem taki kod: Private Sub TextBox1_Change() Dim tekst As String TextBox1.SelLength = TextBox1.TextLength tekst = TextBox1.Value Cells(1, 1) = tekst End Sub Jest to wersja robocza, tzn docelowo wartość z TextBoxa zapisywana będzie do innego arkusza z danymi. I tu mam zagwozdkę. Wartość w komórce (1,1) pojawia w trakcie wpisywania danych....
dlaczego chcesz ponownie wykonywać zapytanie przy filtrowaniu? Zrób filtrowanie dynamiczne bezpośrednio na dbgrid coś tego typu... Data <= '" & date2 &
Oto kod pod przyciskiem Szukaj [syntax=vbscript] Private Sub CommandButton3_Click() With Sheets("Baza").Range(obszarSzukania) If wyszukany Is Nothing Then Set wyszukany = .Find(szukane, .Cells(1, 1), xlValues, xlPart) Else Set wyszukany = .FindNext(wyszukany) End If End With If wyszukany Is Nothing Then MsgBox "Brak takiego urządzenia", vbCritical,...
Witam, mam problem z VBA. Chciałbym aby po wybraniu wartości w ComboBoxie program odszukał tą wartość w kolumnie A w innym arkuszu i wstawił wartość z kolumny D do TextBoxa. Dokładnie: Arkusz: Toyo1 Formularz: KARTA REJESTRACJI DANYCH po wybraniu wartości w "Zlecenie" (ComboBox) automatycznie wstawiło nazwę do TextBoxa obok. Zlecenie i Nazwa jest w...
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]
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...
Witam, potrzebuje pomocy mianowicie kod do zapisu informacji. Chce aby wszystkie textboxy,comboboxy, numericupdown były za jednym razem zapisywane do pliku tekstowego poprzez naciśniecie buttona Zapisz oraz odczytywane po kliknięciu na otwórz. Formatka wygląda tak: http://img683.imageshack.us/img683/1284/... Natomiast kod tak: Projekt cpp 2:...
OK działa lecz jednak nie potrafię sobie poradzić z obsługą listy. Np private static List<String> GetLogicalDiskInformations() { List<String> disks = new List<string>(); ManagementObjectSearcher searcher = null; ManagementObjectCollection collection = null; try { ObjectQuery oQuery = new ObjectQuery("select...
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"....
jak zrobić by po wyborze numeru zamówienia w comboboxie i wpisaniu ilości sztuk w textboxie właśnie o tą wartości powiększają się ilość w komórce wiersza w którym jest zamówienie wybrane z comboboxa Zrób powiązane z tym textboxem i comboboxem makro typu Private Sub TextBox1_Change() , które będzie realizowała w arkuszu zmiany ilości :D
No właśnie ComboBox wiem jak użyć z tym że nie wiem jak to zrobić przy pomocy trzech (dzień, miesiąc, rok). Chciałem to zrobić w jednym. Próbowałem też podzielić datę która jest w formacie amerykańskim na 3 części i później je złożyć do "kupy" ale wtedy jest odczytana jako TEKST i nie da się zmienić na datę. Błąd mi wyskakuje na tej linijce: DNT = CDate(Right(TextBox1.Text,...
ja zastosowałem tak (chociaż to C++ i działa OK) array<String^>^ serialPorts = nullptr; try { // Get a list of serial port names. serialPorts = SerialPort::GetPortNames(... } catch (Win32Exception^ ex) { //Console::WriteLine(ex->... Pole1->AppendText("ERROR ");...
Plik RC_BOT.h - główna forma #pragma once #include "PID.h" #include "Trasa.h" namespace RS_01 { using namespace System; using namespace System::ComponentModel; using namespace System::Collections; using namespace System::Windows::Forms; using namespace System::Data; using namespace System::Drawing;...
Witam Szukałem długo w internecie w jaki sposób sprawdzać dane z UserForma z dwóch TextBoów (w moim przypadku TextBox i ComboBox) przed wprowadzeniem do arkusza Excela stanowiącego bazę danych. Chodzi o to, żeby w bazie danych nie dublować pozycji i jeżeli dane są w bazie, to żeby makro wyrzuciło komunikat, że te dane już są. Czyli wprowadzane dane...
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...
Witam Print na Printbin rozwiązało problem teraz fajnie śmiga. Dzisiaj dołożyłem ComBoBox do wyboru portu o to Kod [syntax=vb][/syntax] ComboBox1.Items.AddRange(IO.Ports.Serial... If ComboBox1.Items.Count > 0 Then ComboBox1.SelectedIndex = 0 SerialPort1.PortName = ComboBox1.Text SerialPort1.Handshake = IO.Ports.Handshake.None SerialPort1.BaudRate...
Wraz z użyciem tej pętli cały bufor jest wyświetlany, po czym następuje koniec wykonywania, a po pewnym czasie znów się zapełnia i znów muszę wywołać pętlę. Natomiast jak zrobić by przy buforze równym 0 program czekał na dane i gdy się pojawią to wyświetlił i tak w kółko. Na tej samej zasadzie jaką ja chcę uzyskać działają terminale RS232. Mój kod:...
Po prostu (blok w kodzie przycisku) [syntax=vb]With Sheets("Lista pracowników") ' ostWrs = Label14.Caption ' .Unprotect Password:=haslo ' .Cells(ostWrs, 21) = TextBox1.Value ' .Protect Password:=haslo For i = 0 To lstFiltr.ListCount - 1 If lstFiltr.Selected(i) = True Then ostWrs = .Range("B:B").Find(what:=lstFiltr.List(i... lookat:=xlWhole).Row .Cells(ostWrs,...
Witam W pierwszym kroku zrobiłem zapytanie do bazy które wyświetla mi dane w comboBox1 Proszę umieszczać kod w znacznikach syntax . Opcja Listing kodu . Proszę to poprawić. Z góry dzięki.
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,...
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...
Proszę powiedzcie mi w jaki sposób mogę z powrotem załadować danego pracownik z listy aby móc go prze edytować lub usunąć? Z samą opcją dodawania nowego pracownika poradziłem sobie. Może krótko opiszę jak to zrobiłem (zrobiłem to po swojemu tak jak potrafiłem). Jak już wprowadzę wszystkie dane pracownika to w przycisku 'Dodaj' mam kod: http://obrazki.elektroda.pl/1653474000_1...
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....
Mam taki problem z kodem VBA kalendarza w formularzu Zanim zaczniesz kombinować z kodem kalendarza, najpierw usuń wszystkie błędy formatowania dat w arkuszu, oraz skoryguj działanie Twojego formularza. :D Na pierwszy rzut oka widać pomieszanie formatów - proponuje wykorzystać jeden format systemowy (no jeśli z RPA :?: - to jeden ale wszędzie :D ) 924267...
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]...
Czesc Nie wiem czy dobrze zrozumialem o co chodzi ale aby sie to wyswietliło potrzebna jest jeszcze linijka: UpdateData(false); A jesli dane masz w dwoch formach to nie zapominaj o zmiennych globalnych i o deklaracji drugiej formy. Hmmm.... Niestety nie dziala w ten sposob tak jak bym tego chcial :| Jednak nie modyfikuje tego zapisu. Napisze jeszcze...
Zgodne czy nie zgodne ale roziwązuje moj problem dzięki Zostaje jedna rzecz makro odysłające do textboxa lub Comboboxa tzn. przycisk (click) ladujemy w texboxie w innym arkuszu z zaznaczonym tekstem.
(at)clubs Hej Clubs, zauważyłem pewien "błąd". W momencie gdy wartości w kolumnie są jednakowe, kod tego nie obsługuje i pozostawia pustę pole. Rozumiem, że "usedrange.find -> xlvalues tego nie ogarnia? Stworzyłem drogę okrężną, z nanoszeniem wartości na zaznaczonych wierszach za pomocą listbox_change i objektów przy init userforma, ale wywala mi się...
Witam serdecznie! Chciałbym poprosić Was o pomoc w błahym pewnie problemie. Nie wiem jak się zabrać do napisania kodu, który odpowiadałby za wpisanie wybranej stałej z comboboxa (liczby, stringa) do zmiennej w innej klasie. W skócie: wybieram wartość i ona się wpisuje do zmiennej. using System; using System.Collections.Generic; using System.ComponentModel;...
Próbuję rozwiązać problem wydruków z programu DOS działającego pod Windows XP na drukarce GDI. Wewnątrz sesji DOS tworzę wirtualny port LPT1, który przekierowuje wydruk do pliku c:\spool.dat. Pierwszy problem to fakt, że "wydruk" zawiera kody sterujące EPSON, które trzeba odfiltrować. Drugi problem to fakt, że polskie znaki są kodowane w standardzie...
Dla UserForm3 Application.Goto Worksheets("WYPOZYCZENIA").Cells(j, "b") End If i = i + 1 Loop [/syntax]
Ale co konkretnie cię interesuje albo z czym konkretnie masz problem... Zasada jest bardzo prosta, połączenie przez port com wymaga jego konfiguracji, i albo robisz to ręcznie na sztywno, albo tworzysz klasę w której go konfigurujesz, tak czy inaczej musisz podać pewne parametry początkowe portu. Potem czekasz na wystąpienie zdarzenia OnReceive (a dokładniej...
Otwórz sobie okno immediate w edytorze VB (Ctrl+G), w kod wklej linie (patrz przykład) i uruchom procedurę. MsgBox "DODANO", vbOKOnly, "Okno dodania" TextBox1.Value = "" Debug.Print ark ' TUTAJ Debug.Print wrs Debug.Print t1 Stop t1 = t1 - ComboBox1.Value Sheets(ark).Cells(wrs, 2) = t1 If t1 = 0 Then Sheets(ark).Range("a&qu...
Jest, ale w Initialize są odwołania do nieistniejących kontrolek (albo pomyliłeś nazwy): TextBox26 ComboBox1 Zaapostrofuj i pójdzie... Druga sprawa - zapisujesz plik: ActiveDocument.SaveAs FileName:="NOWY PLIK" & ".doc" Spróbuj z okienkiem dialogowym, Poniżej przykład kodu: Application.Quit
chodzi oto że najpierw wczytuje dane z wersja.txt i dodaje nowy profil w combobox potem musi wkleić kod który będzie w wersja.txt tu układ - 0.0.0 a tu nasz kod ten właśnie kod co tam będzie ma wklejać do TU MA SIĘ WKLEIĆ MÓJ KOD KTÓRY BĘDZIE W PLIKU WERSJA.TXT Dodano po 1 Chyba zrozumiałeś o co chodzi?
Dzięki bardzo, działa rewelacyjnie. Mam jeszcze taki kod jak poniżej. Jak można by go zminimalizować? 'A1-A31' to TextBox, 'txtMiesiac' to ComboBox a 'lstPracownicy' to ListBox [syntax=vb]A1.Value = Sheets(txtMiesiac.Value).Range("B:B").Fi... lookat:=xlWhole).Offset(0, 8) A2.Value = Sheets(txtMiesiac.Value).Range("B:B").Fi...
A gdzie kolega chce prezentować wyniki? Jeżeli będzie to np. textbox to sprawa jest prosta wystarczy zwykły SELECT który zostanie uruchomiony po jakimś zdarzeniu, np. wybraniu nazwy przedmiotu z comboboxa i wyszuka wszystkie rekordy dla danej nazwy. Jeżeli natomiast kolega chce to przedstawić w postaci tabeli (DataGridView) i wygenerować rekord trzeba...
Dzień dobry. Dopiero zaczynam swoją przygodę z VBA nie wiem czemu jak zrobię pętle If ComboBox1 = "wybierz" Or TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Or ComboBox2 = "wybierz" Then 'pola msza byc wypełnione MsgBox ("WPROWADZ DANE") Unload Me Dodaj1.Show...
ześć, Dzięki za pomoc. Ale wyjaśniając i uszczegółowiając mój problem. Planuję produkcję. W Arkuszu zrobiłem coś takiego... : Wybieram z listy asortyment, po wybraniu (dzięki wyszukaj pionowo) pojawia się jednostkowy czas realizacji ( "mm:hh" np 01:20), wpisuję ile sztuk np 2000 , w kolejnej komórce pojawia się czas skumulowany( [h]:mm:ss np 44:26:40)...
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 wszystkich forumowiczów Niedawno zacząłem bawić się w Visual studio 2008. Jestem w trakcie robienia bazy danych dla własnego użytku. Ogólnie dane zapisywanie są do pliku (txt). Wszystko ładnie działa tj. wczytywanie z pliku, zapisywanie, kasowanie zaznaczonego rekordu, dodawanie nowego, sortowanie (jako tako) i potrzebne by było jeszcze edytowanie...
Cześć, tworzę wielozadaniowy UserForm (paczka załączona poniżej): https://obrazki.elektroda.pl/3523809100_... 1032673 Po pokonaniu początkowych trudności, nie mogę poradzić sobie z zadaniem ComboBoxowi wczytywania danych z zewnętrznego zamkniętego pliku, co jest kluczowym zagdnieniem. Tzw. "elegancja" rozwiązania tj. czy zewnętrzny...
1. Tak. Wiersz równy wartości zmiennej wrs , usuwasz. Tu trzeba będzie przepisać listę ComboBox'a, lub po prostu zamknąć i otworzyć ponownie uForm 'Wybierz'. 2 & 3. Z tego wychodzi, że: a) jeśli zaznaczono 'BrakTłumaczenia (chk górny) - email i 'Archiwum' b) jeśli 'BrakWarunków' - email i 'Dane_Przetworzone' c) w pozostałych przypadkach 'Dane_Przetworzone'...
Nie zmieniam idei tylko ją udoskonalam. Linijka pliku txt wygląda następująco Dominik_Chmal 2 3 3 4 3 Zrobiłem sobie 5 textboxów, button zapisz aby edytować oceny tylko nie wiem jak zrobić usunięcie starych ocen i wpisanie nowych.
Mam mały problem z dodaniem noweych danych do bazy. Wykonuje to w taki sposób: http://obrazki.elektroda.pl/8769682900_1... Co to za dokładnie zmienna Identity_Insert bo to chyba tu jest problem i jak ją zmienić ? Szukałem we właściwościach bazy ale nie znalazłem takiego parametru.
Witam, Chcę się pouczyć klas. Zrobiłem sobie taką apkę: http://obrazki.elektroda.pl/2547328700_1... Do wyboru mamy opór:10,20,30,40,50 Oraz długość. Aplikacja po prostu mnoży wartość oporu(czyli te 10,20,30,40 lub 50) razy długość i podaje wynik. Zrobiłem sobie klasę opory: private void button1_Click Dodać kolejny warunek.. CHciałbym...
Witam, chciałbym stworzyć wyszukiwarkę danych w VBA, napotykam jednak problem w tworzeniu formuły For Next. CELL , przez to procedura nie działa. Chciałbym też wiedzieć, dlaczego nie działa zakres Range("A2: [w, k]")wpisywany i próbowany wielokrotnie: Range("A2": [w, k]) itd. więc to nie jest kwestia zapisu. Proszę o pomoc :)
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?)
[syntax=csharp][/syntax]using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; using System.Data.SqlClient; namespace narzedzia_scierne3 { public partial class Form1 : Form { SqlConnection cn = new SqlConnection(); SqlCommand...
Ten błąd (przy włączeniu przycisku) dotyczy zapewne inicjalizacji okna. We wczesnych wersjach - które sygnalizowałeś - aby ominąć podobny błąd musiałem skierować makro na arkusz DANE przy "zerowaniu" danych. Sporóbuj więc poprawić kod inicjalizacji (w VBA dwukliknij w obszar okienka i popraw): Private Sub UserForm_Initialize() Arkusz_Nazwa =...
Witam. Poniżej fragment kodu. Wywala mi w Visualu błąd "error c2181: illegal else without matching if"... Proszę o pomoc co jest nie tak... [syntax=cpp]double x,error,c; double w,wyn; error=Convert::ToDouble(comboBox1->Te... int n;n=0; w=1; wyn=1; x=Convert::ToDouble(textBox2->Text); if(fabs(x)<=1) { {w=-w*(((2*n-1)*x)/(2*n+2)); n=n+1; wyn=wyn+(w);...
U siebie wysyłam dane arduino na serial w następującym formacie : DANE1:DANE2:DANE3:DANE ... A po stronie C# wczytuje serial [syntax=csharp] private void serialPort1_DataReceived(object sender, SerialDataReceivedEventArgs e) { try { dane_wejsciowe = serialPort1.ReadLine(); this.Invoke(new EventHandler(displaytext)); } catch (TimeoutException) { StatusBar.Text...
excel combobox textbox excel textbox combobox excel textbox
płytka stykowa atmega8 mieszanka paliwo video pełny ekran
Kod błędu F53 w piekarniku Whirlpool - przyczyny i rozwiązania Kamera Kenik KG 230 DP niewidoczna w sieci