[已解决]在VBA中编辑乘法、加法

naive薇

求在VBA中编辑乘法公式
详情见附件

最佳答案

月排行榜 / 总排行榜

grf1973

2015-11-25 10:00

用公式有什么不妥吗？
在原代码上加了一小段。

1. Private Sub Worksheet_Change(ByVal T As Range)
   
2.     Dim D, rng
   
3.     If T.Row > 7 And T.Row < 14 And T.Column = 2 Then
   
4.         If T.Text = "" Then
   
5.             Application.EnableEvents = False
   
6.             T.Offset(, 1).Resize(1, 2) = ""
   
7.             Application.EnableEvents = True
   
8.         Else
   
9.             With Sheets("信息表")
   
10.                 Set D = .Range("A:A").Find(T.Text, , , 2)
    
11.                 rng = D.Offset(, 1).Resize(1, 2)
    
12.             End With
    
13.             Application.EnableEvents = False
    
14.             T.Offset(, 1).Resize(1, 2) = rng
    
15.             Application.EnableEvents = True
    
16.         End If
    
17.         '''''''''''''''''''新增部分
    
18.     ElseIf Not Intersect(T, [f8:j13]) Is Nothing Then
    
19.         Application.EnableEvents = False
    
20.         r = T.Row
    
21.         If Cells(r, "F") * Cells(r, "J") > 0 Then Cells(r, "H") = Cells(r, "F") * Cells(r, "J")      '单价=备注*单位
    
22.         Cells(r, "I") = Cells(r, "G") * Cells(r, "H")      '金额=数量*单价
    
23.         [I14] = Application.WorksheetFunction.Sum([I8:I13])
    
24.         Application.EnableEvents = True
    
25.     End If
    
26. End Sub
    

复制代码

跳转到最佳答案楼层

grf1973

用公式有什么不妥吗？
在原代码上加了一小段。

1. Private Sub Worksheet_Change(ByVal T As Range)
   
2.     Dim D, rng
   
3.     If T.Row > 7 And T.Row < 14 And T.Column = 2 Then
   
4.         If T.Text = "" Then
   
5.             Application.EnableEvents = False
   
6.             T.Offset(, 1).Resize(1, 2) = ""
   
7.             Application.EnableEvents = True
   
8.         Else
   
9.             With Sheets("信息表")
   
10.                 Set D = .Range("A:A").Find(T.Text, , , 2)
    
11.                 rng = D.Offset(, 1).Resize(1, 2)
    
12.             End With
    
13.             Application.EnableEvents = False
    
14.             T.Offset(, 1).Resize(1, 2) = rng
    
15.             Application.EnableEvents = True
    
16.         End If
    
17.         '''''''''''''''''''新增部分
    
18.     ElseIf Not Intersect(T, [f8:j13]) Is Nothing Then
    
19.         Application.EnableEvents = False
    
20.         r = T.Row
    
21.         If Cells(r, "F") * Cells(r, "J") > 0 Then Cells(r, "H") = Cells(r, "F") * Cells(r, "J")      '单价=备注*单位
    
22.         Cells(r, "I") = Cells(r, "G") * Cells(r, "H")      '金额=数量*单价
    
23.         [I14] = Application.WorksheetFunction.Sum([I8:I13])
    
24.         Application.EnableEvents = True
    
25.     End If
    
26. End Sub
    

复制代码

grf1973

请看附件。

naive薇

grf1973 发表于 2015-11-25 10:01
请看附件。

变量未定义啥情况

grf1973

那就定义一下，前面加个dim r

naive薇

grf1973 发表于 2015-11-25 10:01
请看附件。

在吧，麻烦你帮忙把你帮我上传的这个附件删掉好吧，

naive薇

grf1973 发表于 2015-11-25 10:01
请看附件。

在吧？帮忙删除下你上传的附件吧，谢谢，，，，，