' [116.xls]





' [Module1] のコード
'★★☆　インプットボックスで指定されたセルを選択する　☆★★

Option Explicit

Sub start()
Dim myCell As Range
Dim myTitle As String
Dim plmpt As String

    'このプログラムでは各種エラーメッセージを出さないために次の2行が必要です
    On Error Resume Next
    Application.DisplayAlerts = False
    
    myTitle = "これは、[ InputBox ]です"
    plmpt = "ワークシート上のセル範囲をドラッグしてみて下さい"
    Set myCell = Application.InputBox(plmpt, Title:=myTitle, Type:=8)
    
        If myCell Is Nothing Then
            MsgBox "", 16, "        キャンセルしました"
        Else
            MsgBox "貴方の選択したセル範囲は" & Chr(10) _
            & myCell.Address & "　です", 64, "InputBoxの結果の表示"
        End If
        
    'On Error の制御を解除
    On Error GoTo 0
    Application.DisplayAlerts = True
    
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