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


'=========================================================================================
' ◆標準モジュールのコード◆
'-----------------------------------------------------------------------------------------
Option Explicit
Dim 行 As Long                              '★★★
Dim 行その2 As Long                         '★★★
Dim 行その3 As Long                         '★★★
Dim 列 As String                            '★★★
Dim 列その2 As String                       '★★★
Dim 選択対象 As Range                       '★★★
Dim タイトル As String
Dim スタイル As Long
Dim メッセージ As String
Dim 応答 As Variant
'=========================================================================================
Private Sub 指定した行全体を選択する()
    Worksheets("Sheet1").Rows(行).Select    '★★★
End Sub
'-----------------------------------------------------------------------------------------
Private Sub 指定した列全体を選択する_A1形式()
    Worksheets("Sheet1").Columns(列).Select '★★★
End Sub
'-----------------------------------------------------------------------------------------
Private Sub 指定した列全体を選択する_R1C1形式()
    Worksheets("Sheet1").Columns(1).Select  '★★★
End Sub
'=========================================================================================
Private Sub 複数の行全体を選択する()
    Set 選択対象 = Union(Rows(行), Rows(行その2), Rows(行その3)) '★★★
    選択対象.Select                         '★★★
End Sub
'-----------------------------------------------------------------------------------------
Private Sub 複数の列全体を選択する_A1形式()
    Set 選択対象 = Union(Columns(列), Columns(列その2)) '★★★
    選択対象.Select                         '★★★
End Sub
'-----------------------------------------------------------------------------------------
Private Sub 複数の列全体を選択する_R1C1形式()
    Set 選択対象 = Union(Columns(1), Columns(3), Columns(5)) '★★★
    選択対象.Select                         '★★★
End Sub
'=========================================================================================
Private Sub ワークシートのすべての行を選択する()
    Worksheets("Sheet1").Rows.Select        '★★★
End Sub
'-----------------------------------------------------------------------------------------
Private Sub ワークシートのすべての列を選択する()
    Worksheets("Sheet1").Columns.Select     '★★★
End Sub
'=========================================================================================



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