怎么在满足条件情况，计算总金额

透明世界1987

自动汇算金额.zip (284.11 KB, 下载次数: 6)

2023-3-4 11:04 上传

点击文件名下载附件

chxw68

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Column = 6 Then
   
3.         If Target.Offset(0, -2) = "无机房控制柜" Then
   
4.             r = Cells(Rows.Count, 4).End(xlUp).Row
   
5.             arr = Range("d2:f" & r)
   
6.             s = Target.Value
   
7.             For i = 1 To UBound(arr)
   
8.                 If InStr(arr(i, 1), "安全部件") <> 0 Or InStr(arr(i, 1), "标准件") <> 0 Or InStr(arr(i, 1), "线系统") <> 0 Then
   
9.                     s = s + arr(i, 3)
   
10.                 End If
    
11.             Next
    
12.             Target.Offset(0, 11) = s
    
13.         End If
    
14.     End If
    
15. End Sub
    

复制代码

chxw68

详见附件。

zxsea_7426

F列输入任意数字，执行代码

透明世界1987

chxw68 发表于 2023-3-4 11:42
详见附件。

非常感谢大神已送上小花。
在现有基础上能否加个条件，A列设备号相同的情况下  执行上面您提供的代码；实际可能有几百行数据 会有很多设备号

咩咩咩2012

看看，留个足迹