' [440.xls]





' [Module1] のコード
'★★☆　マクロ実行途中でユーザーがセル範囲を選択可能にする　☆★★

Option Explicit

Sub start()

    UserForm1.Show

End Sub

Sub start_A()

    Sheets("作業シート").Visible = -1
    Sheets("Title").Visible = 2

End Sub

Sub start_B()

    Sheets("Title").Visible = -1
    Sheets("作業シート").Visible = 2
    
End Sub


' [UserForm1] のコード
Option Explicit

Private Sub CommandButton1_Click()
Dim myCell As Range
    
    'エラーメッセージを表示させないようにする
    On Error Resume Next
    
    '選択範囲の取得
    Set myCell = ActiveSheet.Range(RefEdit1.Text)
        
        'オブジェクトとの関連付けがされていない場合 errhnd へジャンプ
        If myCell Is Nothing Then GoTo errhnd
        
            'UserForm1を閉じる
            Unload Me
            
            MsgBox "貴方の選択したセル範囲は" & Chr(10) & myCell.Address & "　です"
            
            '変数に取り込まれたオブジェクトの関連付けを解除
            Set myCell = Nothing
        
        Exit Sub

errhnd:

    MsgBox "選択範囲がありません"
    
End Sub


Private Sub CommandButton2_Click()

    Unload Me
    MsgBox "", 16, "      キャンセルしました"

End Sub

Private Sub UserForm_Initialize()

    Me.Caption = "希望範囲をマウスでドラッグ"

End Sub