VBATools

Lista wyboru

by on Jul.02, 2017, under Excel, Oprogramowanie, P艂atne

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.

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.

(c) Shon Oskar 鈥撀www.VBATools.pl

Wszelkie prawa zastrze偶one. 呕adna cz臋艣膰 ani ca艂o艣膰 tego artyku艂u nie mo偶e by膰 powielana ani publikowana bez zgody autora.

:, , , , , , ,

Leave a Reply