ID tematu: 76136
 |
Wyszukiwarka userform |
| Autor |
Wiadomość |
daniels1186 
Fan Excela
Wersja: Mac Office 2016
Posty: 70
|
 Wysłany: 02-10-2024, 04:21 Wyszukiwarka userform
|
|
|
Witam. Chciałbym prosić o pomoc w ogarnięciu wyszukiwarki w userform.
Chciałbym aby po dwukrotnym kliknięciu w tabelę roboczą uruchamiała się wyszukiwarka pobierająca dane z bazy.
Z comboboxa wybieramy kategorię czyli w chwili wybrania kategorii pokazuje tylko elementy do niej przypisane.
Następnie w listboxie "wyszukaj element" w sposób dynamiczny wyszukuje elementy z wcześniej wybranej kategorii.
Następnie po zaznaczeniu wyszukanego elementu po wciśnięciu dodaj element dodało go w tabeli roboczej w miejscu którym klikaliśmy.
wyszukiwarka.xlsm
|
 Pobierz Plik ściągnięto 8 raz(y) 16.81 KB |
|
|
 | ID posta:
437147
|
|
|
 |
|
|
|
|
daniels1186
Fan Excela
Wersja: Mac Office 2016
Posty: 70
|
| Wysłany: 02-10-2024, 12:04
|
|
|
Tyle udało mi się zrobić
Ashampoo_Snap_2024.10.02_13h03m05s_001_.jpg
|
 |
| Plik ściągnięto 16 raz(y) 161.28 KB |
|
|
 | ID posta:
437156
|
|
|
|
|
|
|
Tajan
Pomógł: 5548 razy
Posty: 12042
|
| Wysłany: 03-10-2024, 13:14
|
|
|
Przykładowe rozwiązanie w załączniku.
wyszukiwarka(tj).xlsm
|
| Pobierz Plik ściągnięto 24 raz(y) 30.43 KB |
|
|
| ID posta:
437179
|
|
|
|
|
|
daniels1186
Fan Excela
Wersja: Mac Office 2016
Posty: 70
|
| Wysłany: 03-10-2024, 13:54
|
|
|
Świetnie działa. Serdecznie dziękuję  |
|
| ID posta:
437181
|
|
|
|
|
|
daniels1186
Fan Excela
Wersja: Mac Office 2016
Posty: 70
|
| Wysłany: 22-10-2024, 12:11
|
|
|
| Witam. A czy dałoby radę aby elementy do wyszukiwania wyświetlały się po uruchomieniu wszystkie i możnaby je przeszukiwać wyszukiwarką a po wybraniu konkretnej kategorii wyświetlały się tylko elementy z danej kategorii? |
|
| ID posta:
437355
|
|
|
|
|
|
Tajan
Pomógł: 5548 razy
Posty: 12042
|
| Wysłany: 22-10-2024, 21:09
|
|
|
Da się zrobić... Zobacz załącznik.
wyszukiwarka(tj) (2).xlsm
|
| Pobierz Plik ściągnięto 29 raz(y) 29.84 KB |
|
|
| ID posta:
437372
|
|
|
|
|
|
daniels1186
Fan Excela
Wersja: Mac Office 2016
Posty: 70
|
| Wysłany: 23-10-2024, 05:01
|
|
|
Super. Dziękuję  |
|
| ID posta:
437376
|
|
|
|
|
|
daniels1186
Fan Excela
Wersja: Mac Office 2016
Posty: 70
|
| Wysłany: 24-10-2024, 03:20
|
|
|
| A można wiedzieć co pozmieniałeś aby uzyskać taki efekt? |
|
| ID posta:
437390
|
|
|
|
|
|
Tajan
Pomógł: 5548 razy
Posty: 12042
|
| Wysłany: 24-10-2024, 09:50
|
|
|
Wprowadziłem niewielką zmianę logiki działania do procedury "Szukaj" w module formularza. Zamiast:
| Kod: | For i = 1 To cnt
If dane(i, 1) = Me.ComboBox1.Value Then |
użyłem:
| Kod: | ktg = Me.ComboBox1.Value
For i = 1 To cnt
If ktg = dane(i, 1) Or ktg = "" Then |
i dodałem wywołanie tej procedury w procedurze zdarzeniowej formularza "UserForm_Initialize".
Dodatkowo zmieniłem linie:
| Kod: | If search = "" Then
search = "*" |
na: | Kod: | If search = "" Then
search = "*?*" |
aby wykluczyć wyświetlanie pustych komórek w kolumnie zawierającej nazwy elementów. |
|
| ID posta:
437399
|
|
|
|
|
|
daniels1186
Fan Excela
Wersja: Mac Office 2016
Posty: 70
|
| Wysłany: 24-10-2024, 19:54
|
|
|
Dziękuję za wyjaśnienie  |
|
| ID posta:
437419
|
|
|
|
|
|
|
|
Regulamin
