Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10201 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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　は重複する構文を省略するためのものです。
　
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10201 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free