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