Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


74676 / 76732 ←次へ | 前へ→

【6516】Re:イベント用モジュールを復活させたい
回答  ichinose  - 03/7/7(月) 7:29 -

引用なし
パスワード
   ▼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


としてみて下さい。

1 hits

【6500】イベント用モジュールを復活させたい kawata 03/7/4(金) 13:42 質問
【6506】Re:イベント用モジュールを復活させたい ichinose 03/7/4(金) 20:19 回答
【6510】Re:イベント用モジュールを復活させたい kawata 03/7/6(日) 9:22 お礼
【6513】Re:イベント用モジュールを復活させたい kawata 03/7/6(日) 11:58 発言
【6516】Re:イベント用モジュールを復活させたい ichinose 03/7/7(月) 7:29 回答
【6519】Re:イベント用モジュールを復活させたい kawata 03/7/7(月) 8:23 お礼
【6520】Re:イベント用モジュールを復活させたい kawata 03/7/7(月) 8:41 お礼
【6521】Re:イベント用モジュールを−できました! kawata 03/7/7(月) 8:53 お礼

74676 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free