| お返事ありがとうございます。
下記のコーディングで完璧でした!
色々と応用させていただきます、誠に感謝申し上げます!
> 最大値はColorMax、最小値はColorMinとしています。 > > Function ColorMax(R1 As Range, C As Range) > Dim r As Range > > Application.Volatile > ColorMax = 0 > For Each r In R1 > If r.Interior.Color = C.Interior.Color Then > If ColorMax < r.Value Then ColorMax = r.Value > > End If > Next r > > End Function > > Function ColorMin(R1 As Range, C As Range) > Dim r As Range > > Application.Volatile > ColorMin = 10 ^ 9 > For Each r In R1 > If r.Interior.Color = C.Interior.Color Then > If ColorMin > r.Value Then ColorMin = r.Value > > End If > Next r > > End Function
|