|
▼ぽん さん:
こんにちは、Function自身の所在を知る方法に興味があったので
こんなものを作ってみました。
行挿入だけでは再計算されないのであと一工夫必要ですね。
あと.ThisCell.Columnをとれば 列方向の変化にも対応できますね。
Function test01()
Dim TCRow As Long
With Application
TCRow = .ThisCell.Row - 1
If TCRow >= 10 Then
test01 = .Sum(Range(Cells(TCRow - 9, 1), Cells(TCRow, 1)))
Else
test01 = .Sum(Range(Cells(1, 1), Cells(TCRow, 1)))
End If
End With
End Function
>ご質問します。
>
>今A1〜A10のセルに数値が含まれており、
>A11にA1〜A10の合計が計算されるようになっています。
>
>そこに、A11に新しく行を挿入し、数値を入れた場合に
>A2〜A11までの合計を計算し、A12にその合計が入力されるように
>したいのですが、どうすればよいでしょうか?
>
>VBA初心者です。よろしくお願いいたします。
|
|