|
▼Jaka さん、ありがとうございます。学校の宿題でLOOPを使用しなければならないのですが、応用できました。だた、、、1点だけ解けないところがありまして、
Application.Goto Reference:="FirstEmployee"
Do Until ActiveCell = ""
ActiveCell.Range("A1:F1").Select
If ActiveCell.Offset(0, 5) = ">" & "4000" And _
ActiveCell.Offset(0, 2) = "Manager" Then
Selection.Font.ColorIndex = 3
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
If ActiveCell.Offset(0, 5) = "4000" And _
4000のみの時は大丈夫なのですが、
If ActiveCell.Offset(0, 5) = ">" & "4000" And _ あるいは
If ActiveCell.Offset(0, 5) = ">4000" And _
に変更すると動かないのです。どうしたものでしょうか?
宜しくお願いします。
ゆか
|
|