مهلا!
أحاول تغيير أكثر من عمود واحد يحتوي على البيانات مرة واحدة.
أنا أستخدم ماكرو VBE الذي تراه أدناه. عندما أستخدمه، أقوم بتحديد المساحة التي أريد تحديدها باستخدام هذا ($D$2:$E$10 ولكني لا أحصل على النافذة المنبثقة الثانية حيث أكتب البيانات التي أريد التغيير إليها.
أقوم بإنشاء "Modul" أولاً لوضع الماكرو فيه، هل هذا صحيح؟
أحاول تغيير أكثر من عمود واحد يحتوي على البيانات مرة واحدة.
أنا أستخدم ماكرو VBE الذي تراه أدناه. عندما أستخدمه، أقوم بتحديد المساحة التي أريد تحديدها باستخدام هذا ($D$2:$E$10 ولكني لا أحصل على النافذة المنبثقة الثانية حيث أكتب البيانات التي أريد التغيير إليها.
أقوم بإنشاء "Modul" أولاً لوضع الماكرو فيه، هل هذا صحيح؟
Sub
MultiFindNReplace()
'Updateby Extendoffice
Dim
Rng
As
Range
Dim
InputRng
As
Range, ReplaceRng
As
Range
xTitleId =
"KutoolsforExcel"
Set
InputRng = Application.Selection
Set
InputRng = Application.InputBox(
"Original Range "
, xTitleId, InputRng.Address, Type:=8)
Set
ReplaceRng = Application.InputBox(
"Replace Range :"
, xTitleId, Type:=8)
Application.ScreenUpdating =
False
For
Each
Rng
In
ReplaceRng.Columns(1).Cells
InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
Next
Application.ScreenUpdating =
True
End
Sub
I hope you understand what i mean.
Regards
Benny