|
Excel2003を使用してます
残暑見舞いさん
どうもありがとうございました。
残暑見舞いさんのいわれるように背景色が多くなると
みにくくなる事も分かりますが今後データが増えていく予定なので
やはり10番目まで背景色をつけたいと思います。
Sub Small()
Dim myV As Long
Dim FR As Range
Dim i As Long, j As Long
Dim firstAddress As String
Dim myAry As Variant
myAry = Array(3, 4, 6, 8, 7, 30, 43, 45, 17, 5)
With Sheets("Sheet1")
.Cells.Interior.ColorIndex = xlNone
For i = 3 To 6
For j = 1 To 10
myV = WorksheetFunction.Small(.Range(.Cells(15, i), .Cells(34, i)), j)
Set FR = .Range(.Cells(15, i), .Cells(34, i)).Find(myV, LookIn:=xlValues)
If Not FR Is Nothing Then
firstAddress = FR.Address
Do
If FR.Interior.ColorIndex = xlNone Then
FR.Interior.ColorIndex = myAry(j - 1)
End If
Set FR = .Range(.Cells(15, i), .Cells(34, i)).FindNext(FR)
Loop While FR.Address <> firstAddress
End If
Next j
Next i
End With
End Sub
9番目までは、背景色をつけられましたが10番目は背景色が赤になります。
対処方法を教えて下さい。
なお重複する数値は、同色を返す方法でお願いします。
|
|