[已解决]如何查找本月员工生日的名单

gpfqf

原是一个星期的，如何改成一个月

最佳答案

月排行榜 / 总排行榜

gufengaoyue

2015-9-9 10:56

供参考

生日2.rar (18.87 KB, 下载次数: 23)

2015-9-9 12:10 上传

点击文件名下载附件

跳转到最佳答案楼层

gufengaoyue

供参考

生日2.rar (18.87 KB, 下载次数: 23)

2015-9-9 12:10 上传

点击文件名下载附件

yorkchenshunan

1. Sub yueshengri()
   
2. Dim dic, ar1, r%
   
3. Set dic = CreateObject("scripting.dictionary")
   
4. ar1 = Sheets(2).Range("a2", Sheets(2).Range("a2").End(xlDown).End(xlToRight))
   
5. For r = 1 To UBound(ar1)
   
6.     dic(Month(ar1(r, 3))) = dic(Month(ar1(r, 3))) & "," & ar1(r, 1)
   
7. Next r
   
8. Sheets(1).[b1] = dic(Month(Date))
   
9. End Sub

复制代码