Option Explicit
Private Sub CommandButton1_Click()
Range("D2:E3").Select
End Sub
Private Sub CommandButton2_Click()
Selection.Offset(3, 1).Select
End Sub
Private Sub CommandButton3_Click()
Selection.Resize(6, 1).Select
End Sub
Private Sub CommandButton4_Click()
Range("E5:F6, E8:F9, E11:F12").Select
End Sub
Private Sub CommandButton5_Click()
Range("D2") = "左上"
Range("F14") = "右下"
ActiveSheet.UsedRange.Select
End Sub
■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します