pengxuanlan的专栏

EXCEL自定义排序最多只能有255个值,超过了就不能用自定义序列了,使用以下方法 求助excelhome论坛得出的答案 Sub 自定义排序() Application.ScreenUpdating = False '排序标准 Dim d As Object Set d = CreateObject("Scripting.Dictionary") Dim rng, i% rng = Shee...

定义自动检测版本文件网页内容直接写版本号就行了， 不需要其它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...

 由于公司需要，需要变更IPOS系统的友好终端组和IPOS友好终端组的调货方式  由于此操作非常麻烦 ，工作非常繁琐，特写此模板，批量更新，一键完成 excel 表格式  共2个表格 目前是每家店铺有2个友好终端组 1、所有终端   权限 为  横调 2、所属友好终端组 权限为 库存查询和横调 上代码 首先把三个表清空 ipos_yhzdz   友好终端组的主表 ipo...