حذف الحروف الانجليزية

[عاطف عبد العليم محمد]

السلام عليكم

ممكن التكرم بكود او دالة لحذف الحروف الانجليزية من الخلايا ( الخلايا تحتوي على كلمات عربي و أخرى انجليزي ) 

[محمد هشام.]

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

كان من الافضل رفع مثال للنتيجة المطلوبة مع تحديد النطاق المراد حدف الكلمات بداخله ....

تفضل اخي يمكنك استخدام الكود التالي لحدف جميع الكلمات والحروف الانجليزية الموجودة في ورقة العمل مع الاحتفاظ بالباقي 

Sub Remove_specific_Value()
Dim A As String * 1
Dim B As String * 1
Dim i As Integer
Dim S As String
Application.ScreenUpdating = False

' يمكنك الاضافة ما تشاء في السطر التالي

'مثال  "),-,_,@,/,.,<,>,;,?,é,;,=,+"

Const MH = "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z, A, B, C, D, E, F, G ,H ,I ,J, K ,L ,M ,N ,O ,P ,Q, R ,S ,T ,U, V, W ,X ,Y, Z"

Const MH2 = ""    ' كما يمكنك هنا استبدال الحروف المحدوفة بشيئ معين'

Range("A1").Resize(Cells.Find(what:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlValues).Row, _
Cells.Find(what:="*", SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious, LookIn:=xlValues).Column).Select '
For Each cell In Selection
If cell <> "" Then
S = cell.Text
    For i = 1 To Len(MH)
    A = Mid(MH, i, 1)
    B = Mid(MH2, i, 1)
    S = Replace(S, A, B)
    Next
cell.Value = S
Debug.Print "celltext "; (cell.Text)
End If
Next cell
Range("A3").Select
Application.ScreenUpdating = True
End Sub

وهدا مثال لطلبك 

 

مثال _mh.xlsm

تم تعديل نوفمبر 20, 2022 بواسطه Mohamed Hicham

[عاطف عبد العليم محمد]

رائع اخي Mohamed Hicham

بارك الله فيك 

لو تكرمت تعديل بحيث أحدد انا النطاق مثلا من a1 الى a10

[محي الدين ابو البشر]

اقتباس

أحدد انا النطاق مثلا من a1 الى a10

Sub test()
    Dim a
    Dim rng As Range
    Dim r As Range
    Set rng = Application.InputBox(Title:="Please select a range", Prompt:="Select range", Type:=8)
      With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "([A-Za-z])+"
   For Each r In rng
       r.Value = Trim(.Replace(r, ""))
        Next
    End With
End Sub

بحيث يمكنك اختيار (النطاق) الذي تريد

تم تعديل نوفمبر 22, 2022 بواسطه محي الدين ابو البشر

[عاطف عبد العليم محمد]

أخي محي الدين ابو البشر

جزاك الله خيرا ورحم الله والديك

[محي الدين ابو البشر]

ولك مثل ما دعوت