[[20060517163530]]　『セル内の足し算』（syotaka）　ページの最後に飛ぶ

『セル内の足し算』（syotaka）

 セル内の数に新たな数を打ち込むと、前の数と足し算された数が出るようにできるのですか。

 この質問も不思議なくらい多いですね。下記を参考に。
（純丸）(o^-')b
[[20041020105248]] 『同一セル内での計算と内訳表示』（tasuketeman）

シートモジュールに

 　
Private Sub Worksheet_Change(ByVal Target As Range)
myNum = Target.Value
myRow = Target.Row
myCol = Target.Column
chg = 2
test
End Sub
 　
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    myNum = Target.Value
    chg = 1
    test
End Sub
 　
標準モジュールに
 　
Public chg
Public myNum
Public myRow, myCol
 　
Sub test()
Static myVal
If chg = 1 Then
   myVal = myNum
End If
If chg = 2 Then
   Application.EnableEvents = False
   Cells(myRow, myCol).Value = myNum + myVal
   Application.EnableEvents = True
End If
End Sub

すみません。
初めてレスを付けてみたのですが（上記）、
改行がされずにＵＰされてしまいました。

 整形しました＾＾
(ROUGE)※おせっかいごめんなさいね。

[[20060413101749]]

コメント返信：

[ 一覧(最新更新順) ]

[[20060517163530]] 『セル内の足し算』（syotaka） ページの最後に飛ぶ

[[20060517163530]]　『セル内の足し算』（syotaka）　ページの最後に飛ぶ