
No.3ベストアンサー
- 回答日時:
次のマクロを実行してみて下さい。
エラーが表示された行を確認して、エラーの原因を特定してください。
Sub CheckMacro()
Dim i As Long
On Error Resume Next
For i = 4 To 2670
Range("Y" & i).GoalSeek Goal:=440, ChangingCell:=Range("V" & i)
If Err.Number <> 0 Then
Range("V" & i) = "何らかのエラーがあります。"
Err.Clear
End If
Next
End Sub

No.6
- 回答日時:
表示させるセルを間違えた・・・。
>>1004のエラー表示です。
セルY4 ~ Y2670 の中にセルVを使った計算式が無いものが有る。
と言う意味。
下の様にやって、エラーセルを特定させる。
On Error Resume Nextを入れて、1004のエラーダイアログが出ない様にしている。
For i = 4 To 2670
On Error Resume Next
Range("Y" & i).GoalSeek Goal:=440, ChangingCell:=Range("V" & i)
If Err.Number <> 0 Then
MsgBox "エラーがあります。 " & "Y" & i
Err.Clear
End If
Next
End Sub

No.5
- 回答日時:
>>1004のエラー表示です。
セルY4 ~ Y2670 の中にセルVを使った計算式が無いものが有る。
と言う意味。
下の様にやって、エラーセルを特定させる。
On Error Resume Nextを入れて、1004のエラーダイアログが出ない様にしている。
For i = 4 To 2670
On Error Resume Next
Range("Y" & i).GoalSeek Goal:=440, ChangingCell:=Range("V" & i)
If Err.Number <> 0 Then
MsgBox "エラーがあります。 " & "V" & i
Err.Clear
End If
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
【VBA】ワークブックを開く時に...
-
実行時エラー 438 の解決策をお...
-
VBAでfunctionを利用しようとし...
-
お助けください!VBAのファイル...
-
実行時エラー'-2147467259(8000...
-
マクロで"#N/A"のエラー行を削...
-
マクロの「SaveAs」でエラーが...
-
VB2008 comboboxを連動させた...
-
【Access】Excelインポート時に...
-
「実行時エラー '3167' レコー...
-
Filter関数を用いた結果、何も...
-
-2147418107 (&H80010005)
-
ExecuteNonQueryメソッドの戻り値
-
VBでコンパイル エラー 変数...
-
実行時エラー 3035 メモリ不...
-
python初心者です。
-
unityの教科書のゲームを作って...
-
数が多い定数をスマートに処理...
-
助けてください
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
お助けください!VBAのファイル...
-
VBAでfunctionを利用しようとし...
-
【VBA】ワークブックを開く時に...
-
マクロで"#N/A"のエラー行を削...
-
文字列内で括弧を使うには
-
String""から型'Double'への変...
-
【Access】Excelインポート時に...
-
VBA データ(特定値)のある最...
-
On ErrorでエラーNoが0
-
インポート時のエラー「データ...
-
ACCESSで値を代入できないとは?
-
VBA エクセル で FIND でのエラ...
-
Filter関数を用いた結果、何も...
-
レコード登録時に「演算子があ...
-
ApplicationとWorksheetFunctio...
-
Excel vbaについての質問
-
【VBAエラー】Nextに対するFor...
-
実行時エラー 438 の解決策をお...
-
「実行時エラー '3167' レコー...
おすすめ情報