求各位大侠帮忙一个函数循环的公式，用VAB

TOMMY368

求各位大侠一个函数公式，如何用VBA来做，谢谢！
  求助：当B2填上数值后，C2=B2+C2原来的数值
  如：B2列原来的数值20元，C2原来的数值60元，当我再次从B2填上数值50元后，其C2的公式变成50元+60元=110元

maditate

用sub过程来做问题可能不大。用Function函数来解恐怕不易。

skyzxh

用激发宏：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
Target.Offset(, 1) = Target.Offset(, 1) + Target
End If
End Sub

TOMMY368

skyzxh 发表于 2017-4-21 22:15
用激发宏：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then

谢谢skyzxh兄弟的帮忙，另外再请教下，要B列整都是这个公式，以及H列、L列都是一样公式 ，要怎么做，谢谢

skyzxh

TOMMY368 发表于 2017-4-22 08:14
谢谢skyzxh兄弟的帮忙，另外再请教下，要B列整都是这个公式，以及H列、L列都是一样公式 ，要怎么做，谢谢

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column =2 Or  Target.Column =8 Or Target.Column =12 Then
Target.Offset(, 1) = Target.Offset(, 1) + Target
End If
End Sub

TOMMY368

skyzxh 发表于 2017-4-22 14:29
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column =2 Or  Target.Column =8 Or T ...

不好意思，我前幾天出差，再今天才回復