Funkcja GETSUBSTR() przeznaczona jest do zaznaczenia części tekstu według podanego separatora.
Kod funkcji GETSUBSTR dzieli tekst na tablicę przy użyciu określonego separatora i zwraca element danej tablicy zgodnie z podanym numerem seryjnym.
Poniżej znajduje się kod makra umożliwiający utworzenie niestandardowej funkcji GETSUBSTR, która może podzielić tekst na części i pobrać dowolny jego element w LibreOffice Calc.
Aby dodać nową funkcję, otwórz menu Tools - Macros - Edit Macros..., wybierz Module1 i skopiuj następujący tekst do modułu:
Function GETSUBSTR(Txt, Delimiter, n) As String Dim txtArray As Variant If Txt = "" Then Exit Function txtArray = Split(Txt, Delimiter) maxExt = UBound(txtArray) If n >= 0 Then normExt = n - 1 Else normExt = maxExt + n + 1 EndIf extToFind = Max(Min(maxExt, normExt), 0) GETSUBSTR = txtArray(extToFind) End Function
Następnie zamknij Macro Editor, wróć do LibreOffice Calc i użyj nowej funkcji w dowolnej komórce.
Możesz także użyć funkcji GETSUBSTR(), ustawiając rozszerzenie „ YouLibreCalc.oxt ". Następnie ta funkcja będzie dostępna we wszystkich plikach, które zostaną otwarte w LibreOffice Calc.