InputBox関数｜VBA関数

公開日：2013年5月以前　最終更新日：2021-08-14

InputBox関数

InputBox関数は、ダイアログボックスにメッセージとテキストボックスを表示し、
文字列が入力されるか、またはボタンがクリックされると、テキストボックスの内容を返します。

InputBox関数

構文

InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])

引数

prompt	必ず指定します。ダイアログボックス内にメッセージとして表示する文字列を示す文字列式を指定します。名前付き引数 prompt に指定できる最大文字数は、1 バイト文字で約 1,024 文字です。ただし、使う文字の文字幅に依存します。名前付き引数 prompt に複数行を指定する場合は、キャリッジリターン (Chr(13))、ラインフィード (Chr(10))、またはキャリッジリターンとラインフィードの組み合わせ (Chr(13) & Chr(10)) を改行する位置に挿入し、行を区切ってください。
title	省略可能です。ダイアログボックスのタイトルバーに表示する文字列式を指定します。名前付き引数 title を省略すると、タイトルバーにはアプリケーション名が表示されます。
default	省略可能です。ユーザーが何も入力しない場合に、テキストボックスに既定値として表示する文字列式を指定します。名前付き引数 default を省略すると、テキストボックスには何も表示されません。
xpos	省略可能です。画面の左端からダイアログボックスの左端までの水平方向の距離を、twip 単位で示す数式を指定します。名前付き引数 xpos を省略すると、ダイアログボックスは水平方向に対して画面の中央の位置に配置されます。
ypos	省略可能です。画面の上端からダイアログボックスの上端までの垂直方向の距離を、twip 単位で示す数式を指定します。名前付き引数 ypos を省略すると、ダイアログボックスは垂直方向に対して画面の上端から約 1/3 の位置に配置されます。
helpfile	省略可能です。ダイアログボックスに状況依存のヘルプを設定するために、使用するヘルプファイルの名前を示す文字列式を指定します。この引数は、表示するダイアログボックスの説明を、ヘルプを使って表示するときに指定します。名前付き引数 helpfile を指定した場合は、名前付き引数 context も指定する必要があります。
context	省略可能です。ヘルプトピックに指定したコンテキスト番号を表す数式を指定します。名前付き引数 context を指定した場合は、名前付き引数 helpfile も指定する必要があります。

名前付き引数です。
名前付き引数とは、あらかじめ定義された名前を持つ引数。

名前付き引数を使用すると、構文どおりに指定された順序で各引数に値を指定しなくても、任意の順序で値を設定することができます。

※名前付き引数については、第25回.名前付き引数について

引数とは、関数やメソッド等を呼び出すときに渡す値のことです。この引数を渡す時の記述方法として、名前付き引数があります。マクロVBAでの記述では、:=が使われます。この:=は名前付き引数のみで使用される記述になります。

しかし、InputBox関数では、名前付き引数を使わずに、順番通りに指定する事の方が多いでしょう。

[, xpos] [, ypos]

表示位置の指定です。
サンプル表示しても意味が無いので、各々確認して下さい。
ただし、通常は、真ん中に表示されるので、特に指定はしません。

helpfile、context

これらはヘルプなので、あまり使わないと思いますので、説明を省きます。

InputBox関数の使用例

メッセージのみ指定した場合


  
    
      Dim strIn As String

      strIn = 
InputBox("何か入力して下さい。")

ダイアログ画面の表示内容を確認して下さい。

複数行のメッセージを指定した場合


  
    
      Dim strIn As String

      strIn = InputBox("何か入力して下さい。" & vbLf & vbLf 
& "入力サンプル")

メッセージ、タイトル、規定値をした場合


  
    
      Dim strIn As String

      strIn = InputBox("何か入力して下さい。", "ユーザー入力", 
"規定文字")

ダイアログ画面の表示内容を確認して下さい。

何も入力されなかったか、「キャンセル」ボタンが押された場合の対処


  
    
      Dim strIn As String

      strIn = InputBox("何か入力して下さい。", "ユーザー入力", 
"規定文字")

      If strIn = "" Then

      　　MsgBox "何も入力されませんでした。"

      End 
If

何も入力されなかったか、「キャンセル」ボタンが押された場合は、空白が返されます。
従って、受け取った変数を、""で判定すれば良いです。

「キャンセル」した時と、何も入力せずに「OK」した場合の区別


  
    
      Sub InputBox関数()

      　　Dim s

      　　s = InputBox("空文字確認")

      　　If StrPtr(s) = 0 Then

      　　　　MsgBox "キャンセル"

      　　ElseIf s = "" Then

      　　　　MsgBox "空文字"

      　　Else

      　　　　MsgBox s

      　　End If

      End Sub

以下で詳しく解説しています。

空文字列の扱い方と処理速度について（""とvbNullString）

空文字列と書きましたが、空文字列という表現がかなり曖昧な表現になっています。ここでいう空文字列とは、文字列が入るべき場所に、何も入っていない（ように見える）状態を指しています。VBAにおいては、空文字列の状態が2つあります。

Office VBA リファレンス InputBox関数

※VBA関数一覧

マクロVBA関数の一覧と解説です、どんな関数があるかは一度は確認しておくとをお勧めいたします。どんな関数があるだけでも知っておけば、詳細の使い方は実際に使うときに調べても良いでしょう。文字列操作…34 分岐…3 型変換…14 データ判定…10 日付時刻…20 配列…6 ファイル操作…14 数学/財務…28 その他……

同じテーマ「VBA関数」の記事

Hex関数

Hex関数は、指定した10進数値を16進数で表した文字列型(String)を返します。Hex関数 Hex(number) number 必ず指定します。任意の数式または文字列式を指定します。引数numberが整数でない場合、変換の前に一番近い整数に丸められます。

Oct関数

Oct関数は、引数に指定した値を8進数で表すバリアント型(内部処理形式StringのVariant)の値を返します。Oct関数 Oct(number) number 必ず指定します。任意の数式または文字列式を指定します。

Rnd関数

Rnd関数は、単精度浮動小数点数型(Single)の乱数を返します。Rnd関数 Rnd[(number)] number は省略可能です。引数numberには、単精度浮動小数点数型(Single)の数値または任意の有効な数式を指定します。

Round関数

Round関数は、指定された小数点位置で丸めた数値を返します。Round関数 Round(expression[,numdecimalplaces]) expression 必ず指定します。丸めを行う数式を指定します。

InputBox関数
MsgBox関数

MsgBox関数は、ダイアログボックスにメッセージを表示し、ボタンがクリックされるのを待って、ユーザーがどのボタンをクリックされたのかを示す整数を返します。MsgBox関数の構文 MsgBox(prompt[,buttons][,title][,helpfile, context]) 戻り値は、VbMsgBoxRe…

Environ関数

オペレーティングシステム（Windows）の環境変数に関連付けられた文字列を返します。Macintoshでは使用できません。デスクトップのパスやログインしているユーザーの名前を取得できます。IsNull関数の構文 Environ({envstring|number}) envstringまたはnumberのどちらか…

RGB関数

RGB関数は、引数（red,green,blue）の色のRGB値を表す長整数型(Long)の値を返します。RGB関数 RGB(red,green,blue) red 必ず指定します。この名前付き引数は、バリアント型(内部処理形式IntegerのVariant)のデータ形式で指定します。

DoEvents関数

DoEvents関数は、発生したイベントがOSによって処理されるように、プログラムで占有していた制御をOSに渡します。DoEvents関数構文 DoEvents 説明開かれているフォームの数を返します。開かれているフォームが無ければ0返します。

CreateObject関数

CreateObject関数は、ActiveXオブジェクトへの参照を作成して返します。CreateObject関数を使う事で、参照設定することなくActiveXオブジェクトを使用できるようになります。つまり、VBAで外部ライブラリを使用する場合にCreateObject関数を使用します。

GetObject関数

ActiveXコンポーネントから提供されたオブジェクトの参照を返します。ファイルパス（フルパスと名前）からオブジェクトの参照を作成したり、既に起動中のオブジェクトを取得する際に使用します。GetObject関数の構文 GetObject([pathname],[class]) pathname 省略可能。

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.繰り返し処理（For Next)｜VBA入門
5.RangeとCellsの使い方｜VBA入門
6.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
7.セルのクリア（Clear,ClearContents）｜VBA入門
8.メッセージボックス(MsgBox関数)｜VBA入門
9.条件分岐（Select Case）｜VBA入門
10.マクロとは？VBAとは？VBAでできること｜VBA入門

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。

VBA関数
InputBox関数

InputBox関数

InputBox関数

InputBox関数の使用例

同じテーマ「VBA関数」の記事

新着記事NEW ・・・新着記事一覧を見る

アクセスランキング・・・ランキング一覧を見る

InputBox関数

InputBox関数

InputBox関数の使用例

同じテーマ「VBA関数」の記事

新着記事NEW ・・・新着記事一覧を見る

アクセスランキング ・・・ ランキング一覧を見る

アクセスランキング・・・ランキング一覧を見る