[[20060517163530]] 『セル内の足し算』(syotaka) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『セル内の足し算』(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


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


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


[[20060413101749]]

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.