Excel VBA質問箱 IV

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

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


74679 / 76732 ←次へ | 前へ→

【6513】Re:イベント用モジュールを復活させたい
発言  kawata  - 03/7/6(日) 11:58 -

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

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