【关于本公众号】了解一下，欢迎关注，谢谢！
快速浏览
实用案例
|日期控件||简单的收发存||收费管理系(Access改进版)|
|中医诊所收费系统(Excel版)||中医诊所收费系统(Access版)||银行对账单自动勾对|
收费使用项目
|财务管理系统||工资薪金和年终奖个税筹划||新税法下工资表模版|
内容提要
Application.Match函数 利用字典代替VLOOKUP函数
数十万条数据查询匹配：VLOOKUP太慢，数组字典来提速，局部更新更高效！
Function myMatch(arr(), rowField, colField, Optional matchCol As Long = 1)On Error Resume NextDim row(), col()Dim iRow As Long, iCol As Longrow = Application.Index(arr, 0, matchCol)col = Application.Index(arr, 1)iRow = Application.Match(rowField, row, 0)iCol = Application.Match(colField, col, 0)myMatch = arr(iRow, iCol)End Function
For i = 2 To lRowdic(arr(i, 1)) = Array(arr(i, 2), arr(i, 6), arr(i, 9), arr(i, 11))Next
完整代码详见当天另一条推文！
后记
1、在查询表的Change事件中，还写了根据A列改变，更新数据的代码，使用了myMatch自定义函数，速度也很慢，可改为使用字典，时间关系，我们不搞了。
2、职工档案数据是我模拟的，身份证号码承便搞了18位，原来准备生成一些符合规则的身份证号的，也是来不及搞了，以后再说。
好，今天就到这里，我们下期再会！
| 安利小店 安利的牙膏非常不错，用了以后就不想再用其他的了；洗洁精、洗衣液也是日常必备，用过都说好！ | |
| 合谷医疗 合谷医疗专攻各种疑难杂症，尤其擅长抑郁症、焦虑失眠、儿童神经发育异常、多动症、自闭孤独症、腰颈椎疾病治疗，可谓神乎其技！体验过的直呼早点来就好了！ |
喜欢就点个赞、点在看、留言评论、分享一下呗！感谢支持！
案例文件分享说明：
案例文件可免费分享，但需符合以下要求：
请关注、点赞、点在看、点...、留言，方便的话分享一下就完美啦！如果不便走上面的“流程”，请打赏，万分感谢！
请添加上方我的合谷医疗企业微信，案例文件通过微信发送。如有定制需求，亦可通过微信联系。
Excel问题，请在文章下面留言讨论！或者加入我的付费交流群提问！
