ستجد أدناه وظيفة ستساعدك على تقسيم النص إلى أجزاء بناءً على الفاصل المحدد.
لإضافة ماكرو، افتح المحرر 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(نص؛ محدد؛ رقم تسلسل الجزء)
أين: