【excel】一个从表名(sheet)中提取日期的思路

  日常搬砖中经常有些按月编制的excel表格,我们一般将这个表(sheet)命名为【XXX表YYYY.MM】或者直接使用日期【YYYY.MM】,此时,如果表格中有与sheet名称相关的日期,我们可以构造一个公式,直接生成日期。

- 阅读全文 -

【VBA】一键打印当前目录下所有.xlsx文档

这两天有个批量打印报表的需求,于是简单撸了几行代码。使用说明:1.将当前xlsm文件和需要打印的文件放入同一文件夹中,运行代码即可打印目录下的所有xlsx文件中的所有表。其他类型文件没有测试,应该修改一下代码也能打。2.DO WHILE循环用于依次打开文件,FOR循环用于以此打开文件中的表。3.直接使用时,在打印前需要自行设置好每张表的打印格式,不然打出来有可能乱作一团;也可以在FOR循环中加入页

- 阅读全文 -

【VBA】excel一键打印前四张表

Option Explicit Sub 打印报表() '一键打印4张报表,打印源为当前文档前4张表,打印格式:前3张纵向,第四张横向,页边距左右0.5,上下默认,左右剧中,缩放到一页。 If MsgBox("是否一键打印4张表?", vbYesNo + vbDefaultButton1 + vbInformation, "打印提示") = vbNo Th

- 阅读全文 -

【VBA】一段填表代码

Dim i As Integer Dim j As Integer Dim k As Integer Sheet3.Range("C4:C43").ClearContents '清空C4:C43区域 i = 2 Do While Sheet7.Cells(i, 3) <> "" i = i + 1 Loop j = 2

- 阅读全文 -