Excel VBA 小天地

摘要： 很长一段时间没处理word合并单元格，又忘记了采取忽略错误的方式测试出相应单元格的行列坐标这种方式。真是浪费时间。以后再也不想为此在深夜熬命。 今晚算是和它杠上了，很想弄清楚合并单元格之后行列坐标重新分配的机制。于是做了一点测试。插入一个11行10列的表格，然后合并其中的部分，利用代码插入新的坐标。 阅读全文

摘要： 之前没有理解好，还以为是学习笔记有谬误。 阅读全文

摘要： 刚开始能把代码敲得行云流水的时候，写代码是种乐趣。有了功利目的之后，重复的工作写多几次，厌烦的情绪四处弥漫。 去年八月份正好写了一回，还能支持控件，在此备忘。 阅读全文

摘要： Public Sub 汇总表转信息表() '日期 '作者 Next 'QQ 84857038 Dim Wb, Sht, msht, NewSht, rng Set Wb = Application.ThisWorkbook Set Sht = Wb.Worksheets("Sheet2") Set msht ... 阅读全文

摘要： 花了一写时间做了一个Excel宏工作簿，可以根据考场人数、座位排列和考生名单 生成《考试座位表》《考生去向表》《考试通知单》，想要的前往了解哦： https://item.taobao.com/item.htm?id=589268244785 1、考场设置表。 （1）考场人数有两种设置方法，方法一是 阅读全文

摘要： 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... 阅读全文

摘要： Sub 替换下划线() Selection.HomeKey wdStory Selection.Find.ClearFormatting Selection.Find.Font.Underline = wdUnderlineThick Selection.Find.Replacement.ClearFormatting 'Selection.Find.Re... 阅读全文

摘要： 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... 阅读全文

摘要： '经常遇见天眼查表格文件特别大，原因是使用了整个表格，虽然无法解释为什么，但是经过验证以下代码是凑效的 Private Sub DeleteUselessRegion(ByVal sht As Worksheet) With sht If Application.WorksheetFunction.CountA(.Cells) > 0 Then E... 阅读全文

摘要： 1、公式手动重算问题 为避免代码执行过程中引发公式自动重算，拖慢运行速度，在代码中设置了公式手动重算，并计划在代码执行结束前恢复。如果在代码执行过程中捕获错误就直接退出，而没有执行到恢复公式自动重算，应用程序一直处于公式手动重算状态，造成很多麻烦。 改进办法捕获错误之后使用改为goto 标签 语句， 阅读全文