インプットボックスについて

質問

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
I = InputBox("数量を入れてください")
Target = Target + 1
End Sub

上記の様にインプットボックスを使って足し算をしていくのですがセルの値が現状では足された合計数が表示されるのですが、これを『=足した数＋足した数』と足していく数が残るようにしたいのですがどうしたらいいのでしょうか。

回答No.1

merlionXX · ベストアンサー

1.Target = Target + 1　となって１を足してますが、I（アイ）の間違いですね？
2.足していく数がどこに残るようにしたいのですか？

とりあえず、J列に記録するようにしてみました。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
i = InputBox("数量を入れてください")
Target = Target + i
n = Cells(Rows.Count, "J").End(xlUp).Row
n = IIf(Cells(n, "J") = "", n, n + 1)
Cells(n, "J") = i
Cancel = True
End Sub

回答No.2

hana-hana3

こんな感じでしょうか？

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i
i = InputBox("数量を入れてください")
If IsNumeric(i) Then
Target.Formula = "=" & Target.Value & "+" & i
Else
Cancel = True
End If
End Sub

お礼

お返事遅くなりました。
ありがとうございました。