تعرف على طريقة مميزة لفصل النصوص عن الأرقام ضمن الخلية ذاتها في برنامج إكسل.

الكود المستخدم في الفيديو:

Public Function SplitText(pWorkRng As Range, pIsNumber As Boolean) As String
'Updateby Extendoffice
Dim xLen As Long
Dim xStr As String
xLen = VBA.Len(pWorkRng.Value)
For i = 1 To xLen
xStr = VBA.Mid(pWorkRng.Value, i, 1)
If ((VBA.IsNumeric(xStr) And pIsNumber) Or (Not (VBA.IsNumeric(xStr)) And Not (pIsNumber))) Then
SplitText = SplitText + xStr
End If
Next
End Function

تنويه: يجب حفظ الملف بصيغة Excel Macro Enabled بعد إضافة الكود البرمجي.

حساباتنا على وسائل التواصل الاجتماعي:

تيك توك
فيس بوك
إنستغرام
تيليجرام
https://t.me/HaniTechChannel

يمكنكم التواصل معنا دائماً عبر البريد الرسمي للقناة




#excel #exceltutorial
#excelvba #productivity