实现了B列某行单元格每次发生变化时，D列对应行总能把自身与B列对应行加起来，求帮忙

eutu · 发表于 2019-10-17 18:10

本帖最后由 eutu 于 2019-10-17 18:13 编辑

现在我是实现了B列某行单元格每次发生变化时，D列对应行总能把自身与B列对应行加起来我只会一行一行的实现，见我的代码

我想求助，能不能批量实现？请大侠帮忙

wodewan · 发表于 2019-10-17 18:41

根据你的代码改的： If Not Application.Intersect(Target, Columns("b")) Is Nothing Then Target.Offset(0, 2).Value = Target.Offset(0, 2).Value + Target.Value

liulang0808 · 发表于 2019-10-17 19:07

代码见截图内容。。。。。。

liangmutou01 · 发表于 2019-10-17 19:11

Private Sub Worksheet_Change(ByVal Target As Range)
  c = Target.Column
  If c <> 2 Then Exit Sub
  Application.ScreenUpdating = False
  Application.EnableEvents = False
  h = Target.Row
  Cells(h, 4) = Cells(h, 4) + Target
  Application.ScreenUpdating = True
  Application.EnableEvents = True
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 实现了B列某行单元格每次发生变化时，D列对应行总能把自身与B列对应行加起来，求帮忙

评分

评分

评分

最新热点 /1