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


'=========================================================================================
' ◆標準モジュールのコード◆
'-----------------------------------------------------------------------------------------
Option Explicit
Dim 選択セル As Object                          '★★★
Dim 比較行 As String                            '★★★
Dim 比較列 As String                            '★★★
Dim 比較セル As String                          '★★★

Dim タイトル As String
Dim スタイル As Long
Dim メッセージ As String
Dim 応答 As Variant


'=========================================================================================
Sub 行単位に比較セルと内容の異なるセルを選択する() '★★★
    Worksheets("Sheet1").Activate
    Set 選択セル = ActiveSheet.Rows(比較行).RowDifferences( _
        Comparison:=ActiveSheet.Range(比較セル))
    選択セル.Select
End Sub
'-----------------------------------------------------------------------------------------
Sub 列単位に比較セルと内容の異なるセルを選択する() '★★★
    Worksheets("Sheet1").Activate
    Set 選択セル = ActiveSheet.Columns(比較列).ColumnDifferences( _
        Comparison:=ActiveSheet.Range(比較セル))
    選択セル.Select
End Sub
'=========================================================================================



'-----------------------------------------------------------------------------------------
Sub おためしマクロ()
    比較行 = "2"                                '★★★
    比較セル = "B2"                             '★★★
    おためしメッセージを表示する
    行単位に比較セルと内容の異なるセルを選択する '★★★
'
    比較列 = "B"                                '★★★
    比較セル = "B3"                             '★★★
    おためしメッセージを表示する2
    列単位に比較セルと内容の異なるセルを選択する '★★★
'
    選択しましたメッセージを表示する
    Worksheets("Title").Select
End Sub
'-----------------------------------------------------------------------------------------
Private Sub おためしメッセージを表示する()
    Worksheets("Sheet1").Activate
    Rows(2).Select                              '見易くするために選択
    タイトル = "500連発 第2弾 サンプルマクロ"
    スタイル = 64                               'vbInformation
    メッセージ = "2行の中で、" & 比較セル & "セルと内容の異なるセルを、選択します"
    応答 = MsgBox(メッセージ, スタイル, タイトル)
End Sub
'-----------------------------------------------------------------------------------------
Private Sub おためしメッセージを表示する2()
    選択しましたメッセージを表示する
    Columns("B").Select                         '見易くするために選択
    メッセージ = "B列の中で、" & 比較セル & "セルと内容の異なるセルを、選択します"
    応答 = MsgBox(メッセージ, スタイル, タイトル)
End Sub
'-----------------------------------------------------------------------------------------
Private Sub 選択しましたメッセージを表示する()
    メッセージ = "選択しました"
    応答 = MsgBox(メッセージ, スタイル, タイトル)
End Sub
'-----------------------------------------------------------------------------------------
Sub Auto_Close()
    Application.DisplayAlerts = False           '閉じる際に確認メッセージを出さない
    ActiveWorkbook.Close                        '現在開いているブックを閉じる
End Sub
'-----------------------------------------------------------------------------------------