| |
▼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へ）
・
これを続ける（８年分くらい続ける。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
