|
うっしさん
お世話になっております。
早速試してみましたが、
今度は、エラーが出るようになってしまいました。
整数ですと、エラーはでません。
何か他に処理をしなければいけないことがあるのでしょうか?
エラーは以下のとおりです。
----------------------
実行時エラー 91
オブジェクト変数またはWithブロック変数が設定されていません。
と、出ます。
----------------------
デバックを押すと、
.BorderAround Weight:=xlMedium, ColorIndex:=3
のコードに黄色のラインがあります。
----------------------
Sub てすと()
Dim m As Double
Dim t As Range
With Range("A1:N10")
m = Application.WorksheetFunction.Max(.Cells)
Set t = .Find(What:=m, LookIn:=xlValues)
End With
With t
.BorderAround Weight:=xlMedium, ColorIndex:=3
.Font.Bold = True
End With
End Sub
|
|