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".
OblKierownik1.MatchRequired = True - to nie makrem, to we wlasciwosciach kombo(proektowanie) .ControlSource - wlasciwosci - ma byc adres komorki na arkushe - u mnia dziala
Musisz oprogramować ComboBox. Jeśli zmiana działa, to wynik z Combo zapisz do komórki "pod nim" i masz zdarzenie WorksheetChange. [syntax=vbscript]Private Sub ComboBox1_Change() Range("F11") = ComboBox1.Text End Sub[/syntax] Problem w tym, że dla każdego musi być osobna procedura. A dlaczego nie poprawność/lista? Działa przecież...
ListIndex w combo UserForm2 nie ma zastosowania w taki sposób, ponieważ lista jest wynikiem filtrowania. Rozwiązań jest jak zwykle kilka: 1. Wielokolumnowy Combobox, gdzie wyświetlana jest tylko jedna kolumna. Po wybraniu wartości, w Label'ach umieszczamy zawartość pozostałych kolumn. 2. Klasycznie - z wykorzystaniem tablicy, tu ListIndex jak najbardziej....
Ops! Sorki, pewne rzeczy wydają się oczywiste. Żona ostatnio wydała komendę: "wsyp soli". I bądź tu mądry, wolałem uciec do piwnicy niż zadawać pytania :D Położenie arkusza w 'Initialize' formularza. Nie wiedziałem o który chodzi, wpisałem w największy. Wyszukiwanie w kodzie arkusza, podpięte pod przycisk. Nie robiłem żadnego zabezpieczenia przed błędem....
Poniżej przykład do pierwszej zakładki. Resztę zrobisz sobie analogicznie.
Spróbuj poprawność danych>lista (pobierana z zakresu lub wpisana ręcznie).
[syntax=vb]ListaArray = Array(RodzajLiniiLista, RodzajDodReaktLista)[/syntax] Elementy tej tablicy są typu variant, którym nie nadano wcześniej wartości, stąd mają wartość null. Kolega pewnie googla i wkleja, prawda?
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...
To nie taki hop-siup: w VBA masz trochę ograniczoną liczbę obiektów którymi by można to wykonać w miarę prostu, więc trzeba samemu napisać dwa fragmenty kodu: jeden odpowiedzialny za wyłuskanie niepowtarzających się wartości z podanego zakresu i drugi, który je posortuje rosnąco (zakładając, że te dane mają być posortowane). Można by do tego wykorzystać...
Wg mnie wywołane zdarzenie change dla combobox2 winno ładować listę dla następnego combobox, teraz za każdym razem gdy zmieniasz wartość combobox2 to ponownie ladujesz do niego listę, troch nielogiczne
cześć, mam do Was wielką prośbę, ponieważ nie wiem jak do końca zrobić aby w combbox przypisać wartości z arkusza poza opcją Source: =Arkusz1!D8:D25 Czy istnieje aby przypisać takie wartości jakoś inaczej i pomijane były wiersze puste ? Czy ewentualnie można zrobić tak, aby dane wyświetlane w liście combbox były od najmniejszej do największej, ale żeby...
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]
Witajcie. Mam w excelu na formatce combobox który przez RowSource zaciąga jakiś zakres danych np (A2:C40). Na rozwijanej liście combo wyświetlam dane z kolumny "A" wspomnianego zakresu. Jak w polu tekstowym comboboxa zaczynam coś wpisywać pojawiają się sugestie/podpowiedzi zaczerpnięte z listy rozwijanej combobox. Jak zrobić aby podczas wpisywania w...
Zrobiłem pewien plik, który jak się uruchomi wyskakuje okno UserForm z miejscami do uzupełnienia arkusza. Część tekstu wpisuje się w TextBox'y a część wybiera z list ComboBox'ów. Problem pojawia się wtedy gdy kliknę na listę ComboBox, Excel się zawiesza i bez zamknięcia z poziomu menadżera urządzeń nic się nie poradzi. Nie wiem co jest nie tak?
Czy jest możliwe aby w liście combobox 'SIEC' były nazwy wszystkich arkuszy oprócz START i BAZA Nie mogę sobie z tym poradzić. Jak zrobić aby po dodaniu nowego arkusza znalazły się tam nagłówki z arkusza BAZA od B1 do G1 Zapis danych do arkusza BAZA (wszystkie) i odpowiednio do tego arkusza który zostanie wybrany w Combobox -SIEC. Znalazłem podobny...
Widzę, że nie bardzo lubisz makra ;) a wystarczy: 1. makro z WorkbookOpen powtórzyć przy WorksheetActivate (aktualizacja listy Combobox''a). 2. Usunąć instrukcje warunkowe dot. producenta Listę kolorów modyfikujesz w arkuszu "Opcje". Musi być "ciurkiem" (bez dziur). Edit 20:17 - zmieniłem załącznik (Clear brakowało przy Activate)
Udało mi się :) Dziękuje za nakierowanie na poprawność danych przez listę. "skakanie" mam odpalane przez key_down.
Bez VBA raczej się nie da. Jeśli mowa o VBA, ComboBox ma tę właściwość. W przykładzie uForm uruchamiany przez podwójne kliknięcie. Możesz wybrać z listy lub wpisując pierwsze znaki. Zatwierdzasz Enter'em. Spróbuj, może to jest to...
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,...
Nie morduj się, tylko podejdź matematycznie. Policzyłem, wyszukałem i podpowiadam: W 'Arkusz1' w B2 wklej =JEŻELI(LICZ.JEŻELI(Arkusz2!D$6&... i przeciągnij w dół. Już pewnie wiesz co dalej ;) w C2 =INDEKS(A$2:A$19;PODAJ.POZYCJĘ...
Hmm, zdaje się, że jest: dodatkowe umiejętności, kwalifikacje - wymagania Gdyby jeszcze zapisane były "bazodanowo"... Np na podstawie zdefiniowanych list (combobox, listbox, poprawność danych)
Można tak: [syntax=vb]Sub AddItem(ByVal sItem As String, ByRef cmbBox As ComboBox) ' adds item retaining alphabetic order Dim l As Long For l = 0 To cmbBox.ListCount - 1 Select Case StrComp(cmbBox.list(l), sItem, vbTextCompare) Case 0: Exit Sub ' already in the combobox Case 1 cmbBox.AddItem sItem, l Exit Sub End Select Next l cmbBox.AddItem sItem End...
Witaj Lista wartości jest gdzieś na arkuszu, lub musi być wykonane makro?
Dzięki. Jeśli chodzi o nazwy zakresów to wszystkie je łączy to że zaczynają się od słowa 'nam' a dalej to są nazwiska a to co podałem powyżej to tylko przykład. Pomyślałem o innym rozwiązaniu. Dodałem okno UserForm które będzie mi służyć do ustawiania opcji i między innymi dodałem okno ComboBox i mam pytanie, jakim kodem po inicjalizacji okna UserForm...
dlaczego ograniczenie listy następuje dopiero po wpisaniu spacji Należy zmienić warunek porównujący stringi. Funkcja InStr szuka także wewnątrz. Np pamiętasz, że sala ma w nazwie "020" a nie pamiętasz początku. W przypadku długich ciągów metoda nie sprawdza się. Spróbuj [syntax=vb]If UCase(Left(lista(i, 2), Len(txtOpisSali.Text))) = UCase(txtOpisSali.Text)...
Listy dla pola kombi nie sortuj poza arkuszem, nie pozbierasz się z indeksami. Nie rozumiem natomiast dlaczego uparłeś się biegać przez ogródek, jeśli do furtki dwa kroki...
Niestety to nie to. Mam bowiem pięć combobox'ów. Wszystkie listy tych Combobox'ów są wypełniane w ten sam sposób i z tego samego arkusza. Cztery listy sie wyświetlają bez problemów a jedna czasami i to powtarzam, czasami jest pusta. Wtedy jedynym lekarstwem jest wyłączyć program i uruchomić na nowo. Wszystko wraca do normy, ale do czasu. jeszcze dla...
Tylko chodzi mi o listbox a nie combobox
aby zamiast wyszukiwać w combo po pierwszej literze szukać ciągu liter Proponuje przejrzeć rozwiązanie [url=https://www.youtube.com/watch?v=jmB... rozwijana z opcją wyszukiwania
Po wybraniu wartości w pierwszym CB, [syntax=vbnet] Combo 2. Items. Clear For i = 0 to lista. Count -1 lista z której ładujesz combo If lista. Item (i) <>Combo1. Selecteditem. Value then Combo 2. Item. Add(lista. Item(i)) End if Next [/syntax] To zdarzenie wywołaj przy combobox 1. Selecteditemchange
[syntax=vb]ComboBox1.ListIndex[/syntax] Tylko że ListIndex zaczyna liczyć od 0 więc jeżeli chcesz poznać wiersz to : [syntax=vb]wiersz=ComboBox1.ListIndex+1[... Ale jeżeli listę pobierasz nie od pierwszego wiersza arkusza należy dodać liczbę wierszy od pierwszego do wiersza w którym zaczyna się początek listy czyli np: [syntax=vb]wiersz=ComboBox1.ListIndex+1....
Witam, w arkuszu mam 150 list rozwijanych typu combobox Makro ma wybrać 5 z nich i załadować do nich dane Listy mają nazwy Lista_1_01, Lista_2_01, Lista_3_01, Lista_4_01, Lista_5_01 z tym że ostatnie 2 cyfry zmieniają się od 01 do 30 i są brane z komórki F1 z tego względu że nie potrafię zrobić tego inaczej, napisałem coś takiego: [syntax=vbscript]Sub...
Nie rozumiem dlaczego VBA, ale skoro ma być... Po pierwsze: do wyszukiwania osoby nie możesz oddzielać imienia i nazwiska. Zrobiłbym sobie kolumnę pomocniczą łączącą teksty z kolumny C i D, z niej pobierał dane do listy. Masz "załatwione" dwie rzeczy: jasną identyfikację osobnika oraz precyzyjne wyszukiwanie /indeksowanie. Po drugie: w formularzu wyszukiwania...
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...
A może zastosować inne rozwiązanie? Zastanawiam się i kilku rzeczy nie mogę rozgryźć. Zapytam: 1. Czy plik to jeden miesiąc, czy więcej? 2. Jeżeli nie, to co będzie za pół/półtora roku? 3. Czemu ma/miał służyć pierwszy arkusz? Zakładając, że plik to miesiąc można ten arkusz wykorzystać do przedstawiania wyników wyszukiwania (stosując listę, combobox,...
Witam, tworzę w pracy mały program - generalnie większość to różnego typu funkcje, które moge zrobić sam bez używania VBA. Jestem totalnie zielony i udało mi się znaleźć kod, który powinien działać [syntax=vbnet]Option Explicit Dim tbl() As Variant Private Sub cmdOK_Click() Range("C2") = ComboBox1.Text End Sub Private Sub ComboBox1_Change() Dim i As...
:) ... 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...
Natomiast nadal nie mam pomysłu jak wpisać jako nową wartość "domOWY" jeśli mam na liście "domowy" Nie rozumiem. Napisałeś, że dodajesz na koniec listy. Excel rozróżnia wielkość liter, zdaje się...
Po zmieszaniu kodów wyszło mi: A może .. [syntax=vbscript]Private Sub Workbook_Open() Sheets(1).ComboBox1.List = Application.Transpose(Range(Cells(1, 1), Cells(1, Columns.Count).End(xlToLeft))) End Sub[/syntax]
Witam! Stworzyłam w pliku ze sporą ilością danych 3 wyszukiwarki, a dokładniej 3 comboboxy z zawężaniem podpowiedzi w liście rozwijanej w zależności od wprowadzonej wartości. Niestety mam problem z którym nie potrafię sobie poradzić, a mianowicie: Gdy w jednym z pól zacznę wpisywać wartości i coś wybiorę z podpowiedzi https://obrazki.elektroda.pl/2298353700_...
1. Kod z Initialize uForm1 przekopiować do Initialize uForm2 2. Przy Open załadować uForm2 3. przy zamknięciu ukryć formularz (nie zamykać) i wyczyścić ComboBox W efekcie wyjdzie coś, jak w załączniku. UserForm1 jest w tym przypadku zbędny.
W całości popieram zdanie kolegi jankolo (i żeby nie było, że ceruję się u moderatora) :D Toteż nie podeślę gotowca. Odpowiem tylko na zadane pytania. Czy muszę dla każdego z tych produktów tworzyć osobny warunek If Nie. czy mogę zastąpić to jakąś petlą Nie trzeba. w jaki sposób? Tworzysz formularz. Umieszczasz na nim Combobox -a i Label -a. Właściwość...
Ogólna idea jest następująca w pętli do loop unit chce wsadzic automatycznie gererującego sie comobox lub list box i wypełnia tekst z innego arkusza jak masz jakiś pomysł będę bardzo wdzięczny
Dzień dobry, Przy wykorzystaniu Userform wprowadzane są dane da arkusza. Arkusz traktowany jest jako swego rodzaju baza danych. Jedna z kolumn tworzy nazwany dynamiczny zakres: "PESELW" [ =PRZESUNIĘCIE(DaneOsobowe!$B$2;0;0;ILE.N... ]. Następnie ten zakres wykorzystany jest do wygenerowania listy w combobox: [syntax=vbscript]...
szczerze mówiąc nawet go nie zauważyłem, a po wklejeniu nie widzę żadnej różnicy :) ... i co, jak próbujesz wyjść z ComboBox o nazwie "cmbListItem" bez wybrania czegokolwiek z listy, to ci pozwala ? ... :)
Nie wiem jak zrobić by z comboBoxa można było wybrać 2 bądz więcej numerów katalogowych Nie da się. Musiałbyś wykorzystać pole listy z ustawionym MuliSelect na wartość 1 lub 2. Następnie sprawdzać cała listę i działać warunkowo (if Listbox.Selected(indeks/licznik pętli)=true then) Ewentualnie umieścić dodatkowe, wielowierszowe pole listy z pionowym...
Dzięki podpowiedzi kolegi z innego forum rozwiązałem to tak: With ActiveSheet.ComboBox1 .Clear Do .AddItem rst![Kategoria] .List(.ListCount - 1, 1) = rst![Typ, nr katalogowy] rst.MoveNext Loop Until rst.EOF End With Może się komuś przyda
Nie mam Corel'a, ale VBA chyba wszędzie podobny... Najprościej byłoby z FileDialog. Jeśli konieczna jest lista dysków w ComboBox, to można połączyć z FileSystemObject. Załączam przykład takiej listy plików w Excel'u.
Witaj -lista -> wybierz ActiveX ComboBox powiedzmy że chcę wybrać po 1 komórce z każdej kolumny [syntax=vbnet]Sub plus1() For Each c In Selection c.Value = c.Value + 1 Next End Sub [/syntax]
Proszę o pomoc, bo sam nie mogę rozgryźć już tego problemu Dlatego podpowiadam gdzie widzę źródło potencjalnych błędów, żebyś mógł samodzielnie je wyeliminować. Bez względu jakiego uczyłeś się języka w szkole :D - odnośnie Excela i VBA musisz zapamiętać, że program zawsze operuje datą jako wartością liczbową (np. dzisiejsza data dla niego to zawsze...
Na pierwszym arkuszu umieszczamy listę Combo. Żeby wyświetlić listę arkuszy można to zrobić w makro, które ładuje listę Combo przy otwarciu skoroszytu, w obsłudze zdarzenia Workbook_Open: [syntax=vb] Option Explicit Private Sub Workbook_Open() Dim iWiersz As Integer Dim ws As Worksheet iWiersz = 1 'Utwórz listę arkuszy w pierwszym arkuszu od drugiego...
W arkuszu OCENA trzeba zacząć wpisywać nazwisko. Proponuję na literę K. PO wyborze nazwiska reszta ładnie się uzupełnia. Problem w tym, że jeśli cokolwiek próbuję zmienić w arkuszu lista znów się rozwija. Dziś zauważyłam, że próbując zmienić coś w innym pliku excel, jeśli ten z załącznika jest otwarty, też mam ten problem. Zdarzenie Change działa zbyt...
Takiej odpowiedzi się nie spodziewałem :D Jajecznica może być przecież zarówno na śniadanie, obiad, czy kolację... Akurat w tym przypadku nie będzie takiej sytuacji, że jakieś danie może być dostępne w kilku porach - jajecznica zawsze będzie na śniadanie ;) W związku z tym, chce mieć podział na 5 list z potrawami, bo jak dodam 25 potraw na sniadanie,...
lista wielokrotnego wyboru , po naciśnięciu edytuj można edytować zawartość Przejrzałem Twój plik i niestety "za Chiny" nie mogę zrozumieć :cry: co masz na myśli używając nazwy lista wielokrotnego wyboru . Co to ma być jakiś listbox, czy combobox :?: ale co wtedy ma znaczyć wielokrotny wybór u Ciebie ? Robiłem już jakieś listboxy z wielokrotnym wyborem...
Dzięki wielkie. Teraz to już taki wypas że ino pozazdrościć, a najważniejsze że ułatwi mi to moją pracę. Jeśli chodzi o funkcję magazyn to na chwilę obecną właśnie mam to zrobione tak że jak chcę coś prze edytować to kopiuję pozycję do edycji w odpowiednie komórki zaznaczone na screenie, potem pozycja jest usunięta z listy a po edycji dodana z powrotem...
[syntax=vbscript]Private Sub ComboBox1_Change() [F1] = ComboBox1 End Sub Private Sub OptionButton1_Click() Me.ComboBox1.RowSource = "Arkusz1!A1:A5" [F1] = ComboBox1 [E1] = "litera" End Sub Private Sub OptionButton2_Click() Me.ComboBox1.RowSource = "Arkusz1!B1:B5" [F1] = ComboBox1 [E1] = "cyfra" End Sub Private Sub UserForm_Initialize() Me.OptionButton1...
To że się poddałem nie znaczy że nie próbowałem. Uwierz że próbowałem ale nic z tego mi nie wychodzi. Nawet wkleiłem kod w takiej postaci jak zapodał kolega Aldrin do UserForm_Initialize ale to powoduje że ten kod jest już inicjowany w momencie jak kliknę na przycisk którym otwieram okno UserForm. A gdzie tam żeby kod był inicjowany po otwarciu listy...
Bez makra się nie obejdzie. Wprowadź do arkusza objekt rysunkowy (Image1) tam gdzie ma być to zdjęcie. I wprowadź kod przyporządkowując w każdej liście wyboru każdą z wybranych opcji do jakiegoś rysunku. np tak: Select Case ComboBox1.ListIndex Case 0 Image1.Picture = LoadPicture("c:\rys1_1.jpg&... Case 1 Image1.Picture = LoadPicture("c:\rys1_2.jpg&...
Witam Dziś mam takie zadanie. Mam userform którego zadaniem jest ocena dostawcy. Jest w nim 8 comboboxow ( kryteriów) oceny a w każdym combo są po trzy parametry słowne oceniające dostawce w danym kryterium, np.: dla kryterium jakość Obslugi w combobox jest: odpowiednia, zadowalająca i niezadowalajaca. I te maja swoje odpowiedniki 2, 1 i 0. - do średniej...
I każdy ComboBox ma ustawione we właściwościach odwołania do arkusza "Robocze" :?: :D Tak :) To ten sam ComboBox w kilku arkuszach ;) Nie wiadomo zupełnie jak masz zorganizowany ten plik, jak ustawione nazwy arkuszy, jakie dane chcesz eksportować do PDF :?: :cry: Bez załączonego przykładowego pliku (oczywiście bez wrażliwych danych :D i skompresowanego...
aby tylko ta fraza się ukazywała Do takiego działania Comboboxa konieczne byłoby utworzenie specjalnego kodu VBA :cry: - wydaje mi się jednak, że niewarta "skórka wyprawki" :D Zgodnie z właściwościami Comboboxa - każda wpisana litera w polu edycji wywołuje w reakcji - system podpowiedzi :!: , a lista wyboru ustawia się z pierwszym wyrażeniem spełniającym...
Podany przeze mnie obraz jest z Akcesa. O ile się orientuję, to Excel nie daje możliwości użycia więcej niż jednej kolumny (może się mylę). Jeżeli nie, to musisz poskładać dane z 3 kolumn rozdzielając je np. '|', a następnie po wybraniu pozycji z listy odpowiednio rozdzielić.
Poniżej bez definiowania listy. [syntax=vbscript]Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 32 Then Set l = Sheets("Lista") If IsNumeric(ComboBox1) Then l.Range("A:A").AutoFilter Field:=1, Criteria1:=ComboBox1 Else l.Range("A:A").AutoFilter Field:=1, Criteria1:="=**" & RTrim(ComboBox1) & "**" End If ComboBox1.Clear...
Dzięki za sugestie . Zminiłem ładowanie listy na dynamiczne i zadziałało, szkoda że nie rozumiem przyczyny . Nie łapię "jawnie określone " w RowSource - wpisuje nazwę zakresu np. lista_Czegos , inny sposób wywala błędy ; pewnie czegość nie wiem?. Dynamicznie AddItem działa przy otwartych innych plikach i o to chodzi - trochę więcej zachodu bo trzeba...
Ja napisać w kodzie formułę SUMIF, tak aby została sumowana kolumna AH dla zadanego kryterium poprzez ComboBox, np. mam listę pracowników i dla danego pracownika z kolumny K który pojawia się kilkakrotnie ma zliczać skalę i podać na koniec wynik dla danej osoby Próbowałam ale ma błąd i nie potrafię sobie z tym poradzić With suma .Formula = "=SUMIF(K2:K,"...
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 ;)
Witam. Mam prośbę o udzielenie pomocy. Mam pewien plik który filtruje mi listę na podstawie dat. W tym kodzie mam zastosowany taki warunek: [syntax=vb]If DateValue(ark.Cells(i, 7)) < Date Then[/syntax] ...ten warunek filtruje mi daty które są już nieważne. Ja potrzebuję zastosować jeszcze inny warunek do filtrowania tak aby przefiltrowało mi daty...
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]...
https://obrazki.elektroda.pl/7836119800_... Jak na rysunku chce zablokować możliwość wprowadzania jakichkolwiek znaków w pasek wyboru. Aby był możliwy tylko wybór dodanych wartości z listy. [syntax=vbscript]Private Sub UserForm_Activate() 'Asortyment wybór Me.ComboBox1.Clear Me.ComboBox1.AddItem "Surowce" Me.ComboBox1.AddItem "Półfabrykat"...
dodałem rabat przy zakupie Już wcześniej się zastanawiałem: Dlaczego rabat przy zakupie? Jako cenę zakupu wpisuje się cenę z rabatem i nikogo (łącznie z US) nie obchodzi cena bez rabatu. Istnieją różne systemy rabatów: procentowe, kwotowe, łączone (Np: jeśli poniedziałek to rabat 5% ale nie więcej niż 5zł) i musiałbyś je wszystkie uwzględnić :) Natomiast...
No i to cały kod: Private Sub ComboBox1_Change() End Sub Private Sub UserForm_Initialize() lista1 = Array("Oferta", "Zamówienie", "Specyfikacja", "Pismo", "Protokół", "Reklamacja") ComboBox1.List = lista1 lista2 = Array("mail", "osobiście", "faks", "DHL") ComboBox2.List = lista2 lista3 = Array("Daniel", "Łukasz C.", "Łukasz M.", "Sławek", "Wiesiek")...
Zrobiłam wyszukiwanie Właśnie, zrobiłaś wyszukiwanie za pomocą Comboboxa, wynik jest w komórce Linked Cell (właściwość comboboxa), to nie jest typowa lista rozwijalna w komórce.
wartości są brane z listy rozwijanej, a do list rozwijanych wprowadzane sa z tabeli exel przy użyciu: Me.ComboBox1.RowSource = Range(Cells(5, 3), Cells(16, 3)).Address 'ilosc godzin pracy Me.ComboBox2.RowSource = Range(Cells(4, 3), Cells(a, 3)).Address 'ilosc godzin uciazliwych Me.ComboBox3.RowSource =...
Witam, Jak w temacie. Combobox o nazwie SMkolor w userformie, próbuję dodać listę z innego arkusza(Kolor) niż aktywny(mogą różne arkusze), problem w tym, że nie wiem jak napisać kod który dodał by tylko pola wypełnione z pierwszej kolumny arkusza "Kolor". Czy mógłby ktoś miły pomóc? Dodano po 55 Jakby co to sobie już poradziłem, wklejam kod... może...
Zerknij Ale tak, w excelu jest tylko 10 arkuszy. W pierwszym są tylko dane niewykorzystywane, zaś od 2 do 9-go są wykresy do pobrania. Może jakiś ComboBox z listą arkuszy/nazw wykresów?
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...
Hej! Zupełna zagwozdka mam takie dane jak w załączniku i teraz tak potrzebne mi sa 3 pola wyboru i jesli w pierwszym polu wybiorę określną wartość to będzie to ograniczenie dla 2 pozostalych pól jesli w drugim wybiorę określony projekt, to w trzecim combobox powinny pojawic sie do wyboru tylko wartości odpowiednie dla wybranego projektu czyli wybieranie...
Koledzy pomożecie z takim drobiazgiem. Bo mam zaćmienie. Private Sub UserForm_activate() Sheets("LISTA").Activa... Dim a As Integer a = 4 + ComboBox1.Value Me.ComboBox3.RowSource = Range(Cells(4, 3), Cells(a, 3)).Address Jeśli Combox1 ma wartość jest OK ale jeśli jest puste wyskakuje błąd nr 13 i nie...
hej, bardzo fajna opcja. Dziękuję. A co w przypadku gdybym chciał, aby ta lista w drugim oknie była wyła wyszukiwana pionowo ? istnieje taka możliwość ?
witam ponownie, (at)PRL, dziękuję, makro działa poprawnie, ale kontynuując temat - zaznaczamy OptionButton "litera" oraz w ComboBox'ie "B", a następnie zmieniamy literę na "cyfrę", to w Comboboxie dalej zostaje wpisana wartość "B". Co można zrobić, żeby w przypadku zmiany pola wyboru wartość z listy się zerowała (albo przyjmowała wartość domyślną)?
miesiace to inne zagadnienie :) tam beda automatyczne podliczenia godzin pracy w danym miesiacu jesli chodzi o szczegoly. Czyli szukasz unikatowych wartości dla JobNo & Description? Bez względu na daty, czasy, etc? tak, bez wzgledu na inne wartosci unikatowe wartosci maja sie znalesc w tblList na podstawie unikatowych danych pobieranych z tabeli HoursDetails...
Trochę odgrzebuję temat, ale nie bardzo sobie potrafię poradzić z wykorzystaniem podanego rozwiązania do moich potrzeb. Pytanie jest takie: w jaki sposób można połączyć wyszukiwanie poprzez zawężanie zakresu? Innymi słowy, jeśli w polu "nr sali" wpisze jakaś wartość, to chciałbym, aby wpisując wartość w "Opis sali" wyszukiwał w zakresie już zawężonym...
Witam, Jestem początkująca w programowaniu VBA w Excelu. Mam problem z okodowaniem Comboboxa tak aby w zależności od wyboru z listy kopiował mi zakres komórek z innego Arkusza do drugiego w konkretnie wskazane miejsce, W załączniku dołączam plik .xlsm z moim przykładem. Chciałabym żeby w arkuszu MP HOLT-WINTERS po wyborze z ComboBoxa: np. "V"Excel kopiował...
W Excelu masz do wyboru, dwa sposoby zastosowania pola wyboru: 1. Pole kombi - pobierasz go z menu Formularze ( trudniej jest go zaprzegnac do roboty z poziomu VBA, latwiej przy zastosowaniu formul ) 2. ComboBox - pobierasz go z menu Przybornik Formantów i mozesz wszelkie ruchy zwiazane z dzialaniem tego obiektu wykonac swobodnie w VBA Jezeli dane ktore...
kopiowanie funkcji chodzi mi o przeniesienie do arkusza1 gotowego wzoru bedacego w komorce w arkuszu3, z tym ze, wzor liczy np. mnozac 4 komorki przez siebie w ustalony sposob - czyli wzor. Wzor moze ulec zmianie i zmieniam go w arkuszu3. Dlaczego ? Dlatego ze w arkuszu3 beda inne wartosci 4 kolejnych mnożonych komórek. W arkuszu3 wyliczam sobie współczynnik...
Można jeszcze inaczej to zrobić. Najpierw wpisanie do ComboBox nazw zakresów komórek w arkuszu:[syntax=vb] Private Sub UserForm_Initialize() Dim zakres As Name For Each zakres In ActiveWorkbook.Names ComboBox1.AddItem zakres.Name Next If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0 End Sub [/syntax] Po wywołaniu zdarzenia Change ComboBox1 pokazane...
Witam ponownie. Mam w moim pliku poniższy kod którym po aktywacji okna UserForm wpisuje zakresy do odpowiednich okien. Wszystkie listy z zakresami są umieszczone w pomocniczym arkuszu. Jak zrobić żeby kod pobierał zakresy nie z arkusza ale z osobnego pliku tekstowego? Do jakiego pliku tekstowego wrzucić moje zakresy i jak przerobić kod żeby te zakresy...
Mam w moim pliku dodane okno (na poniższym screenie) na podstawie którego drukuję arkusz z odpowiednimi danymi. Ogólnie to wszystko jest OK. Poniżej jest kod który wszystko przesyła do arkusza. Okno pozwala na wydruk pojedynczej listy dla jednego pracownika. Jak zrobić aby okno miało możliwość wydrukować taki sam arkusz dla wielu pracowników? http://obrazki.elektroda.pl/3447331200_1...
Serdeczne dzięki za pomoc. Spróbuję to wykorzystać. Dodano po 45 Z tym ostatnim wierszem to nie za bardzo. Dane są bowiem wpisywane w różne miejsca w kolumnach i dodawanie do już istniejących danych liczbowych. A przy okazji może mi pomożecie z takim drobiazgiem. Bo mam zaćmienie. Private Sub UserForm_activate() Sheets("LISTA").Activate Dim a As Integer...
Dlaczego SQL? W arkuszu "dane" nie ma tabeli w rozumieniu Bazy Danych (Dane>wstaw tabelę). Odwołuj się do prawidłowych nazw. Z drugiej strony, zdaje się, że można to zrobić prościej. Czy chodzi Ci tylko o przypisanie list do combobox'ów? Łatwiej byłoby posługiwać się tablicami. Co z powtórzeniami?
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...
hmm.. Otwieram to w excel2007; w J1 tylko #GB bez zadnej listy(poprawnosc danych lub form ComboBox lub ActiveX Combobox) ActiveSheet.shapes.count - wynik zero Jakiego rodzaju lista?(poprawnosc, form lub ActiveX) Jaky sens tyle nazew zakresow?(Tabela....)
Mam akrusz excela i kontrole ActiveX (lista rozwijalna) Chcialbym zeby ta lista zmienila pozycje i rozmiar na taka jak podana w kodzie, za kazdym razem jak otwieram arkusz. Przypuscmy przesuwam obiekt (liste) w dowolne miejsce akruszu i zapisuje zmiany w pliku. Po ponownym otworzeniu pliku, kontrola powinna powrocic na miejsce okreslone w kodzie. Na...
Witam. Po raz kolejny zwracam się do Was z problemem, tym razem z bardziej kosmetycznym, który bardzo mnie irytuje. Poprzez procedurę w VBA: Set addedRow = tbl_DoPowolania.ListRows.Add With addedRow .Range(2) = ComboBox1.Text .Range(3) = Format(TswPesel, "00000000000") .Range(4) = Format(ComboBox2.Value, "yyyy-mm-dd") .Range(5) = Format(ComboBox3.Value,...
W Listboxie możesz ustawić ColumnCount = 5 i RowSource = =PRODUKTY!B2:F46 Ewentualnie, przy klinięciu przycisku START wczytać dane ręczenie wiersz po wierszu: [syntax=vb]Private Sub cmbstart_Click() With Worksheets("PRODUKTY") For i = 2 To .Range("B" & .Rows.Count).End(xlUp).Row PROG1.ListBox1.AddItem PROG1.ListBox1.List(i - 2, 0) = .Range("B" & i)...
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 =...
Najprostszy przykład (z zakomentowanym connection string dla dwóch wersji plików): Arkusz1 , dane są wpisane do kolumny z nagłówkiem Miasto
Dzięki za pomoc. Chciałem przy pomocy Comboboxa umieszczać w n - arkuszach w wybranych komórkach dane. Ma to zapobiec błędnym wpisom. Obecnie działa to na liście rozwijanej. Przy dodaniu funkcji tablicowej .Jeszcze jednej :) Excel zaczyna mulić. Dlatego szukam wsparcia w VBA.
u mnie po ściągnięciu działa poprawnie. Ale zaczynam mieć wrażenie że nie damy rady tego zrobić bez odpowiednio zaprogramowanego comboboxa
lista combobox combobox lista excel combobox
magnesowanie wirnika wyszukiwarka allegro podtrzymać sekunda
momenty dokrecania peugot momenty dokrecania
Jak odblokować prędkość w hulajnodze Ninebot G2? Kod błędu 245402 w systemach EZVIZ i Hikvision