' [091.xls]



' [Module1] のコード
'★★☆　セルで疑似ボタンを作る　☆★★

Option Explicit

Public txt As String

'本当のボタンに登録されているマクロです
'偽ボタンのマクロは "Sheet1" の "SelectionChangeイベントマクロ" です
Sub start()

    'Caller プロパティはVisual Basic を呼び出した方法
    'についての情報を返します
    txt = Application.Caller
    
    [C9].Activate
    MsgBox txt & " のボタンが押されました" & Chr(10) + _
        Chr(10) + "私は本当のボタンです" + Chr(10) + _
        "違いに気がつきましたか？" _
        , , "　　　My name is Button " & txt

End Sub

Sub start_A()

    Sheets("作業シート").Visible = -1
    Sheets("Title").Visible = 2

End Sub

Sub start_B()

    [C9].Activate
    Sheets("Title").Visible = -1
    Sheets("作業シート").Visible = 2
    
End Sub


' [Sheet2] のコード
Option Explicit

Dim adrs

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    
    'Target.Addressはワークシートで選択範囲を表す
    '絶対番地の文字列です
    adrs = Target.Address
    
    Select Case adrs
        Case "$B$4", "$D$4", "$F$4", "$B$6", "$D$6", "$F$6" _
                , "$B$8", "$D$10", "$F$8"
            マクロ
    End Select
    
End Sub

Sub マクロ()
    
    txt = ActiveCell
    
    MsgBox txt & " のボタンが押されました" & Chr(10) + _
    Chr(10) + "私はセル " & ActiveCell.Address & " です" _
    , , "　　　My name is Cell " & ActiveCell.Address
    
    [C9].Activate
    
End Sub