Lista produktów będzie pojawiała się zawsze od komórki C14 i ilość wierszy w dół może być różna
Tak chyba najprościej będzie. W "Module2" masz wypełnianie listy. Na wzór wstawiłem pierwsze trzy (z ośmiu). Musisz sobie tylko dopasować szerokość kolumn w Initialize oraz dopisać pozostałe. Kolejność zostawiam Tobie. W moim przykładzie zaczyna się od "model", dalej "typ" i "chipset".
Inny plik, inny obiekt. Na przyszłość: Kliknij ppm w obszar obiektu, wybierz "Przypisz makro", "Nowe" lub "Edytuj" jeśli już jest...
ListBox1.ColumnCount=9 ListBox1.RowSource = "Arkusz2!A1:I400"
Aj For k = 0 To 18 Kolumna nie moze byc 0 Worksheets("TLP").Cells(ListBox1.ListInd... k+1).Value = Controls("txt" & k & "v").Value
Wystarczy pobrać który wiersz w kolejności z listbox'a zaznaczyłeś lstFiltr.ListIndex a jak widać wprowadzasz do boxa listę od drugiego wiersza (B2) więc mając na uwadze to że listbox "liczy" własne wiersze od 0 należy powiększyćwynik o 2 i już masz nr wiersza. nrWrs = lstFiltr.ListIndex +2
...ListView, który jest inną kontrolką niż ListBox (ma inne właściwości i inaczej się do niego ładuje dane). Ten sposób ListView2.ListItems = "'BAAN 3'!G8:K97" ładowania danych NIE JEST poprawny dla ListView, zapomnij o nim. To działa tylko z ListBox'em. USUŃ z formy wszystkie ListBoxy które tam miałeś... Zamiast nich wstaw i skonfiguruj...
Witam Możesz otworzyć przez shell-a i listbox np clik np. [syntax=vbnet]Private Sub lstDokument_DblClick(ByVal Cancel As MSForms.ReturnBoolean) sciezka = ActiveWorkbook.Path & "\Dokumenty\Pracownik\" & NazwiskoImie Set she = CreateObject("Shell.Application") she.Open sciezka & "\" & lstDokument Set she = Nothing End Sub[/syntax]
Próbowałem od nowa stworzyć aplikację i dalej ta sama sytuacja. Może jak mówi adamas_nt zastosować funkcję TimeSerial :?: Ale jak to zapisać :?: Pomóżcie, mam na poniedziałek oddać już tą aplikację :!:
Teraz wiem w czym problem. Twoja podpowiedź dotyczy trybu projektowania z poziomu arkusza excel. Moje pytanie dotyczy listbox'a umieszczonego na formatce userform.
Jak najszybciej i najprościej przemieścić informację z textboxa do listboxa o ograniczonym zakresie komórek (30)? Pytanie jest spowodowane brakiem wiedzy i pomysłu.
Wie ktoś może z czym problem ? Wysiadła mi bateria w magicznej kuli :cry: - więc na podstawie tak wyciętego obrazka i bez pliku trudno zgadnąć :cunning:
Cześć wszystkim mam mały problem a mianowicie Po kliknięciu raz pojawi się imie w komurce np. C1 Po dwukrotnym kliknięciu pojawi się imie w komurce np.. D1 Ale żeby po tym dwukrotnym kliknięciu nie znikło ani się nie zmieniło imię w komurce C1 tylko żeby wtedy były dwa c1 z pierwszego wyboru(1 klik) a w d1 z drugiego wyboru(dwa kliki) Dołączam załącznik...
ad2 Jeżeli zrobisz wszystkie listboxy w osobnych userformach Dlaczego? Na podstawie zdarzenia Change jednego ListBox'a można przypisać zakres/tablicę/item drugiemu...
Witam, mam problem z programem napisanym w Excelu 2003, sprawa wygląda tak: mam jeden arkusz z danymi zaprojektowany w ten sposób że każda kolumna zawiera dane jednej grupy produktów w początkowych wierszach następnie jest jeden wiersz z typem danej grupy produktów a następnie znajdują się kody poszczególnych produktów każdy w osobnym wierszu (jeden...
Witam, nie wiem czy ja mam coś nie tak, czy tez mój excel (bo wg mnie co najmniej jedno z rozwiązań, których próbowałam powinno zadziałać. Mam formularz, w którym jest kontrolka RefEdit o nazwie Dane_wej oraz ListBox o nazwie Lista_kolumn. Chciałam by, w formularzu , w polu listy pojawiły się dane z pierwszego wiersza z zaznaczonego zakresu - czyli...
Witam, Przygotowuje narzędzie dzięki któremu druga osoba będzie mogła w prosty sposób dodać albo usunąć dane z arkusza. Dodawanie jest proste, gorzej z usuwaniem Stworzyłem UserForm a w nim TextBox1 gdzie użytkownik wpisuje wartość, którą chce usunąć. Po wpisaniu tej wartości w ListBox1 wyświetla się ta wartość lub sugeruje odpowiedź. Przykład: Użytkownik...
Spawa dotyczy UserForm'y? Może wrzuć przykład.
Mam taki problem z UserForm3: Jest przycisk Otwórz plik -> otwiera plik Następnie lista arkuszy z tego pliku w ListBox1 -> użytkownik wybiera ręcznie które arkusze chce przeliczać (może wybrać kilka) Następnie W userform1 jest stworzony listbox1, do którego wrzucam normalną pętlą poszczególne arkusze z otworzonego pliku Następnie W głównym makrze pobieram...
With Me.lst For i = 0 To .ListCount - 1 If .List(i, 2) = "Brak JPG" Then .Selected(i) = True End If Next End With Dodano po 1 lst - to jest ListBox
Proszę o pomoc związana z ListBoxem i pobieraniem wybranej pozycji z listy do ustalonej komórki oraz wyświetlaniem tej pozycji również jako 4 kolumny, jak to jest w pierwszym. Mam stworzoną tabelę z 4 kolumnami, która jest wczytana do pierwszego ListBoxa. ListBox ustawiłem tak, aby wyświetlał 4 wczytane kolumny i wszystko gra. Problem pierwszy pojawia...
Próbowałem sposobem jak przy normalnych makrach Czyli jakim? :-) Umieść kod w zdarzeniu KeyDown formantu ListBox (a nie w zdarzeniu Formularza) Przykładowy kod dla ListBox1: [syntax=vbscript] Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyF4 Then ' dalszy ciąg instrukcji End Sub [/syntax]...
W excel 2003.
Ciekawe jak szybko jedna kolumna w ListBox przestanie wystarczać? Fajnie by było widzieć więcej danych. :) Jeżeli trzeba będzie wiele kolumn, to mam gdzieś przykład, tylko muszę go wygrzebać.
Trzeba posortować. Np metodą bąbelkową.[syntax=vb]Private Sub zapisz_Click() Me.ListBox1.AddItem (Me.TextBox1) Me.TextBox1.Value = "" With ListBox1 For i = 0 To .ListCount - 2 For j = i + 1 To .ListCount - 1 If .List(i) > .List(j) Then temp = .List(j) .List(j) = .List(i) .List(i) = temp End If Next Next End With End Sub [/syntax]
Excel 2003
Witam, (at)1: JRV BARDZO DZIĘKUJĘ !!!! - (kolejny raz, już zresztą) A zupełnie poważnie - po takich podpowiedziach / radach - jak Twoje - uświadamiam sobie jak mało wiem, jeśli chodzi o pisanie makr w VBA Excel !!! Dla "czytających" - załączam przykład makra z poprawkami JRV - po tych poprawkach można tworzyć dynamicznie uzupełniane / rozwijane listy...
Dzięki wielkie. Działa wyśmienicie. Teraz w ListBox wyświetlają mi się wszystkie dokumenty przypisane dla danego pracownika. A czy można bezpośrednio z tej listy wyświetlonej w ListBox otworzyć wybrany dokument?
Witam potrzebuję waszej pomocy. Próbuję stworzyć UserForm z dwoma listboxami które bazują na jednym textboxie i jednym comboboxie Pierwszy listbox służy mi do znalezienia użytkownika, nastepnie po wybraniu pozycji w comboboxie (nowy/istniejący) chciałbym aby w drugim listboxie pokazywało mi zamówienia tego klienta (lub nie jeżeli jeszcze nie dokonał...
Moja baza pracowników zawiera około 1000 pracowników a każdy pracownik ma przypisane około 150 kolumn z przeróżnymi danymi. Baza jest aktualizowana prawie nonstop. Wolałbym utworzyć bazę danych w jakimś pliku tekstowym ale takim z którym dał bym sobie rady (przyznam że jeszcze nigdy czegoś takiego nie robiłem, do tej pory pracuję na bazie umieszczonej...
Ktoś już kiedyś walczył z filtrowaniem listBox'a: http://www.elektroda.pl/rtvforum/viewtop...
useform i listbox z opcją 'multiseleka' pierwsze słyszę o tym :) poczytam i wrócę z pytaniami! Kod z chekbox'ami działa! tylko podczas filtrowania nakładaj się na siebie i nie ma możliwości wyboru.
...błąd pokazuje w tej ścieżce: Plik = Dir(sciezka & "\Dokumenty\Pracownik\" & Alpex.lstAnkieta.Column(0, Alpex.lstAnkieta.ListCount - 1) & "\" & Alpex.lstAnkieta.Column(0, Alpex.lstAnkieta.ListCount - 1) & ".jpg") To sprawdź jeszcze tak [syntax=vbscript]sciezka = ActiveWorkbook.Path & "\Dokumenty\Pracownik\" & Alpex.lstAnkieta.Column(0, Alpex.lstAnkieta.ListCount...
Dziękuję za odpowiedz, z tym "leniwcem " nie tak do końca się zgodzę :), Powinienem może załączyć plik było by łatwiej, więc załączam teraz. Przy wypełnianiu listbox wszystko fajnie działa, natomiast nie odświeża mi się suma w textbox1 - chyba że kliknę (?) i jeszcze jedno czy mógłbyś rzucić okiem na : Private Sub TextBox_Tytul_Gry_Sprzedaz_Change()...
Tylko chodzi mi o listbox a nie combobox
U mnie drukuje poprawnie. Jaki masz komunikat błędu?
W prosty sposób robi się to w okienku ListBox. Poniżej opiszę krok po kroku jak to zrobić ( opis dotyczy Excel 2003 ) 1. stworzyć listę , w kolumnie A numer sali , w kolumnie B opis sali 2. utworzyć na arkuszu ( tym samym co spis ) okienko ListBox ( menu Narzędzia/ Dostosuj, wybrać w zakładce Paski narzędzi, Przybornik formantów ) 3. z paska Przybornik...
Dziękuję za pomoc, Próbowałem zaaplikować proponowane przez Ciebie zmiany do swojego excela. We właściwościach kodu Arkusza wpisałem tak: Private Sub ListBox1_Change() Module2.ukrywaj End Sub http://obrazki.elektroda.pl/3639391300_1... Następnie wprowadziłem warunek ukrywania pozostałych Arkuszy. http://obrazki.elektroda.pl/3415918300_1...
Sam kod w VBA, w najprostszej postaci, nie jest skomplikowany. Z pewnych wzgledów jest to bardzo uproszczony sposób na uzyskanie zamierzonego zadania. Na poczatek należy jasno okreslic pewne warunki jak ma dzialac taka procedura. Po pierwsze to w zadnym przypadku nie powinno sie do tego celu korzystac z dodatkowego arkusza. Po drugie procedura powinna...
Witam, ListBox ma być wypełniany danymi z tablicy, spełniającymi warunek (porównanie tekstu z TextBoxa i komórek arkusza). Procedura działa ale tylko przy pominięciu słowa "Preserve" przed Redim - w ListBoxie wyświetla wtedy oczywiście tylko ostatni wiersz spełniający warunek. Po dodaniu "Preserve", mam błąd "Subscript out of range". Co robię nie tak?...
Siedzę już nad tym problemem 3 dni i nie mogę sobie poradzić. Poradziłem sobie z tym, że w kontrolce „Label5” wyświetlają się liczby sformatowane z oddzieleniem tysięcy i dwoma miejscami po przecinku. Daje mi to ten zapis: Label5.Caption = Format(Round(suma1, 7), "# ### ###.00") To pozwala na szybszą orientację w wyświetlanych kwotach. Próbuję...
Zauważyłem, że na tym forum jest spore grono fachowców z Excela, wiec przedstawiam swój problem, może mi ktoś pomoże. Wprowadzane są dane w tabeli - w poszczególnych wierszach. W jednej z komórek muszę wprowadzić dane związane z określoną listą (lista ta ma kilkanaście pozycji, ale o bardzo długich nazwach - więc proste rozwiązanie typu "sprawdzanie...
Zabrałąe sie za tworzenie bazy danych i wymysliłem sobie że zrobie formularz i bedzie sam uzupełniał bazę danych i ok wyszło mi coś tam w vba napisało mi się jako tako. Ale stoję teraz pod murem mam bazę, która zawiera obecnie 1750 rekordów w 16 kolumnach. W kolumnach mam pokolei: nazwisko, imię, data zatrudnienia...... i np w ostatnich dwóch data badania...
Podmień ComboBox na ListBox...
Witam. Mam pytanko związane z oknem ListBox. Okno to wyświetla kolor czcionki jaki sobie ustawie. Czy jest możliwość aby w ListBox w którym wyświetlają się jakieś informacje w paru kolumnach, niektóre z tych informacji wyświetlały się w inny kolorze jaki bym potrzebował?
>10 column jezeli zakres bedzie w ListFillRange p.s. edytowano Dodano po 10 Sprobuj Dim zakr '.... zakr(i,1) = ark.Cells(i, 2) zakr(i,2) = ark.Cells(i, 4) '... itd. Alpex.ListMarkownik.ColumnCount =30 Alpex.ListMarkownik.List = zakr
Można obejść ograniczenie ListBox'a do 10 kolumn przez załadowanie danych do zmiennej tablicowej, ale bardziej eleganckim rozwiązaniem będzie użycie kontrolki ListView zamiast ListBox.
Wszystko mi działa, ale to sortowanie niestety nie. Mam połączenie z bazą dodaje usuwam rekordy i jest ok. Dane wyświetlam w listbox. chodzi mi dokładnie o to żeby posortować dane wg 1 kolumny czyli wg nazwy (alfabetycznie) i wyświetlić ponownie listbox.
to mi nic nie pomaga Oczywiście jeśli używany tylko w pogotowiu [syntax=vb]Private Sub ListBox1_Change() ListBox2.ListIndex = ListBox1.ListIndex End Sub [/syntax]
Lecz pomimo jej przefitrowania w listboksie widzę wszystkie pozycje. Jak zrobić bym widział tylko te po filtracji? Najszybciej przez 'additem' (czyli pętla po widocznych komórkach i ładowanie do listboksa)
Witam 1. AddItem ma limit do 10 (0-9) 2. Przez AddItem nie da rady przypisać nazw jedynie przez RowSource
zobacz taki myk [syntax=vb]Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) ListBox1.ListIndex = ListBox1.ListIndex + 1 End Sub[/syntax] gdzie textbox1 to twój textbox i listbox to samo
excel listbox filtr excel combobox listbox excel userform listbox
passat mechanizm wycieraczki pomiary odbiorniku radiowym excel przypisać zmienna wartość
naprawa udaru makita bateria milwaukee
Zwiększenie pojemności baterii Ryobi z 5Ah do 9Ah - jak to zrobić? Komunikat "opróżnij tackę" w ekspresie Saeco
