Menuへ

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

シートコード

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

Topへ