|
▼roxy さん:
こんにちは。
>RGB(255, 255, 153)という色がついているセルの値を消したいです。
>しかし、エラーで「型が一致しません」と表示されます。
>色を宣言するんですよね??
>このあたりが良く分かりません。
>ご指導いただけたらとおもいます。
まず、Range("C5:J15")このセル範囲は全て同じ色で塗りつぶされている
という前提ならば、
If Worksheets("Sheet1").Range("C5:J15").Interior.Color = RGB(255, 255, 153) Then
Worksheets("Sheet1").Range("C5:J15").ClearContents
End If
これでよいですが、
Range("C5:J15")このセル範囲内で塗りつぶし色がRGB(255, 255, 153)という色のセルの値をクリアしたいなら・・・、
Sub CommandButton1_Click()
Dim rng As Range
For Each rng In Worksheets("Sheet1").Range("C5:J15")
If rng.Interior.Color = RGB(255, 255, 153) Then
rng.ClearContents
End If
Next
End Sub
こんな感じですか?
|
|