GETSUBSTR Funkcja dla LibreOffice Calc

GETSUBSTR() Opis

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.

BASIC Kod dla GETSUBSTR

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.

Korzystanie z rozszerzenia YouLibreCalc

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.