TOP

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

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

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

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

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

SPLITUP (النص، الفاصل، الرقم التسلسلي للجزء) ، أين:

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