GETSUBSTR LibreOffice için işlev Calc

GETSUBSTR() Açıklama

GETSUBSTR() işlevi, metnin bir kısmını verilen ayırıcıyla seçmek için tasarlanmıştır.

GETSUBSTR işlev kodu, metni belirtilen ayırıcıya göre bir diziye böler ve belirtilen seri numarasına göre verilen dizinin öğesini döndürür.

BASIC GETSUBSTR için kod

Aşağıda, metni parçalara ayırabilen ve LibreOffice Calc içindeki herhangi bir öğeyi alabilen özel bir GETSUBSTR işlevi oluşturmaya yönelik makro kodu verilmiştir.

Yeni bir işlev eklemek için Tools - Macros - Edit Macros... menüsünü açın, Module1'yi seçin ve aşağıdaki metni modüle kopyalayın:

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

Ardından, Macro Editor'u kapatın, LibreOffice Calc'ye dönün ve yeni işlevi herhangi bir hücrede kullanın.

YouLibreCalc uzantısını kullanma

"" uzantısını ayarlayarak GETSUBSTR() işlevini de kullanabilirsiniz. YouLibreCalc.oxt ". Bundan sonra LibreOffice Calc'de açılacak tüm dosyalarda bu fonksiyon mevcut olacaktır.