Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


27480 / 76732 ←次へ | 前へ→

【54571】Re:平均の算出
質問  bunbun  - 08/3/19(水) 18:10 -

引用なし
パスワード
   ▼neptune さん:
こんにちは

わかりにくくてごめんなさい。
マクロの記録を利用すると下記プログラム(ちょっと加工してます)となり
手間が省けません。

簡単になりませんでしょうか。

これでもわかりにくかったらごめんなさい。
********************************
sub CommandButton1_Click()
 
Sheets("年間日データ").Cells(8, 13).Value = Application.Average(Sheets("年間フルデータ").Range("Ag10:Ag33"))
Sheets("年間日データ").Cells(9, 13).Value = Application.Average(Sheets("年間フルデータ").Range("A34:A57"))



End Sub
********************************


"年間フルデータシート"

日付   時間    データ
1日    1:00    0.00
     ・
     ・
1日    23:00    0.00
1日    24:00    0.07 24時間で平均を算出(これを年間日データM8へ)
2日    1:00    0.00
2日    2:00    0.00
     ・
     ・
2日    22:00    0.00
2日    23:00    0.08
2日    24:00    0.00 24時間で平均を算出(これを年間日データM9へ)
     ・
これを続ける(8年分くらい続ける。
0 hits

【54564】平均の算出 bunbun 08/3/19(水) 16:28 質問
【54566】Re:平均の算出 neptune 08/3/19(水) 17:14 発言
【54571】Re:平均の算出 bunbun 08/3/19(水) 18:10 質問
【54572】Re:平均の算出 neptune 08/3/19(水) 18:48 発言

27480 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free