كيفية استبدال اكثر من كلمة بكلمة اخرى

[حيدر البكري]

السلام عليكم 

عندي اكثر من كلمة اريد استبدالها بكلمة ( موظف ) 

كيف استطيع حذف اكثر من كلمة بنقرة واحدة ؟ 

تحيتي وسلامي لكم 

[أبو إيمان]

وعليكم السلام

Dim a As Integer

For a = 1 To 100

Cells(a, 1).Value = "موظف"
Next
End Sub

1 أول صف به بيانات

100 أخر صف 

 

يمكن اضافة تحسنات للكود بحسب الرغبة

تم تعديل فبراير 17, 2023 بواسطه أبو إيمان

[محمد هشام.]

1)لم توضخ المطلوب جيدا هل هناك أسماء محددة تريد تغييرها.

2) هل التنفيذ على نطاق معين أو على الشيت بالكل 

Sub Replace()
Dim sheet As Worksheet
Dim Réf As Variant
Dim val As String
Dim y As Long
Réf = Array("علي", "محمد", "احمد", "ضياء")
val = "موظف"
For y = LBound(Réf) To UBound(Réf)
For Each sheet In ActiveWorkbook.Worksheets
sheet.Columns("A:A").Replace What:=Réf(y), Replacement:=val, _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
Next sheet
Next y
End Sub

 لتنفيد الامر على جميع خلايا ورقة العمل يمكنك استبدال هذا الجزء من الكود 

sheet.Cells.Replace What:=Réf(y), Replacement:=val, _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
Next sheet
Next y

 

 

test.xlsm

تم تعديل فبراير 18, 2023 بواسطه Mohamed Hicham

[حيدر البكري]

احسنت وفقكما الله وجزاكما عني افضل الجزاء