فصل نص عربي وانكليزي في نفس الخلية

[عبد الله قدور]

السلام عليكم ورحمة الله وبركاته

حياكم الله وبياكم جميعا اخواني الكرام

عندي عمود في جدول اكسل فيه نص عربي وترجمته بالانكليزية في نفس الخلية، كيف يمكنني ان افصل هذا العمود الى عمودين الاول يحوي النص العربي والثاني يحوي الترجمة الى الانكليزية

 

[عبدالفتاح في بي اكسيل]

بما  انك  لم  ترفق  ملف         لعلك   تستفيد   من هذا  الملف 

Sub split()
Dim first As String, second As Integer, i As Integer
For i = 1 To 7
    first = Cells(i, 1).Value
    second = InStr(first, ",")
    Cells(i, 2).Value = Mid(first, second + 2)
Cells(i, 3).Value = Left(first, second - 1)
Next i

End Sub

 

SPLIT ‫‬.xlsm

[Ali Mohamed Ali]

ولو قمت بالبحث لوجدت ما تريد -تفضل , طبعاً بعد اذن الأستاذ عبد الفتاح ولإثراء الموضوع -فهذا حل اخر بالمعادلات

عند فصل الإسم العربى فى خلية اخرى اذا كانت الخلية المتضمنة الإسم العربى والإنجليزى هى A2  , فيمكنك استخدام معادلة المصفوفة بالخلية B2 (Ctrl+Shift+Enter)

=MID(A2,MATCH(1,IF(CODE(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1))>=192,1),0),255)

اما بالنسبة للإسم الإنجليزى فيكون بهذه المعادلة داخل الخلية C2 كما بالملف

=TRIM(LEFT(A2,LEN(A2)-LEN(B2)))

 

فصل الكلمات العربية عن الانجليزية

Seperate Mix Text.xlsm

[سليم حاصبيا]

جرب هذا الملف

Option Explicit

Sub Get_Str()
Dim My_Sheet        As Worksheet
Dim My_Regex        As Object
Dim K As Byte, La%, t%, st$

Set My_Sheet = Sheets("Sheet1")
Set My_Regex = CreateObject("VBScript.RegExp")
My_Regex.Global = True
 
With My_Sheet
    La = .Cells(Rows.Count, 1).End(3).Row
    .Range("C2").CurrentRegion.ClearContents
  
   For K = 3 To 4
        My_Regex.Pattern = _
         IIf(K = 4, "[\u0621-\u064A]+", "\w+")
        For t = 1 To La
            If My_Regex.test(.Range("A" & t)) Then
            st = My_Regex.Replace(.Range("A" & t), "")
            .Cells(t, K) = Trim(st)
            End If
        Next t
       st = ""
   Next K
End With
 Set My_Regex = Nothing
End Sub

الملف مرفق

 

ReGex_Kaddour_1.xlsm

[abouelhassan]

الاساتذة العمالقة شكر وتقدير وكامل الاحترام من اخيكم