EXCEL VBA INPUT BOX(メゾット)の使い方「Application.InputBox」

EXCEL VBA INPUT BOX(メゾット)の使い方「Application.InputBox」

EXCEL VBA INPUT BOX(メゾット)　使用例

Sub AppInputBox01()

    Dim myAns As String
    
    myAns = Application.InputBox("氏名", "個人情報", "山田太郎", 100, 200, , , 2)'InputBoxメゾット設定します。
    
    Range("B3") = myAns　　'入力値をセル（B3）に代入します。
    
End Sub

Sub AppInputBox02()

    Dim myAns As String
    
    myAns = Application.InputBox(Prompt:="氏名", Title:="個人情報", Default:="山田太郎", Left:=100, Top:=200, Type:=2)'InputBoxメゾット設定します。
    
    Range("B3") = myAns　'入力値をセル（B3）に代入します。
    

End Sub

EXCEL VBA INPUT BOX(メゾット)　入力値の制御（戻り値 Type:=)

Sub AppInputBox03() '戻り値の制御

    Dim myNumber01, myNumber02 As Long
    
    myNumber01 = Application.InputBox(Prompt:="数値で入力", Title:="暗証番号 一回目", Default:=0, Left:=100, Top:=200, Type:=1)    'InputBoxメゾット設定します。(戻り値をType:=1　数値に設定
    
    myNumber02 = Application.InputBox(Prompt:="数値で入力", Title:="暗証番号 二回目", Default:=0, Left:=100, Top:=200, Type:=1)    'InputBoxメゾット設定します。(戻り値をType:=1　数値に設定
    
    If myNumber01 = myNumber02 Then '2回入力した暗証番号を確認
    
                MsgBox "入力された暗証番号は一致しています。"
        Else                
                MsgBox "入力された暗証番号は不一致です！！"
    End If
    
End Sub

EXCEL VBA INPUT BOX(メゾット)　を使った問題集・テスト問題

Sub AppInputBox04() '問題
    
    Dim Kaitou, Mondai As String    
    Dim I As Long
        
    I = 2  '２行目から問題が始まる
    
    Do
            Do
              
                Mondai = Cells(I, "A") 'A列の問題を代入
            
                Kaitou = Application.InputBox(Mondai, "問題" & I - 1)  'INPUTBOXに問題の表示・問題番号のタイトルを表示
                
            Loop Until Cells(I, "B") = Kaitou '回答（入力）が正解（B列）するまで繰り返す。
    
　　 MsgBox I - 1 & "問目正解！"
    I = I + 1  '次の問題に
    
    Loop While Cells(I, "A") <> ""  'A列の問題が無くなるまで繰り返す。
    
    MsgBox "全ての問題に解答できました。"
    
End Sub

EXCEL VBA INPUT BOX(メゾット)　を使ったデータの登録「住所録の作成」

Sub AppInputBox05() '住所録登録
   
    Dim Inp_Address, Inp_Koumoku As String
    
    Dim Inp_Modori, I, L As Long
    
    
    L = 5  '5行目から住所を登録する。
    
    Do
        
            For I = 2 To 4  '項目の氏名・住所・電話番号を繰り返す。
              
                Inp_Koumoku = Cells(4, I) '4行名の項目名を代入
                Inp_Modori = Cells(3, I) '3行名の戻り値を代入
                
                Inp_Address = Application.InputBox(Inp_Koumoku & "の入力", "住所録の登録", Type:=Inp_Modori) 'INPUTBOXに問題の表示・問題番号のタイトルを表示
                
                If Inp_Address = "*" Then
                        Exit For
                    Else
                        Cells(L, I) = Inp_Address
                        Cells(L, "A") = L - 4 'A列に登録番号を入力します。
                End If
                
            Next I
                            
    L = L + 1  '次の入力行（＋１）に繰り返す。
                      
    Loop While Inp_Address <> "*"  '「*」が入力されるまで繰り返す。
    
   MsgBox "住所録の登録を終了しました"

End Sub