|
ichinose さん、こんばんは。
回答ありがとうございます。
>[関数の引数]ダイアログボックスにエラーが出ているのが気に入らないんですが、
>これで代用できますか?
>'============================================
>Sub test()
> On Error Resume Next
> ActiveCell.Formula = "=VLOOKUP(検索値,範囲,列番号,検索の型)"
> Application.Dialogs(xlDialogFunctionWizard).Show
> On Error GoTo 0
>End Sub
>
>要は、初期設定時の関数の引数をどうするかですが(ActiveCell.Formula = "")、
>他に方法があるのかもしれません。
上を元にいろいろ試行錯誤してるうちに、とりあえずできました。
Sub test2()
ActiveCell.Formula = "=VLOOKUP(,,,)"
Application.Dialogs(xlDialogFunctionWizard).Show
End Sub
でも、他の関数のときは、ご指摘の通り、初期設定時の関数の引数により、エラー出ますね。
|
|