EXCEL マクロ 最小値と最高値

質問

今マクロを作成しております。
A1～D１の中の数字の最小値・最高値に罫線の斜め線を入れたいのですが、

例)　A1　　B1　　C1　　D1
　　　10　　15　　15　　　8　　

下記のマクロだと上記のように同じ数字があるとその両方に斜め線が入ってしまいます。
斜め線を入れたいのは、最小値１つと最高値１つで、上記の場合B1とC1が最高値なので
C1に斜め線を入れたいのです。

仮にA１とD１が同数で最小値または最高値の場合D１に斜め線
　　　B1とD１が同数で最小値または最高値の場合D1に斜め線
（同数の場合より左側にあるセルに斜め線）

どのようにしたらいいのかアドバイスいただけますか？

Sub 上下カット()
Dim MyR As Range
Dim MyMax, MyMin
With ActiveSheet
MyMax = WorksheetFunction.Max(.Range("A1:D1"))
MyMin = WorksheetFunction.Min(.Range("A1:D1"))
For Each MyR In .Range("A1:D1")
If MyR.Value = MyMax Or MyR.Value = MyMin Then
MyR.Borders(xlDiagonalUp).LineStyle = xlContinuous
End If
Next
End With
End Sub

回答No.1

MSZ006 · ベストアンサー

＞仮にA１とD１が同数で最小値または最高値の場合D１に斜め線
＞　　　B1とD１が同数で最小値または最高値の場合D1に斜め線

＞（同数の場合より左側にあるセルに斜め線）
「より左側に」ではなくて「より右側」ですよね。

for each で廻すと順序が不明なので、普通のforでセル範囲の右のほうから調べていって、該当したらそこでループを抜けてしまう、という方法です。

Sub test()
Dim MyR As Range
Dim MyMax, MyMin
With ActiveSheet
MyMax = WorksheetFunction.Max(.Range("A1:D1"))
MyMin = WorksheetFunction.Min(.Range("A1:D1"))
For i = 4 To 1 Step -1
Set MyR = Cells(1, i)
If MyR.Value = MyMax Then
MyR.Borders(xlDiagonalUp).LineStyle = xlContinuous
Exit For
End If
Next
For i = 4 To 1 Step -1
Set MyR = Cells(1, i)
If MyR.Value = MyMin Then
MyR.Borders(xlDiagonalUp).LineStyle = xlContinuous
Exit For
End If
Next
End With
End Sub

お礼

ありがとうございます。
どうしてもわからず、困っておりました。
ありがとうございました。