'=========================================================================================
'　115　特定の情報が含まれている最初のセル番号を取得する
'-----------------------------------------------------------------------------------------
'【ヒント】
' このマクロは、おためし機能の動作用のコードを含んでいます。（概ね下半分）
' ★★★の行またはサブプロシージャーが、タイトル機能に関係するコードです。（概ね上半分）


'=========================================================================================
' ◆標準モジュールのコード◆
'-----------------------------------------------------------------------------------------
Option Explicit
Dim 特定の情報 As Variant
Dim セル番号 As Object
Dim タイトル As String
Dim スタイル As Long
Dim メッセージ As String
Dim 応答 As Variant
'-----------------------------------------------------------------------------------------
Sub 指定範囲内で特定の情報が含まれている最初のセル番号を取得する_列名で()
    Sheets("SSS").Select                            '※１
        Range("E8:E16").Select                      '※２
        メッセージ = "検索したい文字列を入力してください" & Chr(13) & Chr(13) _
                     & "（一部分でも良い）"
        タイトル = "E列を検索します"
        特定の情報 = InputBox(メッセージ, タイトル)
        If 特定の情報 = "" Then                     'キャンセルボタンが押されたなら
            GoTo owari
        End If
'
        Set セル番号 = Columns("E").Find(特定の情報) '※３
        If セル番号 Is Nothing Then
        MsgBox 特定の情報 & " は、" & "みつかりません", vbExclamation, "検索結果"
            GoTo owari
        End If
        MsgBox "最初に見つかったセルは " & セル番号.Address & "です", vbInformation, "検索結果"
'
owari:
        Range("N19").Select                         'カーソルを定位置へ
End Sub
'-----------------------------------------------------------------------------------------
Sub 指定範囲内で特定の情報が含まれている最初のセル番号を取得する_行番号で()
    Sheets("SSS").Select
        Range("C10:J10").Select                     '※２
        メッセージ = "検索したい文字列を入力してください" & Chr(13) & Chr(13) _
                    & "（一部分でも良い、生年月日は西暦）"
        タイトル = "10行を検索します"
        特定の情報 = InputBox(メッセージ, タイトル)
        If 特定の情報 = "" Then                     'キャンセルボタンが押されたなら
            GoTo owari2
        End If
'
        Set セル番号 = Rows(10).Find(特定の情報)
        If セル番号 Is Nothing Then
        MsgBox 特定の情報 & " は、" & "みつかりません", vbExclamation, "検索結果"
            GoTo owari2
        End If
        MsgBox "最初に見つかったセルは " & セル番号.Address & "です", vbInformation, "検索結果"
'
owari2:
        Range("N19").Select                         'カーソルを定位置へ
End Sub
'-----------------------------------------------------------------------------------------
Sub 指定範囲内で特定の情報が含まれている最初のセル番号を取得する_セル範囲で()
    Sheets("SSS").Select
        Range("D10:I14").Select                     '※２
        メッセージ = "検索したい文字列を入力してください" & Chr(13) & Chr(13) _
                    & "（一部分でも良い、生年月日は西暦）"
        タイトル = "D10:I14セル範囲を検索します"
        特定の情報 = InputBox(メッセージ, タイトル)
        If 特定の情報 = "" Then                     'キャンセルボタンが押されたなら
            GoTo owari3
        End If
'
        Set セル番号 = Range("D10:I14").Find(特定の情報)
        If セル番号 Is Nothing Then
        MsgBox 特定の情報 & " は、" & "みつかりません", vbExclamation, "検索結果"
            GoTo owari3
        End If
        MsgBox "最初に見つかったセルは " & セル番号.Address & "です", vbInformation, "検索結果"
'
owari3:
        Range("N19").Select                         'カーソルを定位置へ
End Sub
'-----------------------------------------------------------------------------------------
'＜コメント＞
'※１ "SSS"にはワークシート名を記入
'※２ サンプル画面を見易くするためのコーディングにつき不可欠ではない
'※３ "E"には列名を記入
'=========================================================================================



'-----------------------------------------------------------------------------------------
Sub おためしマクロ()
    Worksheets("SSS").Select
    Range("N19").Select                        'カーソルを定位置へ移動する
    タイトル = "500連発 第2弾 サンプルマクロ"
    スタイル = 64                               'vbInformation
    メッセージ = "特定の情報が含まれている最初のセル番号を取得します。" & Chr(13) & Chr(13) & _
                "［OK］ボタンをクリックしてから、" & Chr(13) & Chr(13) & _
                "この画面のボタンをクリックして試してください"
    応答 = MsgBox(メッセージ, スタイル, タイトル)
End Sub
'-----------------------------------------------------------------------------------------
Sub Auto_Close()
    Application.DisplayAlerts = False           '閉じる際に確認メッセージを出さない
    ActiveWorkbook.Close                        '現在開いているブックを閉じる
End Sub
'-----------------------------------------------------------------------------------------