ゴールシーク関数で、エラーをとばす

Sub Macro3()
'
' Macro3 Macro
'

'
For i = 118 To 4944
Range("Q" & i).GoalSeek Goal:=450, ChangingCell:=Range("R" & i)
Next
End Sub
上記のマクロを組んでいます。

しかし、４５０という目標値だと、ちゃんとした数字がはじき出せないものがあり
#VALUE!
という風に、エラー表示されます。

このエラーを飛ばして、ゴールシーク関数を次のセルから始めさせたいのですが、

どのようなマクロを組めばよいかアドバイスお願いいたします。

No.1 ベストアンサー 回答者： WindFaller 回答日時： 2017/02/19 18:34

>次のセルから始めさせたいのですが、

On Error
「エラーの時に」
Resume Next
「次から始める」という意味です。

コードの実行部分を以下のように挟んであげればよいと思います。

On Error Resume Next
Range("Q" & i).GoalSeek Goal:=450, ChangingCell:=Range("R" & i)
On Error GoTo 0 'エラーはなしにします、という意味です。
ループの中のほうがよいでしょう。

この回答へのお礼

ありがとうございます。出来ました。

お礼日時：2017/02/19 18:49