VBATools

Dodatek za drobne:

Jeśli pracujesz na plikach, w których masz pełno elementów, które musisz wyszukać i wklejać je w miejsce przeznaczenia, to pow 30 zaczyna ci się odechciewać klikania [Ctrl+F]. Dobrze było by skorzystać z mechanizmu ograniczającego wybór, coś na kształt auto-filtra, jednak umieszczonego i wywołanego z konkretnego obszaru komórek.

Do tego, często miejsce docelowe nie jest umieszczone w arkuszu bazy lub twoje wyszukanie dotyczy wielu baz, a więc dochodzi przechodzenie pomiędzy arkuszami. Uff już mi się nie chce, a robotę zrobić trzeba.

PomyÅ›laÅ‚em wiÄ™c o dodatku, który można wywoÅ‚ać w dowolnym pliku, oraz z dowolnego obszaru i bazujÄ…c na danych w nim zgromadzonych wywoÅ‚ać mechanizm ograniczajÄ…cy listÄ™ zdefiniowanych danych. Brzmi fajnie – a wyglÄ…dać powinno równie prosto:

Tutaj przykÅ‚ad gdzie zdefiniowano zakres z arkusza “baza” kolumny B:B gdzie mechanizm okreÅ›liÅ‚ min obszar elementów. Nie braÅ‚ pod uwagÄ™ pustych komórek oraz wskazaÅ‚ listÄ™ niepowtarzalnych elementów. Takich obszarów można deklarować nieskoÅ„czonÄ… ilość, a nazwa arkusza bÄ™dzie wskazywaÅ‚a jakie dane ona przedstawia.

Wpisanie części frazy spoÅ›ród 723 elementów, ograniczyÅ‚ listÄ™ do 15 potencjalnych elementów, po którym wybraniu można klikniÄ™ciem wpisać w aktywnÄ… komórkÄ™ [H8]

Dodatek doczekał się małego UPG polegającego na dodaniu wielo-wyboru z zapamiętaniem listy (a nie pojedynczej pozycji do wklejenia:

Mechanizm narzÄ™dzia nie ma ograniczeÅ„, co do definiowania obszarów, które to można dowolnie przeÅ‚Ä…czać podczas pracy ze skoroszytem. Listy te zostajÄ… zapamiÄ™tane w dodatku i zostanÄ… przywoÅ‚ane po ponownym jego uruchomieniu na danym skoroszycie. Uruchomienie go jednak na pliku, w którym nie ma zdefiniowanych arkuszy/obszarów, nie wyÅ›wietli ich elementów na liÅ›cie.

W najnowszej wersji dodatek pracuje również na arkuszach danego skoroszytu ale również na innych skoroszytach, zapamiętując zadeklarowane listy.

Możesz wywołać mechanizm dodatku z menu, albo ze swojego arkusza (konkretnego obszaru) przez dodanie paru linijek kodu:

'Przykład dla dowolnego arkusza i zakresu komórek drugiej kolumny 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then _
     Application.Run "vbatools_Lista_wyboru.pokarzLista"
End Sub

Jak to wyglÄ…da w praktyce wg v1, film na [YT]:

Dodatek zgodny z Office >= 2010 (oraz 365) dla 32/64bit

Zainteresowani zakupem dodatku proszeni sÄ… o kontakt i zapoznanie siÄ™ z warunkami licencji.