التقسيم التلقائي للنص حسب الفاصل المحدد

GETSUBSTR() الوصف

ستجد أدناه وظيفة ستساعدك على تقسيم النص إلى أجزاء بناءً على الفاصل المحدد.

VBA رمز الماكرو

لإضافة ماكرو، افتح المحرر Visual Basic (Alt+F11)، إدراج وحدة برنامج فارغة جديدة (Inser - Module) وانسخ نص هذه الوظيفة هناك:

Function GETSUBSTR(Txt, Delimiter, n) As String
   Dim x As Variant
      x = Split(Txt, Delimiter)
      If n > 0 And n - 1 <= UBound(x) Then
        GETSUBSTR = x(n - 1)
      Else
        GETSUBSTR = ""
      End If
End Function

احفظ ثم عد إلى Excel. الآن في الوظائف المخصصة يمكنك العثور على دالة GETSUBSTR() الخاصة بنا.

GETSUBSTR(نص؛ محدد؛ رقم تسلسل الجزء)

أين:

نص - النص الموجود في الخلية التي نخطط لاستخراج الأجزاء منها؛
مقسم - الرمز الذي سنقسم به النص؛
الرقم التسلسلي للقطعة - الرقم الذي سيُظهر الجزء الذي نريد الحصول عليه بالترتيب.

مقالات حول الموضوع: