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


'=========================================================================================
' ◆標準モジュールのコード◆
'-----------------------------------------------------------------------------------------
Option Explicit
Dim タイトル As String
Dim スタイル As Long
Dim メッセージ As String
Dim 応答 As Variant
'=========================================================================================
Public Function セルの情報_幅()
    Range("C3").Formula = "=CELL(""width"",C9)" 'CELL関数をセルにセットする
    セルの情報_幅 = Range("C3").Value              'セルの情報を取り出す
End Function
'-----------------------------------------------------------------------------------------
Public Function セルの情報_パス()
    Range("C3").Formula = "=CELL(""filename"",B17)" 'CELL関数をセルにセットする
    セルの情報_パス = Range("C3").Value              'セルの情報を取り出す
End Function
'=========================================================================================



'-----------------------------------------------------------------------------------------
Sub おためしマクロ()
    おためしメッセージを表示する
'    ファイルを開くダイアログボックスを表示する      '★★★
End Sub
'-----------------------------------------------------------------------------------------
Private Sub おためしメッセージを表示する()
    Application.ScreenUpdating = True       '画面を更新する
    Worksheets("Excel95以上用").Select
        Range("C3:D3").Value = ""
        Range("B9:D9").Select
    タイトル = "500連発 第2弾 サンプルマクロ"
    スタイル = 64                               'vbInformation
    メッセージ = "「 =CELL(""width"",C9) 」を、C3 おためしセルに記入して、" & Chr(13) & Chr(13) & _
                "C9セルの幅を調べます。 そして、表示します。"
    応答 = MsgBox(メッセージ, スタイル, タイトル)
'
    メッセージ = "C9セルの幅は " & セルの情報_幅 & " です。"
        Range("D3").Value = "'" & Range("C3").Formula '数式を文字列として表示
        Range("C3").Select                  'カーソルを移動（数式バーに映すため）
        応答 = MsgBox(メッセージ, スタイル, タイトル)
'
        Range("C3:D3").Value = ""
        Range("B17:D17").Select
    メッセージ = "「 =CELL(""filename"",B17:D17) 」を、C3 おためしセルに記入して、" & Chr(13) & Chr(13) & _
                "対象範囲を含むファイルの名前を調べます。 そして、表示します。"
        応答 = MsgBox(メッセージ, スタイル, タイトル)
'
    メッセージ = "B17:D17セルを含むファイル名は " & Chr(13) & Chr(13) & _
                セルの情報_パス & "  です。"
        Range("D3").Value = "'" & Range("C3").Formula
        Range("C3").Select
        応答 = MsgBox(メッセージ, スタイル, タイトル)
'
    Worksheets("Title").Select
    Range("P17").Select                        'カーソルを定位置へ移動する
End Sub
'-----------------------------------------------------------------------------------------
Sub Auto_Close()
    Application.DisplayAlerts = False           '閉じる際に確認メッセージを出さない
    ActiveWorkbook.Close                        '現在開いているブックを閉じる
End Sub
'-----------------------------------------------------------------------------------------