اكسس split دالة (VBA) لفصل كلمات نص اول حقل في أعمدة كل كلمة فى عمود ،مهما كان الفاصل بين الكلمات

رابط تحميل ملف الاكسس : https://drive.google.com/file/d/1Iw-X...
تم عمل نفس الدالة ولكن احترافية، وذلك فى سلسلة شرح vba الفيديو رقم 31 ، رجاء مشاهدتها لتعلم فائدة استخدام المتغير بنظام المصفوفة array واستخدام الحلقات التكرارية for each مما جعل الكود صغير للغاية ويقوم بفصل أى عدد من الكلمات :    • VBA31 شرح For Each للتعامل مع كل محتوى الم...  
تقطيع او فصل كلمات نص فى اعمدة

-----------------------صيغة الكود المستخدم--------------------------
Function GetColumn(strProductCode As String, strColumn As String, Separator As String) As String
Dim arCode 'هذا المتغير سيكون بنظام المصفوفات
Dim strReturn As String
strReturn = ""
On Error GoTo Sub_Exit
arCode = Split(strProductCode, Separator)
Select Case strColumn

Case "1"

strReturn = arCode(0)

Case "2"

strReturn = arCode(1)

Case "3"

strReturn = arCode(2)

Case "4"

strReturn = arCode(3)

Case "5"

strReturn = arCode(4)
Case "6"

strReturn = arCode(5)
Case "7"

strReturn = arCode(6)
Case "8"

strReturn = arCode(7)
Case "9"

strReturn = arCode(8)
Case "10"

strReturn = arCode(9)
'هذه الدالة تعيد حتى عشرة كلمات إن أردت المزيد ، يمكنك ذلك بالشكل التالى مع مراعاته حذف العلامة التى بأول السطر وانسخ والصق وغير الارقام بنفس التسلسل
' Case "11"
'
' strReturn = arCode(10)
' Case "12"
'
' strReturn = arCode(11)
Case Else

strReturn = " "

End Select

Sub_Exit:

GetColumn = strReturn

End Function

' GetColumn([field name],"number of column","Separator")
' GetColumn([t],"1","-") هذه الصيغة تعيد الكلمة الاولى من الفيلد المحدد والفاصلة "-"
--------------------------------------------------