'=========================================================================================
' 236 INFOをセルに入れて現在の操作環境についての情報を取得する
'-----------------------------------------------------------------------------------------
'【ヒント】
' このマクロは、おためし機能の動作用のコードを含んでいます。（概ね下半分）
' ★★★の行またはサブプロシージャーが、タイトル機能に関係するコードです。（概ね上半分）
' Sheet2にもExcel97以上用のコードがあります


'=========================================================================================
' ◆標準モジュールのコード◆
'-----------------------------------------------------------------------------------------
Option Explicit
Dim タイトル As String
Dim スタイル As Long
Dim メッセージ As String
Dim 応答 As Variant
Dim バージョン As String


'=========================================================================================
Private Sub INFOをセルに入れて現在の操作環境についての情報を取得する_95以上に共通()
    Worksheets("Excel95以上用").Select
        Range("C3:D3").Value = ""
        Range("C3").Select
    メッセージ = "「関数の書き方」の列に表示されている 9つの関数の中の、" & Chr(13) & Chr(13) & _
                "「 =INFO(""release"") 」を、C3 おためしセルに記入して、" & Chr(13) & Chr(13) & _
                "Excelのバージョンを調べます。 そして、表示します。"
    応答 = MsgBox(メッセージ, スタイル, タイトル)
'
    メッセージ = "Excelのバージョンは " & 操作環境についての情報 & " です。"
        Range("D3").Value = "'" & Range("C3").Formula '数式を文字列として表示
        Range("C3").Select                  'カーソルを移動（数式バーに映すため）
    応答 = MsgBox(メッセージ, スタイル, タイトル)
End Sub
'-----------------------------------------------------------------------------------------
Public Function 操作環境についての情報()
    Range("C3").Formula = "=INFO(""release"")" 'INFO関数をセルにセットする
    操作環境についての情報 = Range("C3").Value  '操作環境についての情報を取り出す
End Function
'=========================================================================================



'-----------------------------------------------------------------------------------------
Sub おためしマクロ()
    おためしメッセージを準備する
    バージョン = Left(Worksheets("Title").Range("L1").Value, 3)
    If バージョン = "7.0" Then 'Excel95なら
        INFOをセルに入れて現在の操作環境についての情報を取得する_95以上に共通
    Else                                        'Excel97以上なら
        Excel97以上用のおためし
    End If
End Sub
'-----------------------------------------------------------------------------------------
Private Sub おためしメッセージを準備する()
    Worksheets("Title").Select
    Range("P17").Select                        'カーソルを定位置へ移動する
    タイトル = "500連発 第2弾 サンプルマクロ"
    スタイル = 64                               'vbInformation
End Sub
'-----------------------------------------------------------------------------------------
Private Sub Excel97以上用のおためし()
    Worksheets("Excel97以上用").Select
        Range("C3:D3").Value = ""
        Range("C6:C14").Select
    メッセージ = "「関数の書き方」の列に表示されている 9つの関数の中の、任意のセルを" & Chr(13) & Chr(13) & _
                "ダブルクリックすると、その関数が「おためしセル」にセットされて、" & Chr(13) & Chr(13) & _
                "現在の操作環境についての情報が、表示されます。" & Chr(13) & Chr(13) & _
                "「OK」ボタンを押してから、試してみてください"
    応答 = MsgBox(メッセージ, スタイル, タイトル)
End Sub
'-----------------------------------------------------------------------------------------
Sub Auto_Close()
    Application.DisplayAlerts = False           '閉じる際に確認メッセージを出さない
    ActiveWorkbook.Close                        '現在開いているブックを閉じる
End Sub
'-----------------------------------------------------------------------------------------



'=========================================================================================
' ◆Sheet2のコード◆
'-----------------------------------------------------------------------------------------


'=========================================================================================
'セルをダブルクリックしたときに実行するマクロ
'-----------------------------------------------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    行 = ActiveCell.Row                 'アクティブセルの行番号
    列 = ActiveCell.Column              'アクティブセルの列名
    値 = Range(Cells(行, 列), Cells(行, 列)).Value 'アクティブセルの値
    Range("C3").Formula = 値            '数式としてセット
    Range("D3").Value = "'" & Range("C3").Formula '数式を文字列として表示
    Range("C3").Select                  'カーソルを移動（数式バーに映すため）
End Sub
'=========================================================================================