Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

70269 / 76738

←次へ　｜　前へ→


	【10979】Re:データの件数をカウントして平均値を表示

ichinose - 04/2/20(金) 21:08 -


	引用なし

	パスワード

IROC さん、初心者です。さん、こんばんは。
>VBA を使わなくても数式で、できそうに思えますが・・
そうですね！！
でも、ＶＢＡで作ってみました。
と言ってもマクロの記録と数式をＶＢＡ化しただけですが・・。
'===============================================================
Sub main()
　 Dim rng1 As Range
　 Dim rng2 As Range
　 Dim mindate
　 Dim maxdate
　 With Worksheets("sheet1")
　　　Set rng1 = .Range("a1", .Cells(.Rows.Count, 1).End(xlUp))
　　　End With
　 '↑Sheet1のＡ列の入力範囲を取得
　 With WorksheetFunction
　　　mindate = .Min(rng1)
　　　maxdate = .Max(rng1)
　　　End With
　 '↑日付の最初と最後を取得
　 With Worksheets("sheet2").Cells(1, 1)
　　　.Value = mindate
　　　.DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:= _
　　　　xlDay, Step:=1, Stop:=maxdate, Trend:=False
　　　End With
　 '↑Sheet2のＡ列に最初から最後の日付を設定
　 With Worksheets("SHEET2")
　　　Set rng2 = .Range("A1", .Cells(.Rows.Count, 1).End(xlUp))
　　　'↑Sheet2のＡ列の入力範囲を取得
　　　With rng2
　　　　 .NumberFormat = "m""月""d""日"""
　　　　 .Offset(0, 1).Cells(1).FormulaArray = "=IF(COUNTIF(" & _
　　　　　　　　　 rng1.Address(, , , True) & ",a1)>0,AVERAGE(IF(" & _
　　　　　　　　　 rng1.Address(, , , True) & "=a1," & rng1.Offset(0, 1).Address(, , , True) & ")),0)"
　　　　 '↑Sheet2のB1に配列数式設定
　　　　 .Offset(0, 1).DataSeries Rowcol:=xlColumns, Type:=xlAutoFill, Date:=xlDay, Trend:=False
　　　　 '↑オートフィル操作と同じ
　　　　 .Offset(0, 1).Value = .Offset(0, 1).Value
　　　　 End With
　　　End With
End Sub

尚、「Sheet1のＡ列は文字列の日付ではない」という前提です。
確認して下さい。
それと今度は、コードも見せて下さいね！！

0 hits

▼

【10977】データの件数をカウントして平均値を表示 初心者です。 04/2/20(金) 18:54