كود اظهار مربع البحث

[محمد الحضري]

السلام عليكم

اساتذتنا الكرام ارجو المساعده فى صياغه كود VBA لإظهار مربع البحث

كما هوا موضح بالصوره بدون ما استعمل الاختصار من الكيبور ( ctrl+f )

[عبدالله بشير عبدالله]

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

ضع الكود في محرر الاكواد واربطه بزر

Sub FindReplaceAll()
Application.Dialogs(xlDialogFormulaReplace).Show
End Sub

 

[أبومروان]

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

بعد اذن الاستاذ @عبدالله بشير عبدالله اظهار عندما تكون الخليه A1 نشطه

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address = "$A$1" Then
    Application.Dialogs(xlDialogFormulaReplace).Show arg1:="find", arg2:="replace"
  End If
End Sub

 

[محمد الحضري]

جزاكم الله الف خير

استاذ  @عبدالله بشير عبدالله  الكود لا يعمل اثناء حماية الشيت

test.xlsm

[عبدالفتاح في بي اكسيل]

@محمد الحضري

جرب  ان تضع  اجراء  الغاء  الحماية في  بداية  الكود  ومن  تم  اجراء  حماية  في  نهاية  الكود .

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

تحياتي.

تم تعديل فبراير 11, 2023 بواسطه عبدالفتاح في بي اكسيل

[محمد الحضري]

جزاكم الله الف خير 

وصلت الفكره