' [462.xls]



' [Module1] のコード
'★★☆　ユーザフォームから指定セルにジャンプする　☆★★

Option Explicit

Sub start()

    UserForm1.Show

End Sub


' [UserForm1] のコード
Option Explicit

Private Sub CommandButton1_Click()

    On Error GoTo err_hnd
    
    'テキストボックスで指定されたセルアドレスをアクティブにする
    Range(TextBox1).Activate
    Exit Sub
    
'指定したセルアドレスが実際には無い値だった場合
'以下のメッセージが表示されます
'    実行時エラー '1004':
'   'Range'ﾒｿﾞｯﾄは失敗しました:
err_hnd:

    If Err.Number = 1004 Then
        MsgBox "セル番地が認識出来ません"
    Else
        MsgBox "予期しないエラーが発生しました"
    End If
    
End Sub

Private Sub UserForm_Initialize()

    Sheets.Add
    ActiveSheet.Name = "作業シート"
    
    Me.Caption = "指定したセルにジャンプ　例 : A5"
    CommandButton1.Caption = "ジャンプ実行"
    
    'テキストボックスにフォーカスが来たときIMEをOFFにする
    TextBox1.IMEMode = 2

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True

End Sub