求一个只读当月数据的宏，谢谢！

gzclc

有请大神帮忙，想通过宏一键读取《数据库》中日期为当月的所有工单号填写在B3：B列，并对应填写信息（结果如下），谢谢！

无关岁月

读取当月数据.7z (18.32 KB, 下载次数: 6)

2024-3-24 09:37 上传

点击文件名下载附件

ykcbf1100

用字典记录列号

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.3.24
   
2.     Dim arr, d
   
3.     Application.ScreenUpdating = False
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     Set Sh = ThisWorkbook.Sheets("汇总")
   
6.     zrr = Sh.UsedRange
   
7.     For j = 2 To UBound(zrr, 2)
   
8.         s = zrr(2, j)
   
9.         d(s) = j
   
10.     Next
    
11.     arr = Sheets("数据库").UsedRange
    
12.     ReDim brr(1 To UBound(arr), 1 To UBound(zrr, 2))
    
13.     yf = Month(Date)
    
14.     For i = 7 To UBound(arr)
    
15.         If Val(arr(i, 1)) Then
    
16.             If Month(arr(i, 12)) = yf Then
    
17.                 m = m + 1
    
18.                 brr(m, 1) = m
    
19.                 For j = 2 To UBound(arr, 2)
    
20.                     s = arr(6, j)
    
21.                     If d.exists(s) Then
    
22.                         brr(m, d(s)) = arr(i, j)
    
23.                     End If
    
24.                 Next
    
25.             End If
    
26.         End If
    
27.     Next
    
28.     With Sh
    
29.        .UsedRange.Offset(2) = ""
    
30.        .[a3].Resize(m, UBound(zrr, 2)) = brr
    
31.     End With
    
32.     Set d = Nothing
    
33.     Application.ScreenUpdating = True
    
34.     MsgBox "OK！"
    
35. End Sub
    
36. 
    

复制代码

gzclc

无关岁月 发表于 2024-3-24 09:38

无关岁月大神，学习消化中，测试时如果判断的日期放在55列（原代码为12列），其他不变，结果出现运行时错误“13”，类型不匹配，并指向 If Month(arr(i, 55)) = Month(Now) Then ，请教如何修改？

gzclc

ykcbf1100 发表于 2024-3-24 10:01
参与一下。。。

谢谢帮助，学习消化中。

无关岁月

gzclc 发表于 2024-3-24 10:40
无关岁月大神，学习消化中，测试时如果判断的日期放在55列（原代码为12列），其他不变，结果出现运行时错 ...

pos数组那里的12改没有

gzclc

无关岁月 发表于 2024-3-24 10:50
pos数组那里的12改没有

一同改了的。

无关岁月

改成3，因为你增加一行列号，所以要从第3行开始

gzclc

无关岁月 发表于 2024-3-24 11:05
改成3，因为你增加一行列号，所以要从第3行开始

出现下界越标。