Excel VBA質問箱 IV

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

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


10180 / 13644 ツリー ←次へ | 前へ→

【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 回答[未読]

【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に関しては全くの初心者であります。
皆様のお知恵を頂きたく投稿しました。宜しくお願い致します。

【23230】Re:セルの塗りつぶしについて
回答  IROC  - 05/3/16(水) 20:37 -

引用なし
パスワード
   >コマンド1.で「選択しているセル」
Selection.Interior.ColorIndex = 8


>2.で解除
Clearではなく xlColorIndexNone です。
ヘルプに書いてあります。

【23261】Re:セルの塗りつぶしについて
お礼  mori  - 05/3/17(木) 17:15 -

引用なし
パスワード
   無事解決しました。

初心者のため、プログラム的に本当に正しい
かはわからないですが、動作上は問題なく
動いているので一応良しとしました。
試行錯誤で下記のように落ちついたので
ご報告させて頂きます。
ありがとうございました。
____________________

Private Sub CommandButton1_Click()
  With Selection.Interior
    .ColorIndex = 8
    .Pattern = xlSolid
  End With
End Sub
____________________
Private Sub CommandButton2_Click()
  With Selection.ClearContents
  End With
  With Selection.Interior
    .ColorIndex = xlColorIndexNone
    .Pattern = xlSolid
  End With
End Sub

【23262】Re:セルの塗りつぶしについて
回答  IROC  - 05/3/17(木) 17:43 -

引用なし
パスワード
   >  With Selection.ClearContents
>  End With

Selection.ClearContents

 だけで大丈夫です。


With〜End With は重複する構文を省略するためのものです。
 

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