Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


74804 / 76732 ←次へ | 前へ→

【6384】Re:組込み関数のなんです
発言  ichinose  - 03/6/26(木) 18:22 -

引用なし
パスワード
   ▼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 = "")、
他に方法があるのかもしれません。

2 hits

【6360】関数の引数 ダイアログボックス NinNin 03/6/26(木) 8:57 質問
【6370】Re:関数の引数 ダイアログボックス Taka-mk2 03/6/26(木) 13:56 回答
【6376】組込み関数のなんです NinNin 03/6/26(木) 15:36 質問
【6384】Re:組込み関数のなんです ichinose 03/6/26(木) 18:22 発言
【6385】なるほど! NinNin 03/6/26(木) 20:48 お礼
【6390】おお〜。 Taka-mk2 03/6/27(金) 8:32 発言

74804 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free