[[20040529170340]]　『マクロのON，OFF』（たろう）　ページの最後に飛ぶ

『マクロのON，OFF』（たろう）

こんにちは。お世話になります。
入力の手間を省くため，セルを選んで左クリックすると●が入力されるように
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 ActiveCell.Value = "●"
End Sub

こんなマクロをSheet1に作りました。思いどおりに動いたのですが，このマクロのON，OFFができないと不便なので，ボタンを押すとマクロがオンの状態になったり，解除ができるようにしたいのですが・・。
色々試しましたがうまくいきません。よろしくお願いします。（Windows98，Excel2000）

例えば

 private sub commandbutton1_click()
     if range("A1").value = "ON" then
         range("A1").value = "OFF"
     else
         range("A1").value = "ON"
 end if

として、コマンドボタンでどこかのセルにON・OFFの表示切替処理をさせて、

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     if range("A1").value = "ON" then
         ActiveCell.Value = "●"
     end if
 End Sub

というのはいかがでしょうか？　　　　　　　　　　　　　　　（シロ）

 簡易にはマクロツールバーのデザインモードのトグルボタンを押せば、
イベントマクロは実行されません。
(KAMIYA)

　シロさんKAMIYAさんありがとうございました。
マクロの有効，無効の切り替えばかり考えていましたが・・・・・。シロさんに教えていただいた方法で解決です。KAMIYAさんのご指摘でも自分で使うときは十分なのですが，実は，他の人が使うためのシートを作っているため，わかりやすく，しかも少し気取って作っています。また困ったら，助けてください。
』（たろう）

コメント返信：

[ 一覧(最新更新順) ]

[[20040529170340]] 『マクロのON，OFF』（たろう） ページの最後に飛ぶ

[[20040529170340]]　『マクロのON，OFF』（たろう）　ページの最後に飛ぶ