[XL]Excel 4.0マクロでカスタムダイアログボックスのエディットボックスの値を取得

詳細

Excel 4.0 でカスタム ダイアログ ボックスを作成する場合、ダイアログ エディタを使ってダイアログ ボックスの定義を作成し、マクロシートに配置する必要がありました。作成したダイアログ ボックスを表示するには、マクロ関数であるDIALIG.BOX 関数を使用していました。
Excel 5.0 では、カスタム ダイアログ ボックスはブック内のダイアログ シートに作成し、保存します。
「 Excel 4.0 マクロ」の SHOW.DIALOG 関数は、ダイアログ シートでダイアログ ボックスを実行する機能を持っています。ユーザーが <OK> ボタンをクリックして ダイアログ ボックスを閉じると、論理値 TRUE が返され、ユーザーが <キャンセル> ボタンをクリックするか、[ESC] キーを押してダイアログ ボックスをキャンセルすると、論理値 FALSE が返されます。
カスタム ダイアログ ボックスのエディット ボックスに入力された値を取得するにはダイアログ シート内のエディット ボックスを選択し、GET.OBJECT 関数を使用します。

サンプル 1

次のサンプル マクロは、ダイアログ シート Dialog1 のダイアログ ボックスを表示します。ダイアログ ボックスの実行が終了した後、ダイアログ ボックス内のエディット ボックス "エディット 4" の内容を取得し ALERT 関数を使って表示しています。

  SAMPLE1                               解説
  =SHOW.DIALOG("Dialog1")               ダイアログ ボックスの表示
  =WORKBOOK.SELECT("Dialog1","Dialog1") ダイアログ シート Dialog1 を選択
  =SELECT("エディット 4")               エディット ボックス "エディット 4"
                                          を選択
  =SET.NAME("con",GET.OBJECT(12))      現在選択されているオブジェクトの
                                          内容を取得
  =ALERT(con)                          取得した文字列を表示
  =RETURN()

サンプル 2

次のサンプル マクロは、ダイアログ シート Dialog1 のエディット ボックス "エ ディット 4" の内容を変更した後、ダイアログ ボックスを表示しています。

  SAMPLE2                              解説
  =WORKBOOK.SELECT("Dialog1","Dialog1") ダイアログ シート Dialog1 を選択
  =SELECT("エディット 4")              エディット ボックス "エディット 4"
                                         を選択
  =TEXT.BOX("Hello,World !")           "エディット 4" の内容を変更
  =SHOW.DIALOG("Dialog1")              ダイアログ ボックスの表示
  =RETURN()