'=========================================================================================
'　086　（複数の）行・列単位に操作する
'-----------------------------------------------------------------------------------------
'【ヒント】
' このマクロは、おためし機能の動作用のコードを含んでいます。（概ね下半分）
' ★★★の行またはサブプロシージャーが、タイトル機能に関係するコードです。（概ね上半分）


'=========================================================================================
' ◆標準モジュールのコード◆
'-----------------------------------------------------------------------------------------
Option Explicit
Dim 選択対象 As Range                           '★★★
Dim 行 As Long                                  '★★★
Dim 行その2 As Long                             '★★★
Dim 行その3 As Long                             '★★★
Dim 列 As String                                '★★★
Dim 列その2 As String                           '★★★
Dim 列その3 As String                           '★★★
Dim タイトル As String
Dim スタイル As Long
Dim メッセージ As String
Dim 応答 As Variant
'=========================================================================================
Private Sub 複数の行全体を選択して削除する()            '★★★
    Worksheets("Sheet1").Activate
    Set 選択対象 = Union(Rows(行), Rows(行その2), Rows(行その3))
        選択対象.Select
    おためしメッセージを表示する2
    Selection.Delete Shift:=xlUp            '削除する
End Sub
'-----------------------------------------------------------------------------------------
Private Sub 複数の列全体を選択してセルの色を設定する_A1形式() '★★★
    Worksheets("Sheet1").Activate
    Set 選択対象 = Union(Columns(列), Columns(列その2), Columns(列その3)) '★★★
        選択対象.Select
    おためしメッセージを表示する4
    Selection.Interior.ColorIndex = 4       'セルの色を設定する
End Sub
'-----------------------------------------------------------------------------------------
Private Sub 複数の列全体を選択してセルの色を設定する_R1C1形式() '★★★
    Worksheets("Sheet1").Activate
    Set 選択対象 = Union(Columns(2), Columns(5), Columns(7))
        選択対象.Select
End Sub
'=========================================================================================



'-----------------------------------------------------------------------------------------
Sub おためしマクロ()
    おためしメッセージを表示する
    行 = 3                                  '★★★
    行その2 = 5                             '★★★
    行その3 = 8                             '★★★
    複数の行全体を選択して削除する            '★★★
'
    おためしメッセージを表示する3
    列 = "B"                                '★★★
    列その2 = "E"                           '★★★
    列その3 = "G"                           '★★★
    複数の列全体を選択してセルの色を設定する_A1形式 '★★★
'
    おためしメッセージを表示する5
    Worksheets("Title").Activate
End Sub
'-----------------------------------------------------------------------------------------
Private Sub おためしメッセージを表示する()
    Worksheets("Sheet1").Activate
    Range("A1").Select                          'カーソルを定位置へ移動する
    タイトル = "500連発 第2弾 サンプルマクロ"
    スタイル = 64                               'vbInformation
    メッセージ = "複数の行全体（3、5、8行目）を選択します"
    応答 = MsgBox(メッセージ, スタイル, タイトル)
End Sub
'-----------------------------------------------------------------------------------------
Private Sub おためしメッセージを表示する2()
    メッセージ = "選択された行を削除します"
    応答 = MsgBox(メッセージ, スタイル, タイトル)
End Sub
'-----------------------------------------------------------------------------------------
Private Sub おためしメッセージを表示する3()
    メッセージ = "複数の列全体（2列目=B、5列目=E、7列目=G）を選択します"
    応答 = MsgBox(メッセージ, スタイル, タイトル)
End Sub
'-----------------------------------------------------------------------------------------
Private Sub おためしメッセージを表示する4()
    メッセージ = "選択された列のセルの色を設定します"
    応答 = MsgBox(メッセージ, スタイル, タイトル)
End Sub
'-----------------------------------------------------------------------------------------
Private Sub おためしメッセージを表示する5()
    メッセージ = "終ります"
    応答 = MsgBox(メッセージ, スタイル, タイトル)
End Sub
'-----------------------------------------------------------------------------------------
Sub Auto_Close()
    Application.DisplayAlerts = False           '閉じる際に確認メッセージを出さない
    ActiveWorkbook.Close                        '現在開いているブックを閉じる
End Sub
'-----------------------------------------------------------------------------------------