VBA
小ih熊
这个作者很懒,什么都没留下…
展开
-
VBA自定义排序
EXCEL自定义排序最多只能有255个值,超过了就不能用自定义序列了,使用以下方法求助excelhome论坛得出的答案Sub 自定义排序()Application.ScreenUpdating = False'排序标准Dim d As ObjectSet d = CreateObject("Scripting.Dictionary")Dim rng, i%rng = Shee...原创 2019-10-22 09:04:01 · 1179 阅读 · 0 评论 -
VBA使用网页判断版本
定义自动检测版本文件网页内容直接写版本号就行了, 不需要其它HTTP代码Sub ddd() Dim http, Pols, Arr, i, u dqbb = "配货单发出工具:1.1" Set http = CreateObject("Microsoft.XMLHTTP") u = "http://192.168.1.252/www/excel.html" http.Open "PO...原创 2017-10-14 10:37:32 · 647 阅读 · 0 评论 -
IPOS友好终端组批量修改
由于公司需要,需要变更IPOS系统的友好终端组和IPOS友好终端组的调货方式 由于此操作非常麻烦 ,工作非常繁琐,特写此模板,批量更新,一键完成excel 表格式 共2个表格目前是每家店铺有2个友好终端组1、所有终端 权限 为 横调2、所属友好终端组 权限为 库存查询和横调上代码首先把三个表清空ipos_yhzdz 友好终端组的主表ipo...原创 2018-08-30 17:36:21 · 478 阅读 · 0 评论