Excel VBA質問箱 IV

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

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


4772 / 13646 ツリー ←次へ | 前へ→

【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 発言[未読]

【54564】平均の算出
質問  bunbun  - 08/3/19(水) 16:28 -

引用なし
パスワード
   下記のデータがあり、1日(24時間の)毎の平均を別シートに貼り付けたいのですがCellsの使い方が悪いのかうまくVBAが出来ません
データ量が多いのでVBAを作って手早くしたいのですが
誰かご教示願えませんでしょうか

1日    1:00    0.00
     ・
     ・
1日    23:00    0.00
1日    24:00    0.07
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
     ・
     ・

【54566】Re:平均の算出
発言  neptune  - 08/3/19(水) 17:14 -

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

>下記のデータがあり、1日(24時間の)毎の平均を別シートに貼り付けたいのですがCellsの使い方が悪いのかうまくVBAが出来ません

データがあるのは判りますが、どういう平均でしょうか?
私にはわかりません。
誰が読んでも誤解のないわかりやすい質問をしたほうがResが付きやすいですよ。
それと自分でどこまで出来ているかもです。

手動でやれますか?出来るなら、マクロの記録を取って参考にするのが
早いと思います。

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

【54572】Re:平均の算出
発言  neptune  - 08/3/19(水) 18:48 -

引用なし
パスワード
   ▼bunbun さん:

そのような事なら
先ず、集計機能を使用して、算出された平均を取得して
必要なところに入れる
なら、簡単と思うんですが????
Excelの便利な機能は使わなければ・・・・もったいない。

集計までは記録で出来ますね。
で、それを折りたたんで、表示された集計の部分だけをジャンプ機能で
選択、コピーすれば簡単と思いますが。

やってみてください。

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