Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8960 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【30044】AVERAGEの出し方について 悩めるマクロ見習い 05/10/18(火) 19:38 質問[未読]
【30052】Re:AVERAGEの出し方について hine 05/10/18(火) 20:13 発言[未読]
【30054】Re:AVERAGEの出し方について Kein 05/10/18(火) 20:47 回答[未読]
【30057】Re:AVERAGEの出し方について 悩めるマクロ見習い 05/10/18(火) 21:44 質問[未読]
【30058】Re:AVERAGEの出し方について Kein 05/10/18(火) 22:05 回答[未読]
【30106】Re:AVERAGEの出し方について 悩めるマクロ見習い 05/10/19(水) 18:28 お礼[未読]
【30044】AVERAGEの出し方について
質問  悩めるマクロ見習い  - 05/10/18(火) 19:38 -
引用なし
パスワード
   お願いします。
申し訳ありませんが平均を出す方法を教えてください。
B2：U2に20名の名前が入ります
A5：A35に1ヶ月の日付が入ります。
この範囲の数値の平均をB36：U36に挿入する為に
下記に途中まで作りましたが分かりません。
ご指導を願いします。

dim i as byte
For i = 2 To 21
Cells(36, i).Formula = "=AVERAGE(ここの書き方が分かりません。)"
Next i

　　A　　B　　　C　　　D　　　E　　　F　　　G　　　H
１
２ 名前　名前1　名前2　名前3　名前4　名前5　名前6　
３
４
５ １日　80
６ ２日　100
７ ３日　75
・
・
・
34 30日　80
35 31日　90
36平均
【30052】Re:AVERAGEの出し方について
発言  hine  - 05/10/18(火) 20:13 -
引用なし
パスワード
   ▼悩めるマクロ見習い さん：

こんばんは
参考になれば幸いです

Sub TEST()
Dim myR As Range
With Worksheets("Sheet1")
　　Set myR = .Range("B5:B35")
　　.Range("B36").Value = Application.WorksheetFunction.Average(myR)
End With
End Sub
【30054】Re:AVERAGEの出し方について
回答  Kein  - 05/10/18(火) 20:47 -
引用なし
パスワード
   ループを使う必要はありません。

Range("B36:U36").Formula = "=AVERAGE(B$5:B$35)"

これだけで出来ます。
【30057】Re:AVERAGEの出し方について
質問  悩めるマクロ見習い  - 05/10/18(火) 21:44 -
引用なし
パスワード
   hineさん、Kein さん　ありがとうございました。

Range("B36:U36").Formula = "=AVERAGE(B$5:B$35)"
できました。


もう一つ質問があるのですが
値の無い場合に空欄にするにはどうすれば良いでしょうか


イメージとしては
IF Range("B36:U36").value = "#DIV/0!" Then
　 Range("B36:U36").value = ""
end if
(この程度のレベルで申し訳ないです）
【30058】Re:AVERAGEの出し方について
回答  Kein  - 05/10/18(火) 22:05 -
引用なし
パスワード
   数式の部分を

"=IF(ISERR(AVERAGE(B$5:B$35)),"""",AVERAGE(B$5:B$35))"

と、変更すれば良いでしょう。
【30106】Re:AVERAGEの出し方について
お礼  悩めるマクロ見習い  - 05/10/19(水) 18:28 -
引用なし
パスワード
   Kein さん　恐れいります。

うまく動作しました。ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8960 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free