エクセル特定範囲で設定可能の平均算出について

質問

指定数字をいれたら平均本数が変わる方法があったら教えてください。

　　　A　　　B　　　C
　　実数　　計算　　　　　　　　
1　　２　　　　　　　　　　　　指定欄
2　　３
3　 １３
4　 ２２　　関数
5　 ２３　　関数
6　 ３４　　関数　　
7　 ２３

指定欄に数字が４といれたらB４はaverage(a1:a4)となり、
指定欄に数字の５と入れたらB４は消え、B５にaverage(a1:a５)と
なる方法を教えて欲しいです。

回答No.2

minosennin · ベストアンサー

関数を使った別案です。

D1に指定数字があるものとして

B1に
=IF(ROW()=$D$1,AVERAGE(A$1:A1),"")
の式を入力し、下へ必要数ドラッグ

以上です。なお、式はこの画面からEXCELへコピペできます。

お礼

ありがとう御座います。
このままこぴでできましたｗ
助かりましたｗ

回答No.1

kmetu

マクロですが指定欄がD1だと仮定して

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> "$D$1" Then
Exit Sub
End If

Application.EnableEvents = False

Range("B:B").Clear
Range("B" & Range("D1").Value).Formula = "=AVERAGE(A1:A" & Range("D1").Value & ")"

Application.EnableEvents = True

End Sub

でいかがでしょう

お礼

返答ありがとう御座います。
今回は前回返答して頂いた方のを取り入れました。
でもこれも今度使わせてもらいます。
ありがとうですｗ