|
▼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年分くらい続ける。
|
|