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

Excelコントロール Tipsメニューに戻る

スポンサーリンク





シートコード

下記のようにActivateを使用するとフォーカスが移ります。
Private Sub CommandButton7_Click()
    Dim s As String
    
    s = TextBox1
    If IsNumeric(s) = False Then
        Beep
        MsgBox "回数を入力してください。", , "エラー"
        TextBox1.Activate
    End If
End Sub




Excelコントロール Tipsメニューに戻る

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


Copyright (c) Excel-Excel ! All rights reserved