![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
次のようなコードで10の平均と20の平均はエラーにならないのですが75の時のみエラーになります
Sheets(SN).Cells(gyou, 22)のセルにはすべて数字があるのですがエラーになります。
エラー”1004”アプリケーション定義またはオブジェクト定義のエラー
au = 100
sk1 = 10
sk2 = 20
sk3 = 75
If WorksheetFunction.Sum(Range("V90:V99")) <> 0 Then
Sheets(SN).Cells(au, 24).Value = Application.WorksheetFunction.Average(Sheets(SN).Range(Cells(au - (sk1 - 1), 22), _
Sheets(SN).Cells(au, 22)))
End If
If WorksheetFunction.Sum(Range("V75:V99")) <> 0 Then
Sheets(SN).Cells(au, 25).Value = Application.WorksheetFunction.Average(Sheets(SN).Range(Cells(au - (sk2 - 1), 22), _
Sheets(SN).Cells(au, 22)))
End If
If WorksheetFunction.Sum(Range("V25:V99")) <> 0 Then
Sheets(SN).Cells(au, 26).Value = Application.WorksheetFunction.Average(Sheets(SN).Range(Cells(au - (sk3 - 1), 22), _
Sheets(SN).Cells(au, 22)))
エラーの原因を教えてくださいよろしくお願いします。
No.1ベストアンサー
- 回答日時:
具体的な実数字に置き換えてやってみるとうまく行くようだった。
シート名SN->Sheet1
au-->100
sk3-->75
22列はA列に
最後のIf WorksheetFunction.Sum以下の部分のコードを、手作業で上記に変えて実行してみた。
Sub test01()
'Sheets("Sheet1").Cells(100, 26).Value =
MsgBox Application.WorksheetFunction.Average(Sheets("Sheet1").Range(Cells(28, 1), _
Sheets("Sheet1").Cells(100, 1)))
End Sub
A28:A100で文字セル混入、空白セル混入でも動いたが、全セル空白だとエラーになった。
22列の22行目から100行目まではデータが入ってますか?
ーー
If WorksheetFunction.Sum(Range("V25:V99")) <> 0
V列の25行から89行までと平均計算対象の22列目の28行目から100行目まで列と行とも範囲が違うがこれで良いのですか。
V列の23~25までの1個がデータが抜けていました。
訂正をしてテストしたら上手くいきました。
25ではなく22ですね
ありがとうございました
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Visual Basic(VBA) ExcelVBAでDo Until loopのネスト、IF文を使って一致する物と一致しない物としたい 11 2022/12/24 17:46
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Excel(エクセル) マクロで最終行から上に検索を逆にしたい 1 2022/05/17 18:27
- Visual Basic(VBA) vbaのvlookup関数エラー原因を教えていただけないでしょうか。 3 2022/04/25 16:16
- Visual Basic(VBA) 形式を選択して貼り付け 以下のコードで「元」シートと「先」シートのA列に同じ値があったら指定範囲をコ 5 2022/11/11 07:30
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) Sheet1のA列にコードB列にメアド、Sheet2のB列にコード一覧とD列にメアド一覧があり、Sh 3 2022/10/19 11:57
- Excel(エクセル) R列の1111/11/11以外、且つQ列の×の条件で該当行のAからAE列までオレンジに塗りつぶす 2 2022/07/02 10:18
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
au電話料金について。 相手から...
-
スマホの、auとKDDIって同じ会...
-
ikedadaisaku(池田大作)を一文...
-
着信履歴の受話器マークと「!...
-
今日、auでピクセル8に機種変更...
-
ショートメールにて、気になる...
-
auのGoogle pixel 6 を新しく買...
-
auのiPhoneのSIMロック解除につ...
-
auかんたん決済の内訳を見れま...
-
今、携帯会社はどこがいいんで...
-
フランス語で「今日も」は
-
auからメールがきましたが本物...
-
au携帯の名義変更
-
au(KDDI)携帯電話の過去の発信...
-
家族割の契約について(au)
-
至急回答お願いします! auから...
-
渡嘉敷島は docomo、au 、SoftB...
-
auは何で沖縄セルラーなんですか?
-
ツーカーのプリケーからauぷ...
-
実行時エラー”1004”アプリケー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
au電話料金について。 相手から...
-
今日、auでピクセル8に機種変更...
-
着信履歴の受話器マークと「!...
-
auのGoogle pixel 6 を新しく買...
-
ikedadaisaku(池田大作)を一文...
-
auデータお預かりアプリはWEBで...
-
スマホの、auとKDDIって同じ会...
-
auとKDDIの違いを教えてください。
-
auメールアプリの削除したのを...
-
ショートメールにて、気になる...
-
au(KDDI)携帯電話の過去の発信...
-
au IDにログイン何故か出来ませ...
-
auの「ezweb」
-
auスマートパスプレミアム会員...
-
auのポイントがある時を境に全...
-
教えてください。これは、詐欺...
-
今、携帯会社はどこがいいんで...
-
auにて名義変更と機種変更、同...
-
アイホン初期化
-
auのiPhoneのSIMロック解除につ...
おすすめ情報