A列に5分毎のデータが並んでいて、このデータの30分毎の平均や合計をB列に出力したいとします。
このとき、以下のマクロを実行すると
「WorksheetFunctionクラスのAverageプロパティを取得できません。」
というエラーが出てしまいます。
Dim i As Integer
For i = 1 To 1000
Cells(7 + i, 2).FormulaR1C1 = Application.WorksheetFunction.Average(Range(Cells(1 + 6 * i, 1), Cells(6 + 6 * i, 1)))
Next
しかし、Averageの部分をSumにすると実行できるのです。。。
なぜでしょうか?????
それから、5分毎のデータを30分毎のデータに変換する良い方法があったらそちらも加えて教えてください!!
No.3ベストアンサー
- 回答日時:
こんにちは。
もともと、VBAの元の基本的なプロパティの書き方がヘンだと思いますが、それは置いておいて、
質問の元が、どういう状態で、どのようになるか書かれていませんから、それは、こちらの想像の範囲として、コードをみると、1007行目まで入れるようになっています。しかし、データ自体はそこまで(6000行)なさそうです。少なくとも、WorksheetFunction の場合は、「0を0で割る(#DIV/0)」エラーが問題です。
行間を空けずにまとめてしまうというなら、
Sub Test1()
Dim i As Long
Dim j As Long
Dim EndRow As Long
EndRow = Cells(Rows.Count, 1).End(xlUp).Row
If EndRow Mod 6 Then
j = 0
Else
j = 1
End If
For i = 1 To Int(EndRow / 6) - j
Cells(7 + i, 2).Value = Application.WorksheetFunction.Average(Range(Cells(1 + 6 * i, 1), Cells(6 + 6 * i, 1)))
Next
End Sub
No.2
- 回答日時:
Average を Sum に変えると実行可能ということは、Average だとエラーになるような数式ってことじゃないでしょうか? 例えば要素数が0とか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vba 等間隔の列に対しての計算 6 2022/05/17 20:15
- Visual Basic(VBA) vbaのvlookup関数エラー原因を教えていただけないでしょうか。 3 2022/04/25 16:16
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたい 6 2023/01/23 12:00
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Visual Basic(VBA) 追記する列を増やしたい 2つのデータを検索・照合して元データにないデータを下記マクロで商品名を追記し 9 2022/10/05 10:50
- Visual Basic(VBA) エラーコード1004 6 2022/06/09 14:12
- Visual Basic(VBA) Sheet1のA列にコードB列にメアド、Sheet2のB列にコード一覧とD列にメアド一覧があり、Sh 3 2022/10/19 11:57
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
VBAを用いて条件付きの平均値、標準偏差を求めたいです(Ecxel 2016使用)
Visual Basic(VBA)
-
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
-
4
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
5
VBA 配列に格納した値の平均のやり方についてお教え願います
Visual Basic(VBA)
-
6
VBAで配列の計算
Excel(エクセル)
-
7
VBA(excel)でグラフのデータ範囲の取得
その他(Microsoft Office)
-
8
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
9
VBAでの Replace関数で、ワイルドカードは使えないのでしょうか?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
DataGridView からの値取得に関...
-
実行時エラー3001「引数が間違...
-
Excel2019 ワークシートのコピ...
-
【Excel VBA】マクロをボタンに...
-
実行時エラー48発生時のDLL特定...
-
VBAでのエラー
-
OLEDB.NETで接続できない
-
マクロについて教えてください...
-
実行時エラー -'-2147417848
-
VBAでのMATCH関数の使用
-
「コンパイルエラー:プロシー...
-
INSERT INTOステートメント構文...
-
excel vbaでvlooupの変数がわか...
-
vbaのvlookup関数エラー原因を...
-
ASP.NET OleDbConnectionが定義...
-
EXCEL/VBAで、自分のPCだけエラ...
-
VB6 エラー:438 (InputBoxに値)
-
VBA:「中断モードでは入力でき...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
【Excel VBA】マクロをボタンに...
-
なぜこんな初歩的なVBAのIf文で...
-
VBAでのエラー
-
マクロについて教えてください...
-
ExcelVBA Range クラスの Page...
-
実行時エラー3001「引数が間違...
-
VBS実行時エラー オブジェクト...
-
VBAがブレークモードになっ...
-
OLEDB.NETで接続できない
-
プロシージャ名の取得
-
EXCEL VBAマクロ中断でデバッグ...
-
VBSで変数の宣言はできないので...
-
ADODB.Streamを使用してUTF-8を...
-
実行時エラー -'-2147417848
-
AccessVBAでExcelを起動し、罫...
-
VB6+SQL サーバー 2000 で 実行...
-
Outlook.ApplicationをCreateOb...
-
Application.ActiveInspectorで...
おすすめ情報