|
▼しずか さん:
こんにちは
本当にそのコードのままですか?
そのエラーは、
Set t = .Find(What:=m, LookIn:=xlValues)
で目的のセルが見つかっていないという事です。
Range("A1:N10")の最大値で、Range("A1:N10")を検索しているので
tがNothingのはずは無いと思います。
ひょっとしてセルの書式設定で表示桁数とかセットしてないですか?
>うっしさん
>お世話になっております。
>
>早速試してみましたが、
>今度は、エラーが出るようになってしまいました。
>
>
>整数ですと、エラーはでません。
>
>何か他に処理をしなければいけないことがあるのでしょうか?
>
>
>エラーは以下のとおりです。
>
>----------------------
>
>実行時エラー 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
|
|