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

2 名前 名前1 名前2 名前3 名前4 名前5 名前6 


5 1日 80
6 2日 100
7 3日 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