Excel VBA質問箱 IV

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

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


58235 / 76732 ←次へ | 前へ→

【23229】セルの塗りつぶしについて
質問  mori  - 05/3/16(水) 20:16 -

引用なし
パスワード
   現在下記のようにしています。
_______________________
Private Sub CommandButton1_Click()
Worksheets("Sheet1").Range("A1").Interior.ColorIndex = 8
End Sub

Private Sub CommandButton2_Click()
Worksheets("Sheet1").Range("A1").Interior.ColorIndex = Clear
End Sub
_______________________
この状態だとコマンドボタン1.でセルA1を水色に塗り、コマンドボタン2.
でA1の塗りつぶしを解除することになります。
これを、コマンド1.で「選択しているセル」を水色で塗り、2.で解除
したいのです。
当方VBAに関しては全くの初心者であります。
皆様のお知恵を頂きたく投稿しました。宜しくお願い致します。
0 hits

【23229】セルの塗りつぶしについて mori 05/3/16(水) 20:16 質問
【23230】Re:セルの塗りつぶしについて IROC 05/3/16(水) 20:37 回答
【23261】Re:セルの塗りつぶしについて mori 05/3/17(木) 17:15 お礼
【23262】Re:セルの塗りつぶしについて IROC 05/3/17(木) 17:43 回答

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