2018年7月20日

VBA字典做数据有效性
摘要： Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 26 And Range("f" & Target.Row) = "柏广清" Then Set d = CreateObject("scrip 阅读全文
posted @ 2018-07-20 18:39 上山打老虎下山采蘑菇 阅读(632) 评论(0) 推荐(0) 编辑
和Excel函数date同样功能的VBA函数DateSerial用法
摘要： Sub 日期别()On Error Resume Nextlastrow = Sheets("运营日报").Range("a1048576").End(xlUp).Rowlastday = VBA.Day(Sheets("运营日报").Range("a" & lastrow)) + 1lastcol 阅读全文
posted @ 2018-07-20 18:37 上山打老虎下山采蘑菇 阅读(5105) 评论(0) 推荐(0) 编辑
字典配合split分裂填充
摘要： Sub 配送日报()lastrow = Sheets("运营日报").Range("a1048576").End(xlUp).Rowarr = Sheets("运营日报").Range("a1:ab" & lastrow)Set d = CreateObject("scripting.diction 阅读全文
posted @ 2018-07-20 18:34 上山打老虎下山采蘑菇 阅读(221) 评论(0) 推荐(0) 编辑

导航