VBATools

Dodatek za drobne:

Narzędzie przydatne dla każdego analityka Excelowego, który ma potrzebę przetransformować datę na liczbę reprezentującą miesiąc, kwartał, rok lub inne kombinacje. Opisywany dodatek jest bardzo prosty w obsłudze i zamianę realizuje dla zaznaczonego obszaru dat. Występuje on w dwóch wersjach.

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

Wersja PRO:

Dodatek posiada też wersje rozszerzoną, która wyposażona jest w kalendarz, dzięki któremu można wstawić wybraną datę w aktywną komórkę lub zaznaczony obszar komórek lub użyć daty do uzyskania przekształcenia z listy. Dodatkowo w wersji PRO wynik można uzyskać w kolumnie wskazanej w interfejsie (z listy liter kolumn). Kalendarz w interfejsie posiada numery tygodnia co zwiększa jego możliwości w rozliczeniach finansowych, które kierują się tym parametrem. Posiada również zaznaczenie polskich świąt. Dodatek korzysta z kontrolki kalendarzowej CC2 sprawdź Czy mój system współpracuje z kontrolkami CC. W wersji 2016/365 należy kontrolkę tą doinstalować.

W dowolnym pliku jaki chcemy zautomatyzować przez wpisanie daty w odpowiednio określone miejsce, można odwołać się w wersji PRO, która pozwala na wyświetlenie kalendarza. W module skoroszytu docelowego należy umieścić poniżej przedstawiony kod. Jeśli nasze potrzeby są większe, można oprzeć warunek na zakresach lub powielić je zmieniając konkretnie zdefiniowane komórki.

'Przykład dla arkuszy "Arkusz_xxx" i zakresu komórek "C2" 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If InStr(1, Sh.Name, "Arkusz") And _
 Target.Address = "$C$2" Then _
 Application.Run "vbatools_operacjadata_pro.Data"
End Sub

'Przykład dla arkuszy "Arkusz_xxx" i zakresu kolumn  
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) 
If InStr(1, Sh.Name, "Arkusz") And _  
 Not Intersect(Target, Sh.Range("D:D")) Is Nothing Then _  
 Application.Run "vbatools_operacjadata_pro.Data" 
End Sub

Oto prezentacja dodatku na YouTube:

Przy tej okazji polecam też dodatek do MS Word Wstaw długą datę wstawiający lub zamieniający istniejącą w dokumencie datę w różnych formatach, jak i w Outlooku dla nowej lub edytowanej wiadomości email.

Aktualna wersja PRO v5.2  (wersja dostosowana do zmiany standardów formatu daty w W10 oraz możliwość chowania kalendarza w interfejsie).

Dla Excela 64bit polecam wersje STD oraz osobom liczących na kalendarz sugeruje darmowe rozwiązanie: Niezbędnik dla Exelomaniaków

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

Zainteresowani zakupem dodatku proszeni są o kontakt i zapoznanie się z warunkami licencji.