求和

zhang880113 · 发表于 2016-4-8 19:47

本帖最后由 zhang880113 于 2016-4-11 15:26 编辑

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("u9") = Range("n9")- Application.Sum(Range("o9:t9"))
End Sub
想把上面的代码用到表格中的第9行以下的所有部份，请老师们修改下，拜托了！

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 9 Then Exit Sub
If Target.Column <> 15 And Target.Column <> 16 And Target.Column <> 17 And Target.Column <> 18 And Target.Column <> 19 And Target.Column <> 20 Then Exit Sub
r = Target.Row
Cells(r, 21) = Cells(r, 14) - Application.WorksheetFunction.Sum(Range("o" & r & ":" & "t" & r))
End Sub
已解决，谢谢大家！

zhang880113 · 发表于 2016-4-8 20:06

各位大侠帮帮忙

zhang880113 · 发表于 2016-4-8 20:21

有没有人帮下忙，谢谢了！

zhang880113 · 发表于 2016-4-8 20:32

有没有人帮下忙，谢谢了！

dyp1610 · 发表于 2016-4-8 20:48

n=target.row
Range("u" & n) = Range("n" & n)- Application.Sum(Range("o"& n":t"& n))

zhang880113 · 发表于 2016-4-8 21:01

dyp1610 发表于 2016-4-8 20:48
n=target.row
Range("u" & n) = Range("n" & n)- Application.Sum(Range("o"& n":t"& n))

老师你好，在n行中输入数据后回车后range("u"&n)的数据不会变化，必须重新单击n行中的任意单元格range("u"&n)的值才会变化。

dyp1610 · 发表于 2016-4-9 10:55

改成chang事件试一试

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

[已解决] 求和