[已解决]VBA错在哪里这个乘积计算

laoau138

VBA错在哪里这个乘积计算

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-19 21:39

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim i As Integer
   
3. Dim rng As Range
   
4. i = Target.Row
   
5. Set rng = Cells(i, 1).Resize(, 2)
   
6. If rng(1, 1) > 0 And rng(1, 2) > 0 Then
   
7.   Cells(i, 3) = Application.sum(rng)
   
8. End If
   
9. End Sub

复制代码

跳转到最佳答案楼层

327718098

看看

大灰狼1976

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim i As Integer
   
3. Dim rng As Range
   
4. i = Target.Row
   
5. Set rng = Cells(i, 1).Resize(, 2)
   
6. If rng(1, 1) > 0 And rng(1, 2) > 0 Then
   
7.   Cells(i, 3) = Application.sum(rng)
   
8. End If
   
9. End Sub

复制代码