|
人のこと言えるほど書けるわけではないのですが、
どの程度、VBAができるのかとかも申告したほうがいいと思いますよ。
べたべたな書き方なら下みたいな感じです。
Sub test()
Dim myCellNum As Integer
Dim bEnd As Integer
bEnd = CInt(Range("B65536").End(xlUp).Row)
For myCellNum = 1 To bEnd
If Range("B" & myCellNum).Value < 1499 Or Range("B" & myCellNum).Value > 2501 Then
Range("B" & myCellNum).Interior.Color = RGB(255, 0, 0)
Else
Range("B" & myCellNum).Interior.Color = RGB(0, 0, 0)
End If
Next myCellNum
End Sub
▼kiyo さん:
>列2の数字が1500〜2500の場合は黒 それ以外は赤
>にセルの色が変わるようにマクロを組みたいのですが…。
>誰かわかる方教えて下さい。
>宜しくお願いします。
>
> 1 2 3
>A 1700
>
>B 3000
>
>C 1500
|
|