GETSUBSTR الدالة لـ LibreOffice Calcc

GETSUBSTR() الوصف

الدالة GETSUBSTR() مخصصة لتحديد جزء من النص بواسطة الفاصل المحدد.

يقوم كود الدالة GETSUBSTR بتقسيم النص إلى صفيف بواسطة الفاصل المحدد وإرجاع عنصر الصفيف المحدد وفقًا للرقم التسلسلي المحدد.

BASIC رمز GETSUBSTR

يوجد أدناه رمز الماكرو لإنشاء وظيفة مخصصة GETSUBSTR يمكنها تقسيم النص إلى أجزاء واسترداد أي عنصر منه في LibreOffice Calc.

لإضافة وظيفة جديدة، افتح القائمة Tools - Macros - Edit Macros...، وحدد Module1 وانسخ النص التالي إلى الوحدة:

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

ثم أغلق Macro Editor، ثم ارجع إلى LibreOffice Calc واستخدم الوظيفة الجديدة في أي خلية.

باستخدام ملحق YouLibreCalc

يمكنك أيضًا استخدام الدالة GETSUBSTR() عن طريق تعيين الامتداد " YouLibreCalc.oxt ". بعد ذلك، ستكون هذه الوظيفة متاحة في جميع الملفات التي سيتم فتحها في LibreOffice Calc.