按期间生成对账单

少如 · 发表于 2020-1-12 10:21

我想达到的效果是:
1, 按照G2单元格给出的对账期间生成各自的对账单,对账期间可任意变动.
2,点击【删除分表】按扭时,将所有自动生成的新表删除,以减少空间亦利于下次的自动生成新的对账期间表.
另外, A2单元格,显示“公司”时,生成所有公司的对账单; 若A2单元格显示了某个具体的公司名称,如〔北汽公司〕
那么,就只生北汽公司的对账单,其他单位则不必生成对账单,使其既有针对性,又可能增进速度.
谢谢老师们的帮助!

期间对账单.zip (885.04 KB, 下载次数: 32)

学良 · 发表于 2020-1-12 11:28

只给你做了点击【删除分表】的功能,
其他要求, 等高师们出手吧!

期间对账单.zip (280.45 KB, 下载次数: 15)

aman1516 · 发表于 2020-1-12 15:02

即是作为模板，无谓为了表格好看而增加字符串处理：
将A2“收货单位：公司”合并单元格拆分开来，A2为“收货单位：”，B2单独为"公司"
将G2“对账期间：2019年1月1日-2019年3月31日”合并单元格拆分开来，起始日期和结束日期放单独单元格，以便数据直接调用，剩下的无非就是按条件拆分工作表，论坛一搜一大把

3190496160 · 发表于 2020-1-12 21:19

其实也就是个拆分问题，2楼的建议非常中肯，也非常正确，楼主先按2楼的建议调整表格再说吧

answer6141 · 发表于 2020-1-12 21:39

好面熟啊这个对账单

micch · 发表于 2020-1-12 21:40

真是个辛苦活啊，看着这么大数据量就眼晕，这得空闲了才写的完了

answer6141 · 发表于 2020-1-12 21:52

竟然被征用了哈哈，也没枉费我一番辛苦，但你把timer去掉啊，测试运行速度用的亲

answer6141 · 发表于 2020-1-12 21:54

for each sht in worksheets
if sht.index >3 then sht.delete
next

复制代码

answer6141 · 发表于 2020-1-12 22:04

'写入对账期间
.Range("g2") = "对账期间：" & Format(.Range("a5"), "yyyy年mm月dd日") & "-" & Format(.Range("a" & d1(brr(j)) + 4), "yyyy年mm月dd日")
这行是根据查出来的数据写进去的
笨办法就是你把这行删了，然后在遍历一下单元格A:A不符合日期的整行删掉就好了呗

复制代码

少如 · 发表于 2020-1-13 09:15

aman1516 发表于 2020-1-12 15:02
即是作为模板，无谓为了表格好看而增加字符串处理：
将A2“收货单位：公司”合并单元格拆分开来，A2为“收 ...

按您的要求, 把表重新作了调整, 请您出手帮写一下代码吧, 谢谢了!!

期间对账单.zip (273.94 KB, 下载次数: 8)

		自动登录	找回密码
密码			免费注册

[求助] 按期间生成对账单

评分

评分

最新热点 /1