قم بتغيير البيانات في الأعمدة

مهلا!
أحاول تغيير أكثر من عمود واحد يحتوي على البيانات مرة واحدة.
أنا أستخدم ماكرو 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