シート上のテキストボックスにフォーカスを移す

シートのVBAコード

下記のようにActivateを使用するとフォーカスが移ります。

Private Sub CommandButton7_Click()
    Dim s As String

    s = TextBox1
    If IsNumeric(s) = False Then
        Beep
        MsgBox "回数を入力してください。", , "エラー"
        TextBox1.Activate
    End If
End Sub

Homeに戻る > Excel テキストボックスのTipsへ

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します