|
▼エクセル初心者です さん:
>▼gako さん:
>>▼エクセル初心者です さん:
>>
>>このようなことで出来ます。
>>セルの範囲指定は、決めてください。
>>
>>Sub 色つけ()
>>
>>Dim R As Range
>>
>>For Each R In Range("A2:D10") 'A2からD10の範囲を指定しています
>> If R.Value = 10 Then
>> R.Interior.ColorIndex = 3
>> End If
>>Next
>>End Sub
>>
>ありがとうございましたできました。
>追加質問ですが
>10の次に前の10の数字をクリアして
>8とか9とか5とか順次表示することは
>可能でしうか?
>よろしくお願い致します。
下のコードでいけると思います。
A1に数字を入れます…たとえば8とか9とか5とか
それでマクロを動かしてください。A1の数字指定が
赤の色がつくと思います。
Sub 色つけ2()
Dim R As Range
Range("A2:D10").Interior.ColorIndex = xlNone
For Each R In Range("A2:D10")
If R.Value = Range("A1") Then
R.Interior.ColorIndex = 3
End If
Next
End Sub
|
|