如何用VBA统计和值

sampsonpon

如何用VBA统计和值？具体如下图：

ykcbf1100

没看明白。需求说明和公式都不好懂。

sampsonpon

ykcbf1100 发表于 2024-8-29 16:36
没看明白。需求说明和公式都不好懂。

也就是在HH2:IL26区域每个单元格统计符合以下条件的"2025.xlsb"中S列总和
”2024.xlsb“与"2025.xlsb"是在同一路径下
1、此表中B列对应"2025.xlsb"里工作表"list"的F列
2、此表中第一行日期对应"2025.xlsb"里工作表"list"的G列
3、且"2025.xlsb"里工作表"list"的D列为"TX"

ykcbf1100

sampsonpon 发表于 2024-8-29 18:05
也就是在HH2:IL26区域每个单元格统计符合以下条件的"2025.xlsb"中S列总和
”2024.xlsb“与"2025.xlsb"是 ...

差不多懂了。

其实做起来不难，就是要搞懂难。
附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.8.29
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     p = ThisWorkbook.Path & ""
   
5.     Set sh = ThisWorkbook.Sheets("Individual")
   
6.     f = p & "2025.xlsb"
   
7.     Set wb = Workbooks.Open(f, 0)
   
8.     With wb.Sheets("list")
   
9.         r = .Cells(Rows.Count, 1).End(3).Row
   
10.         arr = .[a1].Resize(r, 23)
    
11.     End With
    
12.     wb.Close 0
    
13.     For i = 2 To UBound(arr)
    
14.         If arr(i, 4) = "TX" Then
    
15.             s = CStr(arr(i, 6)) & "|" & CDate(arr(i, 7))
    
16.             d(s) = d(s) + Val(arr(i, 19))
    
17.         End If
    
18.     Next
    
19.     With sh
    
20.         r = .Cells(Rows.Count, 2).End(3).Row
    
21.         For i = 2 To r
    
22.             For j = 216 To 246
    
23.                 s = CStr(.Cells(i, 2).Value) & "|" & CDate(.Cells(1, j).Value)
    
24.                 If d.exists(s) Then
    
25.                     .Cells(i, j).Value = d(s)
    
26.                 End If
    
27.             Next
    
28.         Next
    
29.         ActiveWindow.DisplayZeros = False
    
30.     End With
    
31.     Set d = Nothing
    
32.     Application.ScreenUpdating = True
    
33.     MsgBox "OK！"
    
34. End Sub
    
35. 
    

复制代码

sampsonpon

ykcbf1100 发表于 2024-8-29 21:02
参与一下。。。

老师，有两个问题，请您帮忙改一下：

1、如果区域是从HH270开始呢？


2、如果在运行打开表时有如下提示，怎么忽略提示？

ykcbf1100

sampsonpon 发表于 2024-8-29 22:19
老师，有两个问题，请您帮忙改一下：

1、如果区域是从HH270开始呢？

如果从269行开始，那就这样改一下。

第2点，我这里没出现此情况。

sampsonpon

ykcbf1100 发表于 2024-8-30 07:46
如果从269行开始，那就这样改一下。

第2点，我这里没出现此情况。

第二点附件我给处理了一次，实际是有的。如何忽略或者默认是但不显示提示框

ykcbf1100

sampsonpon 发表于 2024-8-30 08:44
第二点附件我给处理了一次，实际是有的。如何忽略或者默认是但不显示提示框

原附件，你再试一下。

sampsonpon

ykcbf1100 发表于 2024-8-30 08:48
原附件，你再试一下。

老师，完全一个类似的东西，套您的代码还是不能得到结果，能给看看吗