|
kawataです、よろしくお願いします。
ichinoseさんにご教示いただいた、
>Set objExcel = Application でイベント実行可能
>Set objExcel = Nothing イベントが発生しません
を、ワークシートに作成したボタンに登録して、
作成してみたのですが・・・・、どうもうまく動きません。
記述先は標準モジュールです、私、何か勘違いしているような。
すいません、間違いをご指摘ください、よろしくお願いします。
Sub 監視ONOFF()
With Sheets("main")
If .Shapes("ButtonONOFF").TextFrame.Characters.Text Like "*OFF*" Then
With .Range("C3")
.Formula = "監視解除中"
.Font.ColorIndex = 5
End With
Set objExcel = Nothing
.Shapes("ButtonONOFF").TextFrame.Characters.Text = "監視ON!!"
Else
With .Range("C3")
.Formula = "監視中!!"
.Font.ColorIndex = 3
End With
Set objExcel = Application
.Shapes("ButtonONOFF").TextFrame.Characters.Text = "監視OFF!!"
End If
End With
End Sub
|
|