|
こんにちは
>ENTERで一個下のセルにフォーカスすることで ボタンの代わりになれば
一個下でなくてもセルB4が選択された時点でB4に平均値が出ればいいのですよね?
そのケースで「Worksheet_SelectionChange」イベントが使えるという事です。
でも、選択するセルによってその位置に平均値を出すなら、数式をセルにセットして
おけばいいのでは、と思います。
それでもという事でしたら、シートのタブを右クリックして「コードの表示」で
シートモジュールを出すと
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
End Sub
となっているはずなので、こちらと差し替えて下さい。
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
With Target
If .Count > 1 Then Exit Sub
If Intersect(.Cells, Range("B4")) Is Nothing Then Exit Sub
.FormulaR1C1 = "=AVERAGE(R1C:R[-1]C)"
' .Value = .Value
End With
End Sub
|
|