Public Sub Sample()

    Dim myRng As Range

    

    'InputBoxをクローズボックス「×」で閉じるとエラーになるのを回避する為

    On Error Resume Next

    Set myRng = Application.InputBox("セル範囲を選択してください", "セル選択", Selection.Address, Type:=8)

    

    If myRng Is Nothing Then Exit Sub

    

    MsgBox myRng(1).Address & " ～ " & myRng(myRng.Count).Address & "が選択されました", vbInformation

End Sub

　↓　facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ