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
O! Widzę, że zmieniłeś #1. teraz nieco jaśniej. Jeśli kolejno, to przypisz najpierw wartość zmiennej "i" Gdzieś będzie skrajny/górny wiersz, Np drugi. Wtedy: i = Range("B2").end(xldown).row +1 (albo od dołu, jeśli nie ma nagłówka) Poskładać do kupki (konkatenacja) wartości TextBox'ów też nie powinno stanowić problemu, Np cells(i,2) = textBox1.text &...
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 ;)
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.
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...
Przecież parametrem funkcji wyboru (np Range) jest adres w postaci tekstowej.
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...
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...
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....
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,...
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...
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...
Do takiego filtrowania listy musiałbyś wykorzystać TextBox. Raczej nie da się tego wykonać "wewnątrz" ComBox'a, gdy jest aktywny (posiada focus).
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]
Znalazłem "błąd". Ponieważ przykład z funduszem robiłem na liczbie całkowitej (555) zapomniałem/nie zwróciłem uwagi że liczba z przecinkiem dla VB jest z kropką. Później kod próbuje to dalej konwertować i występuje różnica typu. Wystarczy pobrać z funduszu remontowego tekst wartości Text .TextBox5.Visible = True .TextBox5.Enabled = False .Label6.Caption...
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....
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ę...
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...
Witam :) po raz n-ty.. Mam 3 wyniki Dni ,Godziny, Minuty, w Label'u albo Textbox'ie chce odjąć od nich np 170 godzin i żeby wyświetliło mi w kolejnych 3 kontrolkach wyniki odejmowania. Jak może wyglądać przykładowy kod ? Pozdrawiam.
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...
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...
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]
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ź.
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...
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...
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 :?: Nie jasne gdzie (w którym arkuszu) ? chcesz prowadzić te rozliczenia :cry: Natomiast ilości na asortyment :?: są zliczane w arkuszach...
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...
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 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...
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]
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,...
dlaczego chcesz ponownie wykonywać zapytanie przy filtrowaniu? Zrób filtrowanie dynamiczne bezpośrednio na dbgrid coś tego typu... Data <= '" & date2 &
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...
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"....
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,...
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...
Czy tak przekombinuję? Na to wygląda... Wykorzystaj właściwość ListIndex Combobox'a. Pierwsza pozycja pola kombi ma indeks 0. Przyjmując założenie, że wartość pola tekstowego pobierana będzie z zakresu C5:Cxxx to Private Sub ComboBox1_Change() wrs = ComboBox1.ListIndex + 5 TextBox1.Text = Sheets("Arkusz1").Cell... 3)...
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,...
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...
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;...
A rzeczywiście, mój błąd. Powinno być 'wpisanie do arkusz ceny sprzedazy Range(Cells(licznik + 1, 5), Cells(licznik + 1, 6)).Select cenasprz = TextBox3 Cells(licznik + 1, 5).Value = cenasprz With Selection .HorizontalAlignment = xlCenter .MergeCells = True .NumberFormat = "#,##0.00 $" End With 'wpisanie marży...
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 ");...
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:...
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 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...
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...
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,...
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...
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,...
[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...
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)...
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....
Witam! Komunikuje się z pewnym urządzeniem za pomocą portu RS232, nadaje ono stringi w postaci xxxxxxxx + CR/LF, gdzie x to 1 lub 0. W moim programie użyłem SerialPort. Zastanawia mnie teraz jak zrobić takie coś: gdy moje urządzenie coś nada to program automatycznie to wyświetli i zapali odpowiednie "lampki", udało mi się napisac to w taki sposób, że...
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....
Znalazłem rozwiązanie. Nie wierze ze było takie proste. zamykam temat. [syntax=VBA]Private Sub Anuluj_click() Unload Me Dodaj1.Hide Menu.Show End Sub Private Sub UserForm_Initialize() ComboBox2.AddItem "Nie" ComboBox2.AddItem "Tak" ComboBox1.RowSource = "A2:A13" End Sub Private Sub ok_Click() If ComboBox1 = "wybierz" Or TextBox1 = "" Or TextBox2 = ""...
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...
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]...
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 =...
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...
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.
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]
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
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.
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...
Clubs, Wszystko działa idealnie. A co w momencie gdy skorzystam z comboboxów w celu filtrowania listboxa... Jak wtedy dodawać wartości dokładnie w zaznaczonych pozycjach? Offsetem są zmieniane na listboxie, także brakuje mi pozycjonowania w arkuszu jak rozumiem??? PLik w załączniku
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;...
Załaczam kod, który działa. odbiera dane z portu szeregowego i wyswietla je w MsgBox(). Zwróć jedynie uwagę na zdarzenieSerialPort1_DataReceived. Zmień w nim ilośc bajtów po której mają zostać odczytane dane z BUFORA portu szeregowego. Początkowo bowiem dane trafiają do bufora (każdy bajt oddzielnie wywołuje przerwanie i trafia do bufora) a stamtąd...
Witam chce zrobić automatyczne dodanie w combobox numeru wersji np.w combobox mam 0.0.0 a gdy w pliku np.wersja bedzie 0.0.1 to doda mi taka liczbę do comboboxa i wklei kod jaki jest zapisany w pliku wersja.Jak takie coś zrobić? Dodano po 7 Taki kod mam do zapisywania danych z 3 przycisków- Dodano po 29 Jeśli w notatniku będzie 0.0.1 to w combobox ma...
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...
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...
Przepraszam Moderatorów za to, że nie edytuję starego wpisu ale nie chcę zaśmiecać. Rozwiązanie problemu (nie wiem czy eleganckie czy nie ale działające): Projekt pisany w WPF / C# Tak jak Mad. pisał zamiast kombinować z kilkoma Panelami wystarczy użyć Frame i Page. Tylko trzeba przemyśleć kwestię co dokładnie ma się generować na każdej stronie. Kod...
Aha i odnośnie problemu wpadłem na pomysł żeby w okienku obok textboxów było okienko zablkowane w którym pojawiały by się wybrane dane. Jeśli tu też by coś podpowiedział pomógł z góry dziękuje ;)
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.
Trochę się nie zrozumieliśmy :). Jak dodawać elementy do listboxa wiem tylko jak wstawiłem sobie comboboxa i nie wiem jak do niego dodawać elementy. A wracają do mojego drugiego problemu to oczywiście nie chodzi mi o chceckboxa tylko o textboxa. Mój błąd, przepraszam. Wiesz które opcje odpowiadają za ograniczenie textboxa?
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?)
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...
excel combobox textbox excel textbox combobox excel textbox
obrotomierz diesel polonez bateria kuchenna dźwięk eurozłącze
unitra as632 głowica tarcza szlifierki 180mm
Regulacja ilości paliwa w silnikach Deutz 420 i 4038 Manta 50 26 wyłącza się po 10 sekundach - przyczyny
