Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

74685 / 76738

←次へ　｜　前へ→


	【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

0 hits

▼

【6500】イベント用モジュールを復活させたい kawata 03/7/4(金) 13:42