Witam! Utwórz sobie zmienną logiczną, która będzie ustawiana na TRUE, jeżeli focus trafi do pola ComboBox. W przypadku utraty focusa przez pole ComboBox, zmienna dostanie wartość FALSE. Odpowiednio obsłuż tą zmienną w swoim programie. Pozdrawiam!
W tym celu zmienna "wiersz" powinien być zadeklarowany jako globalna. Wtedy Range("D" & wiersz) = kw1.Text
ad.1 Przy zdarzeniu Change ComboBox'a sprawdzany jest każdy znak wprowadzany z klawiatury. Jeśli sprawdzany ma być tylko pierwszy, pierwszym warunkiem będzie Len(NazwaCombo.value)=1, następnie porównujesz (w pętli) z listą. Najprościej wstawić polecenie opuszczenia pętli przy pozytywnym wyniku porównania, a warunkiem kontynuowania kodu zrobić licznik_pętli...
Odnośnie zapytania zawartego w tytule wątku. Najprościej oprogramować zdarzenie 'przy zmianie' OptionButton'a. Oba są kontrolkami jednej ramki, więc upraszcza to zadanie (jeden wymusza zmianę drugiego). Uwagi: 1. Trzeba założyć, że dokonano już wyboru - w związku z tym zmienna temp i przemnożenie (zmiana znaku) przez -1 (dwa minusy dają plus) 2. Wypełnienie...
Witam, nie mogę sobie poradzić z jednym tematem. Stworzyłem kalkulator w którym jest kilka comboboxów z listami wyborów. I... chciałbym aby makro które wykonuje w danym kalkulatorze różne obliczenia na koniec zmieniło w comboboxie wybraną z listy wartość na inną. Piszac wprost. combobox ma listę wyboru: brak wskaźnik 1 wskaźnik 2 wskaźnik 3 ... pracując...
Chcę wyświetlić ilość pozycji wpisanych w komponencie comboBox. Czy jest jakaś zmienna służąca do tego?
j - Jest to zmienna lokalna, nawet jeśli globalny, wciąż mówi się j=9 j = ActiveCell.Row - tak chce jeśli aktywny arkusz jest "Wypozyczenia" na jakim arkuszu je ComboBox ?
Witam Od dłuższego czasu nie mam żadnej odpowiedzi. Bardzo proszę o pomoc !!! Postaram się uprościć moje pytanie. Dlaczego w niżej podanym kodzie nie jest przekazywany adres? [syntax=vb] Dim i As Integer Dim y As String ' lista wyboru Dim ListaArray As Variant Dim Ctr As Integer ListaArray = Array(RodzajLiniiLista, RodzajDodReaktLista) RodzajLiniiLista...
Witam, Czy można na formie dynamicznie tworzyć etykiety (Label), ListBox, ComboBox w zależności od zadanej liczby? Ta liczba zawsze będzie zmienna. Poniżej kod programu, który dla 5-ciu etykiet nazwanych Label1....Label5, wstawionych do UserForm, w pole Caption wpisuje odpowiednie wartości z Excel'a. [syntax=vb] Dim i As Integer ' zmienna pomocnicza...
Witam. Jaki typ powinna mieć zmienna zawierająca nazwę elementu? Tak abym mógł stworzyć np. własną funkcje żeby ta mogła odczytać wybrany combobox i do innego (podanego do funkcji) przesłać dane próbowałem z System::String^ ale niestety nie działa. Gdy piszę na przykład coś takiego: void nazwa_funkcji (JAKIŚ TYP zaspisz) { zapisz->Items->Add("1"); }...
w c# nie ma czegos takiego jak zmienna globalna. Jesli potrzebujesz takiej listy w wielu miejscach to możesz to tak zrobic. Jeśli potrzebujesz tego comboxa z taką samą listą w wielu formach to możesz zrobić własnego comboxa który bedzie sam sie wypełniał. Co do tego zapisu nazwa_klasy.nazwa_zmienne to sie przyzwyczaj :D
Hej! Mam problem tzn: Mam listę ComboBox w której wyświetlają mi się pewne towary. I mam ListBox gdzie chciałabym aby wyświetlała się ilość dostępna na magazynie+żeby użytkownik mógł wybrać ilość którą chce kupić. Private Sub WybierzTowar_Change() //tutaj nic nie wpisywałam End Sub natomiast: Private Sub IloscTowaru_Click() Dim poz As Integer poz =...
Hej! Masz kilka możliwości obsługi errorprovider'a. Możesz podpiąć się pod zdarzenie Validating() kontrolki - aktywne po wyjściu focusa poza kontrolkę. Tu możesz ustawiać/kasować błąd. Ja najchętniej piszę osobną metodę bool Walidacja(), w której sprawdzam "hurtowo" wszystkie kontrolki na formie które mają obsługiwać sprawdzanie błędów. Od jej wyniku...
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;...
[syntax=vb] Set Zmienna = Docel.Range(Cells(l_pw, l_kol), Cells(l_ow, l_kol)) ComboBox1.ColumnCount = 1 ' ComboBox1.List() = Zmienna ComboBox1.RowSource = Docel.Name & "!" & Zmienna.Address [/syntax]
Sprawdziłem działanie kodu i jest drobny błąd, który łatwo wykryć podglądając zmienne. Masz wpisane:[syntax=vb] With Sheets("Arkusz1") Do While .Cells(wrs, 1) <> Empty If .Cells(wrs, 1) = liczba Then dr = .Cells(wrs, 2) End If wrs = wrs + 1 Loop End With [/syntax] Ponieważ .Cells(wrs,1) jest wartością liczbową a zmienna, którą nazwałeś liczba...
Jaka jest wartość zmiennej Uas? To globalna zmienna? Oprócz dodawania pozycji na liście ComboBox jest metoda .AddItem, i nie właściwość Value. Lub co najmniej naciśnij klawisz F1, aby wprowadzić Szukaj ComboBox i zobacz metody i właściwości oraz 'Example'
Mozesz przy ladowaniu itemow do ComboBoxa czy innej listy.. tworzyc rownoczesnie tablice, gdzie na danym indeksie z listy bedzie id w tablicy np. ArrayList arListaId. I potem jak zaznaczysz cos w ComboBoxie to odczytujesz arListaId[ComboBox.ItemIndex (lub jesli w zdarzeniu to e.Index)]. Mniej wiecej tak by to sie robilo.. jesli pisalbys WebApplication...
Private Sub ComboBox2_Change() Range("B7") = ComboBox2.ListIndex End Sub To czaję i nie ma problemu. Private Sub ComboBox1_DropButtonClick() wiersz = ComboBox2.ListIndex + 2 With Sheets("Arkusz2") Select Case ComboBox1.ListIndex Case 0: .Range("C" & wiersz) = .Range("C"...
wyświetlanie określonego obszaru w formie Ja wiem, że na elektrodzie i ogólnie w sieci tak się właśnie pisze, ale językowo ten wpis pozbawiony jest sensu. "Form" nie jest słowem które powinno trafić do języka polskiego... Mówi się "forma czegoś" a w tym przypadku to przecież okno programu. No ale nic... czepiam się... Poniżej kod który robi coś w stylu...
Łap kod w c# i sam sobie porównaj, co możesz mieć źle. Załączam też projekt. Ja mam alergię na VB :) Kod nie jest pancerny. Jak wpiszesz tekst ze spacjami to może się posypać. zmienna jest na razie typu tekstowego, pewnie będziesz chciał ją sobie zapisać do inta, więc musisz parsować. Edit: jeżeli dopiero zaczynasz, to pewnie nie znasz takich ciekawych...
Na początek trzeba nauczyć się podstaw. Nagraj sobie makra tych operacji i przyjrzyj się jak zapisywane są zakresy. Np Nie: Koszyk!C5 = Wypożyczalnia!C7 Tak: Sheets("Koszyk").Range("C5") = Sheets("Wypożyczalnia").Range("C7") Tutaj zmiennej o nazwie "E7" zostanie odjęte 1: E7 = E7 - 1 zmienna przyjmie wartość -1 Po drugie: Jeśli będziesz miał 1327 pozycji...
1. Klawisze "blokowane" są w wyniku działania kodu procedury: cmbGra3 ' nie ma zogniskowania (focus), to w/w procedura nie działa, jeśli ma to ' Cancel = True ' blokuje możliwość opuszczenia ' Combobox '. 2. W procedurze zdarzeniowej ' Private Sub cmbGra3_Change ', kod: Private Sub cmbGra3_Change ' - gdy na pytanie: "Czy chcesz dodac nowa Gre" odpowiadasz...
Różne drogi prowadzą do Rzymu Zastosowałeś jedną w VBA (jak dla mnie trochę przekombinowaną - ale działa) Ja bym to zrobił np. tak edit: Jak teraz patrze na "twoje" rozwiązanie to widzę że właściwie są tam zmieszane ze soba (przedstawione wyżej przeze mnie) dwie metody na raz, co jeszcze bardziej przekonuje mnie w stwierdzeniu "przekombinowane".
Proponuje zmienić nazwy zmiennych "placowka, podzespol" aby były różne dla każdego ComboBox. np. tak: [syntax=vbscript] Private Sub UserForm_Initialize() Dim ost As Long With Arkusz1 ost = .Cells(.Rows.count, "C").End(xlUp).Row If ost = 2 Then ComboBox1.AddItem .Range("C3").Value ElseIf ost > 2 Then placowka = .Range("C3:C" & ost).Value ComboBox1.List...
Tak jak pisałem w zależności jaki miesiąc wybierzesz to do tego arkusza wpisują się dane wspólny dla wszystkich miesięcy - nie widzisz który miesiąc obsługujesz (suma w polu żółtym też jest wspólna tzn jeżeli coś wstawisz dla stycznia a za chwilę dla lutego to w żółtej kolumnie arkusza dane wartości z tych obu miesięcy zostaną zsumowane). W takim wypadku...
Witam. Chyba prościej byłoby zrobić coś takiego w oparciu o pliki INI. Podam ci przykład: Zrób nową formę, wrzuć na nią TIMER z dokładnością co do sekundy i w sekcji uses dodaj wpis: INIFiles . Dodaj zmienną globalną do projektu: INI: TIniFile; Dodaj zdarzenie OnFormCreate i w tej procedurze zostanie załadowany plik INI. Stwórz procedurę OnClose , w...
Wiekszosc zmiennych, to zmienne globalne. [syntax=delphi] var Form1: TForm1; usb:dword; pbDriverInstalled :integer = 0; lpguid:tguid; bufer: array[0..255] of byte; buferin: array[0..255] of byte; ib,dl,odczyt:word; poz:TstringList; ini:tinifile; rf:TRodzajflasha; [/syntax] W pierwszej wersji poz bylo tworzone w oncreate formy i mialo byc wykorzystywane...
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 ;)
:) ... sformatować ... bowiem to co widzisz jako format godzinowy w arkuszu, to tylko zwykła excelowa ściema. W komórce jest właśnie to, co ci się wyświetla w liście kombinowanej ... :) Np.: [syntax=vbscript]Option Explicit Private Sub UserForm_Initialize() Dim tbl(), indeks With Arkusz5 'tbl = .Range(Cells(10, 4), Cells(10, 15)).Value 'lub tbl = .Range("d10:o10").Value...
Powinieneś dodać własny skoroszyt jako przykład, co chcesz osiągnąć, bo w Excelu różne drogi prowadzą do celu. W każdym razie jeśli używasz funkcji ADR.POŚR, to jej pierwszy (a często jedyny) argument musi być w cudzysłowie - jeśli oznacza adres, z którego chcemy pobrać dane. Natomiast bez cudzysłowu - jeśli to jest komórka, która dopiero zawiera potrzebny...
błąd w linijce: "syntax error" ActiveChart.SetSourceData Source:=Sheets("Arkusz1").Range(cells(2, 2), cells(zakres, 2)) , PlotBy :=xlColumns gdzie "zakres" to zmienna typu integer przypisana przez : zakres=combobox1.value
... wartosc2 = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N") '14 wpisów Te wartości trzeba wprowadzać ręcznie ? Mam ich w bazie ponad 30 - numerów oraz nazw ... Przecież miał to być tylko przykład :D ... pewnie że nie trzeba ... :D Do przejrzenia zmiany w " ini ", " dopisz_do_bazy " oraz " usun_z_bazy " 828986 :D Dla wielu...
A co jest RZECZYWISTYM problemem? Wrzucone przeze mnie makro nie działa poprawnie. A nie lepiej użyć deklaracji tablicowej typu Combobox(x).value = 123 ? Wtedy możesz ogarniać to w pętli :D Niestety nie wiem jak to zrobić, byłbym wdzięczny za pomoc Ponadto, wysyłam przykładowy plik, w którym jest 15 z 150 combobox'ów 888269
Witam, mam dwa pytania na które nie znalazłem odpowiedzi, może ktoś podpowie: 1. Znalazłem w pewnej pętli takie wyrażenie: [syntax=csharp]if (!Double.TryParse(comboBox1.Text, out error)) { return; }[/syntax] szukam informacji na temat tych dwóch wpisów: [syntax=csharp]!Double[/syntax] [syntax=csharp]out error[/syntax] Czy ta zmienna double to jest jakiś...
wychodzi na to ,ze PrinterIndex jest "zmienna globalna". co do twojego pytania to trzeba np 2 razy wywolac PrintDialog,albo robisz 2 razy comboboxy, wczytujesz drukarki (uzytkownik wybiera drukarki w obu jednoczesnie) a pozniej do PrinterIndex przypisujesz ItemIndex najpierw z jednego combo a pozniej (po wydrukowaniu z pierwszego obiektu) z drugiego...
Item-y (Items) w TComboBox, to po prostu TStringList. Do każdego takiego item-u, możesz przyporządkować obiekt, zawierający dowolne dane. Nie ma znaczenia, czy i jak posortujesz zawartość TComboBox-a, bo obiekty będą sortowane wraz z sortowaniem zawartości listy TComboBox. Można nie sortować alfabetycznie wg. tego co TComboBox pokazuje, ale właśnie...
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,...
Cały kod tym drugim sposobem wygląda tak Form1->IBQuery2->Close(); Form1->IBQuery2->SQL->Clear(); Form1->IBQuery2->SQL->Add("UPDA... TABELA SET DATA_ZAL = '"+FormatDateTime("yyyy-mm-dd",DateTimeP... Form1->IBQuery2->SQL->Add("BR = '"+ComboBox1->Text+"',"); Form1->IBQuery2->SQL->Add("KOD....
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 &...
Chodziło mi o to że nie moge dodac elementów do ComboBox, wpisując: ComboBox1->Items->Add("co... ComboBox1->Items->Add("co... itd nie wyświetla mi tego po skompilowaniu w combobox i nie wie mdlaczego i jaka jest różnica między: ComboBox1->AddItem("cos1&quo... ComboBox1); a ComboBox1->Items->Add("co...
Listing: [syntax=vbnet] Imports System.Data.OleDb Imports System Imports System.IO Imports System.Drawing.Printing Public Class DemoForm Dim names() As String = {"", "A", "B", "C", "D", " "} Dim namesSzer() As Integer = {15, 235, 144, 330, 45, 40} Dim namesOffset() As Integer = {0, 110, 5, 60, 12, 10} Dim nagl1() As String = {"Lp", "data", "numer",...
Proponuję zakupić jakąś książkę do VBA Excela i przeczytać na początek kilka pierwszych tematów... [syntax=vbscript]Dim Dziewczynki As Long[/syntax] a potem [syntax=vbscript]If Dziewczynki = True Then[/syntax] Słyszałeś o typach zmiennych?
Robisz makro z nazwą "combobox1.change" (po kliknięciu na combobox) 1. W tym makro definiujesz stałą integer jako nr kolumny 2. Odczytujesz wartosć z pola combobox i przepisujesz do wybranego przez zmienną integer pola arkusza w pierwszej pozycji. 3. Inkrementujesz zdefiniowaną zmienną integer Makro po wykryciu kolejnej zmiany combobox uruchomi się...
Niestety nie działa. Ale zrobiłem tak gdy z ComboBox wybiorę wartość to cała linijka nawa1 d=10 s=5 w=3 zapisuje się do zmiennej [syntax=objc] AnsiString b = (ComboBox1->Text); char* m = b.c_str(); [/syntax] i gdyby zrobić wyszukiwanie po d, s, w. Tylko nigdzie nie mogę znaleźć jak przeszukać.
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...
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...
Zmienną suma zadeklaruj jako Integer (lub Double - zależy co sumujesz...). A w kodzie zadeklaruj sobie tak: [syntax=vb]Dim wsbaza As Worksheet Set wsbaza = Worksheets("BAZA") suma = WorksheetFunction.SumIf(wsbaza.Range("K:... ComboBox1.Value, wsbaza.Range("AH:AH"))[/syntax]
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.
Dzień dobry. Borykam się z problemem użycia funkcji Application.Match przy wyszukiwaniu numeru PESEL i zwróceniu numeru rzędu w tabeli. Problem polega na tym, że funkcja ta świetnie sobie radzi, jeżeli PESEL zaczyna się od zera (np.: 01111111111), ale gdy jest już 111111111111, to wywala błąd, że nie znaleziono. Podczas próby ręcznego wpisania PESELu...
Wartości do listboxa wpisuję funkcją AddItem.Pierwsza kolumna to wartość zmiennej, druga i trzecia to wartości z comboboxów. [syntax=vb] With Me.listbox_karata_zapisu .AddItem "" .Column(0, lp - 5) = lp_pracownika .Column(1, lp - 5) = Me.ComboBox1.Value .Column(2, lp - 5) = Me.ComboBox2.Value End With[/syntax]
wypełnić combobox vbnet combobox combobox dodawać
automatyczne uruchomienie laptopa suzuki grand peugeot partner światła schemat
clarion dxz858rmp clarion dxz858rmp
Jak sprawdzić induktor Rbin 2000: Pomiar i diagnostyka Arduino: Wyłączanie diody po 2 sekundach przytrzymania przycisku