VBA エラー

質問

Sub 上下カット1()
Dim MyR As Range, MyMax As Integer, MyMin As Integer
Dim MX As Range, MN As Range
With ActiveSheet
MyMax = WorksheetFunction.Max(.Range("D15:P15"))
MyMin = WorksheetFunction.Min(.Range("D15:P15"))
For Each MyR In .Range("D15:P15")
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
With ActiveSheet
MyMax = WorksheetFunction.Max(.Range("D16:P16"))
MyMin = WorksheetFunction.Min(.Range("D16:P16"))
For Each MyR In .Range("D16:P16")
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

を実行すると、 MX.Borders(xlDiagonalUp).LineStyle = xlContinuous
の部分にエラーがでます。
対処方法を教えてください。

回答No.2

mt2008 · ベストアンサー

> 2.デバックで黄色く表示されます。
それはエラーではなく、ステップ実行でその行で処理を中断していると言うだけの状態です。
もしかすると過去に設定したブレイクポイントの情報が残っているのかもしれません。
＃Excel2003の頃までは良くありました。

デバッグ→全てのブレークポイントの解除　を試してください。

補足

この度は、大変申し訳ありませんでした。
いろいろとアドバイスいただきありがとうございます。試してみます。

回答No.3

kybo

D15:P15の範囲で最小値と最大値を求めるので、数値が入力されていなければなりません。

D15:P15の範囲に数字として入力されていますか？
全て文字列だった場合、エラーになります。

回答No.1

mt2008

補足願います。
1.　MX.Borders(xlDiagonalUp).LineStyle = xlContinuous　は4か所ありますがどこで発生していますか？
2.　どんなエラーですか？
3.　セルの保護が掛っていませんか？
4.　ちょっとだけ文面を変えて別IDで同じ質問をするのは何故ですか？

補足

補足です。
1.一番上です。
2.デバックで黄色く表示されます。
3.保護はかかってないです。
4.最初に出たエラーから試行錯誤し、違う形でデバックが出たので質問し、IDが違うのはエラーも違う種類だと思ったのと違うサイト？だと思っていたからです。
大変申し訳ありませんでした。
よろしくお願いいたします。