باز کردن پنجره جستجو با کد

[Ali Parsaei]

آيا امکان دارد پنجره find and replace را که در حالت عادي با ctrl+f باز مي شود را با کد نويسي باز کرد و به فرض محتويات سلول a1 را در آن کپي کرد؟

[Amir Ghasemiyan]

آيا امکان دارد پنجره find and replace را که در حالت عادي با ctrl+f باز مي شود را با کد نويسي باز کرد و به فرض محتويات سلول a1 را در آن کپي کرد؟

سلام

راه هاي مختلفي براي باز كردن اين پنجره وجود داره.

Application.CommandBars.FindControl(ID:=313).Execute

Application.CommandBars("Edit").Controls("Replace...").Execute

Application.Dialogs(xlDialogFormulaReplace).Show

Application.CommandBars("Edit").Controls("Replace...").Execute

حتي ميتونين كد بنويسين. مثلا اينطوري:

Cells.Find(What:=InputBox("Please enter your search criteria", "Search"), _
    After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _
    SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False).Activate

[Amir Ghasemiyan]

اينو يادم رفت بگم . براي اينكه مثلا در فيلد find what كلمه ali رو سرچ كنيد و در replace with كلمه parsa رو جايگزينش كنيد از يك همچين ساختاري استفاده بفرماييد.

Application.Dialogs(xlDialogFormulaReplace).Show "ali", "parsa"

[EXCELIAN]

سلام،
ببخشيد شايد توقع زيادي باشد ولي امکان دارد بفرماييد چگونه مي توان کد فوق را به گونه اي تکميل کرد که وقتي پنجره جستجو باز مي شود به صورتي تنظيم شده باشد که در ناحيه within آن به جاي sheet حالت workbook انتخاب شده باشد؟

[Amir Ghasemiyan]

سلام،
ببخشيد شايد توقع زيادي باشد ولي امکان دارد بفرماييد چگونه مي توان کد فوق را به گونه اي تکميل کرد که وقتي پنجره جستجو باز مي شود به صورتي تنظيم شده باشد که در ناحيه within آن به جاي sheet حالت workbook انتخاب شده باشد؟

با اين كد آخري كه گذاشتم نميشه ولي شايد با كد زير بشه. نميدونم چه تغييراتي لازم داره

Application.CommandBars.FindControl(ID:=313).Execute