|
以前に入ってた数値を取得するためにB1にA1をコピーしとくポヨ
あと合計するのは金額じゃないポヨ?勝手にC列にしたポヨ
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a, b
a = Target
If Target.Row <> 1 Or Target.Column <> 1 Or IsNumeric(a) = False Then Exit Sub
If a < 1 Then Exit Sub
Application.EnableEvents = False 'セルをいじると再びここが呼び出されるためイベントを無効に
If Cells(1, 2) <> a Then Cells(Cells(1, 2) + 3, 3) = ""
Cells(1, 2) = a
Columns(1).Clear
Cells(1, 1) = a
Cells(2, 1) = "ナンバー"
Cells(a + 3, 3) = "=sum(C3:C" & a + 2 & ")"
For b = 3 To a + 2
Cells(b, 1) = b - 2
Next
Application.EnableEvents = True 'イベント復活
End Sub
|
|