
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も見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでfunctionを利用しようとし...
-
お助けください!VBAのファイル...
-
UserForm1.Showでエラーになり...
-
【VBA】ワークブックを開く時に...
-
Filter関数を用いた結果、何も...
-
String""から型'Double'への変...
-
VBA データ(特定値)のある最...
-
ACCESSで値を代入できないとは?
-
インポート時のエラー「データ...
-
pythonのopenpyxlについて
-
レコード登録時に「演算子があ...
-
Excel vbaについての質問
-
文字列内で括弧を使うには
-
実行時エラー 438 の解決策をお...
-
オブジェクト型の変数にフォー...
-
マクロで"#N/A"のエラー行を削...
-
VB2008 comboboxを連動させた...
-
エクセルVBAで埋め込みグラフ(C...
-
VBスクリプトでIEの404 not fou...
-
Null 値の使い方が不正です と...
マンスリーランキングこのカテゴリの人気マンスリー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' レコー...
おすすめ情報