Excel VBA インプットボックスは情報入力するダイアログボックス

以下のようなシーンで利用されます。

・ユーザーから特定の値を入力してもらう必要がある

・プログラムの動作をユーザーの入力に基づいて変更する

・データの取得や処理において、ユーザーの入力が必要

Option Explicit

Sub GetUserInput()
    Dim userInput As String
    Dim num As Double

    ' インプットボックスを表示し、ユーザーの入力を取得
    userInput = InputBox("数値を入力してください:", "入力ボックス", "0")

    ' ユーザーがキャンセルボタンを押した場合
    If userInput = "" Then
        MsgBox "入力がキャンセルされました。"
        Exit Sub
    End If

    ' 入力値が数値かどうかをチェック
    If IsNumeric(userInput) Then
        num = CDbl(userInput)
        ' 数値をセルA1に表示
        Range("A1").Value = num
    Else
        MsgBox "有効な数値を入力してください。"
    End If
End Sub