OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

CommandButtonを押した時に…

  • すぐに回答を!
  • 質問No.247662
  • 閲覧数155
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

Sheet1にコントロールのCommandButton1(名前は"スタート")を配置し、クリックした時に下記のプロシージャを有効にしたいのです。
また、同じくCommandButton2(名前は"ゴール")をクリックしたときにこのプロシージャを無効(終了)にしたいと思っています。
どのように記述をすればよいのでしょうか。
よろしくお願いします。

Private Sub Worksheet_SelectionChange(ByValTarget As Range)
ActiveCell.Interior.ColorIndex = 5
End Sub
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル13

ベストアンサー率 68% (791/1163)

こんなんじゃ、お手軽すぎますかね。ご参考に。

Dim paintFLG As Boolean

Private Sub スタート_Click()
  paintFLG = True
End Sub

Private Sub ゴール_Click()
  paintFLG = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If paintFLG = True Then
    ActiveCell.Interior.ColorIndex = 5
  End If
End Sub
お礼コメント
noname#121624

お手軽すぎるどころか、とてもわかりやすくて使いやすい記述で、早速利用させていただきました。
急いで仕上げなければならない理由があり、本当に助かりました。
有り難うございました。
投稿日時 - 2002-04-06 19:56:15
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ