Excel 2016VBAでInputBox関数を使用する方法

VBA InputBox関数は、Excle 2016でユーザーが入力した単一の情報を取得するのに役立ちます。その情報は、値、テキスト文字列、さらには範囲アドレスである可能性があります。これは、1つの値のみを取得する必要がある場合に、ユーザーフォームを開発するための優れた代替手段です。

InputBox構文

InputBox関数の構文の簡略版を次に示します。

InputBox（プロンプト[、タイトル] [、デフォルト]）

InputBox関数は、ここにリストされている引数を受け入れます。

口論	影響するもの
促す	入力ボックスに表示されるテキスト
題名	入力ボックスのタイトルバーに表示されるテキスト（オプション）
ディフォルト	ユーザー入力のデフォルト値（オプション）

InputBoxの例

InputBox関数の使用方法を示すステートメントは次のとおりです。

TheName = InputBox（ "あなたの名前は何ですか？"、 "ご挨拶"）

このVBAステートメントを実行すると、Excelにこのダイアログボックスが表示されます。この例では最初の2つの引数のみを使用し、デフォルト値を提供していないことに注意してください。ユーザーが値を入力して[OK]をクリックすると、コードはその値を変数TheNameに割り当てます。

Excel 2016VBAでInputBox関数を使用する方法

InputBox関数は、このダイアログボックスを表示します。

次の例では、3番目の引数を使用し、デフォルト値を提供します。デフォルト値は、Excelによって保存されたユーザー名（ApplicationオブジェクトのUserNameプロパティ）です。

サブGetName（）
  文字列としての薄暗いTheName
  TheName = InputBox（ "あなたの名前は何ですか？"、_
    「ご挨拶」、Application.UserName）
エンドサブ

InputBoxには常に[キャンセル]ボタンが表示されます。ユーザーが[キャンセル]をクリックすると、InputBox関数は空の文字列を返します。

VBAのInputBox関数は常に文字列を返すため、値を取得する必要がある場合は、コードで追加のチェックを行う必要があります。次の例では、InputBox関数を使用して数値を取得します。IsNumeric関数を使用して、文字列が数値であるかどうかを確認します。文字列に数字が含まれている場合は、すべて問題ありません。ユーザーのエントリを数字として解釈できない場合、コードはメッセージボックスを表示します。

サブAddSheets（）
  文字列としての薄暗いプロンプト
  文字列としての薄暗いキャプション
  Dim DefValue As Long
  文字列としての薄暗いNumSheets
  プロンプト=「何枚追加しますか？」
  キャプション=「教えて…」
  DefValue = 1
  NumSheets = InputBox（Prompt、Caption、DefValue）
  NumSheets =““ Then Exit Sub 'がキャンセルされた場合
  IsNumeric（NumSheets）の場合
    NumSheets> 0の場合、Sheets.Add Count：= NumSheets
  そうしないと
    MsgBox「無効な番号」
  終了する場合
エンドサブ

このルーチンが生成するダイアログボックスを確認してください。

Excel 2016VBAでInputBox関数を使用する方法

InputBox関数を使用する別の例。

別のタイプのInputBox

ここに示されている情報は、VBAのInputBox関数に適用されます。Microsoftは混乱を好むようです。そのため、ApplicationオブジェクトのメソッドであるInputBoxメソッドにもアクセスできます。

Application InputBoxメソッドを使用する大きな利点の1つは、コードで範囲の選択を求めることができることです。ユーザーは、セルを強調表示することにより、ワークシートの範囲を選択できます。これは、ユーザーに範囲の選択を求める簡単な例です。

サブGetRange（）
  範囲としてのDimRng
  エラー時に次を再開
  Rng = Application.InputBox_を設定します
    （プロンプト：=「範囲を指定：」、タイプ：= 8）
  Rngが何もない場合は、Subを終了します
  MsgBox「選択した範囲」とRng.Address
エンドサブ

これはそれがどのように見えるかです。

Excel 2016VBAでInputBox関数を使用する方法