اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

 

رابط هذا التعليق
شارك

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

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

  • Like 3
رابط هذا التعليق
شارك

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

عند فصل الإسم العربى فى خلية اخرى اذا كانت الخلية المتضمنة الإسم العربى والإنجليزى هى 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

  • Like 5
رابط هذا التعليق
شارك

جرب هذا الملف

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

  • Like 4
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information