فصل الكلمات ( عربي - إنجليزي - رقم ) من خلية الى أعمدة

[الـعيدروس]

السلام عليكم

إخوتي الاحبه أعضاء وأساتذة منتدانا الغالي

 

أقدم كود يقوم بالبحث في سلسلة نصيه ويستخرج ( الكلمات العربيه - والكلمات الانجليزي - والأرقام )

وكل سلسلة في عمود

المدى الإفتراضي عمود "A" 

أرجو التجربه إن وجدت اي ملاحظات أو أخطاء

Public Sub Cnvrt_Ali()
Dim L_A&, i&
On Error Resume Next
ThisWorkbook.VBProject.References.AddFromFile "C:\Windows\System32\vbscript.dll\3"
On Error GoTo 0
With ActiveSheet
    L_A = .Cells(.Rows.Count, "A").End(xlUp).Row
    For i = 2 To L_A
        .Range("B" & i).Resize(1, 3).Value = S_Nm_Ali(.Range("A" & i).Value)
    Next i
End With
End Sub
Private Function S_Nm_Ali(ByVal Nms As String)
Dim E$, A$, Nm$
Dim V_r As Object
Set V_r = CreateObject("VBScript.Regexp")
On Error Resume Next
With V_r
    .Global = True
    .IgnoreCase = True
     .Pattern = "\w|\n|\-|\(|\)|\&|\."
        A = Trim(.Replace(Nms, ""))
       .Pattern = "\D+"
        E = Trim(.Replace(Nms, ""))
       .Pattern = "[-?\d+(\.\d+)?|\u0600-\u06FF]"
     Nm = Trim(.Replace(Nms, ""))
End With
S_Nm_Ali = Array(A, E, Nm)
Set V_r = Nothing
End Function

Ali_String.rar

[حمادة عمر]

السلام عليكم

الاستاذ القدير / عباد - ابونصار

بارك الله فيك

يا لمنتهي الروعة والجمال وقمة اتقان الاكواد

منتهي منتهي الروعة والفن في استخدام الاكواد بمثل هذه الطريقة الرائعة

ولا يوجد من الكلمات ما يعبر عن جمال وروعة شخصكم الكريم

جعل الله جميع اعمالك في ميزان حسناتك

جزاك الله خيرا

[احمد عبد الناصر]

السلام عليكم

 

الاستاذ عباد تقبل تحياتي عمل مميز و متقن

 

بصراحة انا لا افهم معظم اجزاء هذا الكود   ولذلك لم استطع مراجعته , و لكن قمت بعدة تجارب عملية و الكود يعمل بشكل ممتاز .

 

 

تحياتي

[البروفسير]

اخي واستاذنا عباد .. رائع كود صغير وفعل كبير .. رائع يا اخي
واستخدام رائع للصياغة ومرونة فى التعرف على مختلف النصوص والارقام
رائع يا اخي

تم تعديل سبتمبر 28, 2013 بواسطه البروفسير

[ضاحي الغريب]

أخينا واستاذنا ابو نصار 

كود جميل وعمله رائع 

بارك الله فيك وجزاك خيرا

تقبل تحياتي

[الـعيدروس]

الاساتذه والأخوة الأفاضل حفظكم الله

 

حمادة عمر

احمد عبد الناصر

البروفسير
ضاحي الغريب

zmzm

 

أشكركم جزيل الشكر على الكلمات الطيبه والمرور العطر

تقبلو تحياتي وشكري