| |
▼NinNin さん：
こんばんは。
>Taka-mk2 さん、ありがとうございます。
>すみません。質問の仕方が悪かったようです。
>ユーザー定義関数でなくて、組込み関数のダイアログボックスをVBAで表示させたいのです。
>申し訳ありません。もう一度質問させてください。
>
>例えば、VLOOKUP関数を呼び出す場合次のような手順になると思います。（EXCEL2002の場合）
>(1)[関数の挿入]ダイアログで、[関数の分類]で[検索/行列]を選択、[関数名]で[VLOOKUP]を選択し、[OK]をクリックすると、
>(2)VLOOKUP関数の[関数の引数]ダイアログボックスが表示されます。
>↑の(1)の部分をスキップして、[関数の引数]ダイアログボックスを表示させたいのです。
>
>Sub INPUTVLP()
> Dim i As Integer
> ActiveCell.FormulaR1C1 = "=VLOOKUP(検索値,範囲,列番号,検索の型)"
> SendKeys "{F2}"
> For i = 1 To 16
> SendKeys "{LEFT}"
> Next i
>End Sub
>というふうにも考えてみましたが。
>これだと、[関数の引数]ダイアログボックスが出てきません。
>何か方法はないでしょうか？よろしくお願いします。
[関数の引数]ダイアログボックスにエラーが出ているのが気に入らないんですが、
これで代用できますか？
'============================================
Sub test()
On Error Resume Next
ActiveCell.Formula = "=VLOOKUP(検索値,範囲,列番号,検索の型)"
Application.Dialogs(xlDialogFunctionWizard).Show
On Error GoTo 0
End Sub
要は、初期設定時の関数の引数をどうするかですが（ActiveCell.Formula = ""）、
他に方法があるのかもしれません。
|
|
ichinose
- 03/6/26(木) 18:22 -
