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

misatoanna · ベストアンサー

以下のような内容でしょうか。

Sub 上下カット()
Dim MyR As Range, MyMax As Integer, MyMin As Integer
Dim MX As Range, MN As Range
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 Then Set MX = MyR
If MyR.Value = MyMin Then Set MN = MyR
Next
MX.Borders(xlDiagonalUp).LineStyle = xlContinuous
MN.Borders(xlDiagonalUp).LineStyle = xlContinuous
End With
End Sub

お礼

ありがとうございます。
できました。
とても助かりました。ありがとうございました。