03 2019 档案

20190321xlVBA_明细信息表汇总成数据表
摘要：刚开始能把代码敲得行云流水的时候，写代码是种乐趣。有了功利目的之后，重复的工作写多几次，厌烦的情绪四处弥漫。 去年八月份正好写了一回，还能支持控件，在此备忘。 阅读全文
posted @ 2019-03-21 22:49 wangway 阅读(540) 评论(0) 推荐(0)
20190321xlVBA_汇总表按模板生成明细表
摘要：Public Sub 汇总表转信息表() '日期 '作者 Next 'QQ 84857038 Dim Wb, Sht, msht, NewSht, rng Set Wb = Application.ThisWorkbook Set Sht = Wb.Worksheets("Sheet2") Set msht ... 阅读全文
posted @ 2019-03-21 16:48 wangway 阅读(535) 评论(0) 推荐(0)
20190320xlVBA_考场座位设置
摘要：花了一写时间做了一个Excel宏工作簿，可以根据考场人数、座位排列和考生名单 生成《考试座位表》《考生去向表》《考试通知单》，想要的前往了解哦： https://item.taobao.com/item.htm?id=589268244785 1、考场设置表。 （1）考场人数有两种设置方法，方法一是 阅读全文
posted @ 2019-03-20 22:03 wangway 阅读(804) 评论(0) 推荐(0)
20190319xlVBA_根据考勤数据统计缺勤缺考数据
摘要：Sub SubtotalPickFile() Dim StartTime As Variant Dim UsedTime As Variant StartTime = VBA.Timer Dim firstday As Date, lastday As Date Dim Wb As Workbook Dim Sht As Work... 阅读全文
posted @ 2019-03-20 08:22 wangway 阅读(467) 评论(0) 推荐(0)
20190318wdVBA_替换下划线
摘要：Sub 替换下划线() Selection.HomeKey wdStory Selection.Find.ClearFormatting Selection.Find.Font.Underline = wdUnderlineThick Selection.Find.Replacement.ClearFormatting 'Selection.Find.Re... 阅读全文
posted @ 2019-03-18 14:44 wangway 阅读(455) 评论(0) 推荐(0)
20190316xlVba_设置行高的改进方案
摘要：Public Sub AutoSetRowHeight(ByVal sht As Worksheet, Optional RowsInOnePage As Long) Dim BreakRow As Range '水平分页符位置 Dim SumHeight As Double '累计首页行高 Dim AverageHeight As Double Dim Rest... 阅读全文
posted @ 2019-03-16 18:10 wangway 阅读(531) 评论(0) 推荐(0)
20190315xlVBA_删除无用的区域
摘要：'经常遇见天眼查表格文件特别大，原因是使用了整个表格，虽然无法解释为什么，但是经过验证以下代码是凑效的 Private Sub DeleteUselessRegion(ByVal sht As Worksheet) With sht If Application.WorksheetFunction.CountA(.Cells) > 0 Then E... 阅读全文
posted @ 2019-03-15 20:52 wangway 阅读(473) 评论(0) 推荐(0)
2019ExcelVBA一些自己掉进过的坑
摘要：1、公式手动重算问题 为避免代码执行过程中引发公式自动重算，拖慢运行速度，在代码中设置了公式手动重算，并计划在代码执行结束前恢复。如果在代码执行过程中捕获错误就直接退出，而没有执行到恢复公式自动重算，应用程序一直处于公式手动重算状态，造成很多麻烦。 改进办法捕获错误之后使用改为goto 标签 语句， 阅读全文
posted @ 2019-03-14 14:16 wangway 阅读(1665) 评论(0) 推荐(0)
学习笔记20190309
摘要：from selenium import webdriver from selenium.webdriver.common.by import By from selenium.common.exceptions import NoSuchElementException import time ###################常量设置 TIME_FOR_LOGIN=60#########... 阅读全文
posted @ 2019-03-08 14:39 wangway 阅读(172) 评论(0) 推荐(0)
学习笔记
摘要：from selenium import webdriver from selenium.webdriver.common.by import By import time TIME_FOR_LOGIN=30 TIME_FOR_READING=20#70秒阅读完一篇文章 TIME_FOR_VEDIO=300#5分钟看一个视频 TIME_FOR_AJAX=5 PAPER_START=6 ... 阅读全文
posted @ 2019-03-06 12:15 wangway 阅读(219) 评论(0) 推荐(0)