利用規約の変更について

例えばA1:E10の範囲でいろんな色で塗りつぶされている時、水色(ColorIndex=34)のセルだけを塗りつぶしなしにしたいマクロ組みたいのですが、よく分かりません。
どなたか、教えてください。

A 回答 (3件)

こんにちは。



こんな感じでどうでしょう?

Option Explicit

Sub Macro1()
Dim r As Range
For Each r In ActiveSheet.Range("A1:E10")
With r.Interior
If .ColorIndex = 34 Then .ColorIndex = xlNone
End With
Next r
End Sub
    • good
    • 0
この回答へのお礼

今までIF関数みたいなのを使えばいいのかな
と思ってたんですけど、詳しく分かりませんでした。
これで問題解消できそうです。
ありがとうございました。

お礼日時:2007/02/12 22:24

cOLORiNDEX=34は「薄い水色」ですね。

こんなマクロでいかがですか

Sub Macro6()
Dim rng As Range
 For Each rng In Range("A1:E10")
  If rng.Interior.ColorIndex = 34 Then
   rng.Interior.ColorIndex = xlNone
  End If
 Next rng
End Sub

この回答への補足

今までIF関数みたいなのを使えばいいのかな
と思ってたんですけど、詳しく分かりませんでした。
これで問題解消できそうです。
ありがとうございました。

補足日時:2007/02/12 22:22
    • good
    • 0
この回答へのお礼

今までIF関数みたいなのを使えばいいのかな
と思ってたんですけど、詳しく分かりませんでした。
これで問題解消できそうです。
ありがとうございました。
(間違えて補足の方に書き込んじゃいました)

お礼日時:2007/02/12 22:32

書式の”条件付書式”より、


さまざまな条件から、さまざまな書式の設定が出来ますよ。
とても便利です。
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング