ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 Office知识技巧免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 401|回复: 20

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

[复制链接]

TA的精华主题

TA的得分主题

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

TA的精华主题

TA的得分主题

发表于 2020-1-12 11:28 | 显示全部楼层
只给你做了点击【删除分表】的功能,
其他要求, 等高师们出手吧! 期间对账单.zip (280.45 KB, 下载次数: 11)

TA的精华主题

TA的得分主题

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

评分

参与人数 1鲜花 +2 收起 理由
少如 + 2 感谢帮助

查看全部评分

TA的精华主题

TA的得分主题

发表于 2020-1-12 21:19 | 显示全部楼层
其实也就是个拆分问题,2楼的建议非常中肯,也非常正确,楼主先按2楼的建议调整表格再说吧

TA的精华主题

TA的得分主题

发表于 2020-1-12 21:39 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2020-1-12 21:40 | 显示全部楼层
真是个辛苦活啊,看着这么大数据量就眼晕,这得空闲了才写的完了

TA的精华主题

TA的得分主题

发表于 2020-1-12 21:52 | 显示全部楼层
竟然被征用了哈哈,也没枉费我一番辛苦,但你把timer去掉啊,测试运行速度用的亲

TA的精华主题

TA的得分主题

发表于 2020-1-12 21:54 | 显示全部楼层
  1. for each sht in worksheets
  2.    if sht.index >3 then sht.delete
  3. next
复制代码

TA的精华主题

TA的得分主题

发表于 2020-1-12 22:04 | 显示全部楼层
  1. '写入对账期间
  2.             .Range("g2") = "对账期间:" & Format(.Range("a5"), "yyyy年mm月dd日") & "-" & Format(.Range("a" & d1(brr(j)) + 4), "yyyy年mm月dd日")
  3. 这行是根据查出来的数据写进去的

  4. 笨办法就是你把这行删了,然后在遍历一下单元格A:A不符合日期的整行删掉就好了呗
复制代码


评分

参与人数 1鲜花 +2 收起 理由
少如 + 2 感谢帮助

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-1-13 09:15 | 显示全部楼层
aman1516 发表于 2020-1-12 15:02
即是作为模板,无谓为了表格好看而增加字符串处理:
将A2“收货单位:公司”合并单元格拆分开来,A2为“收 ...

按您的要求, 把表重新作了调整, 请您出手帮写一下代码吧,   谢谢了!! 期间对账单.zip (273.94 KB, 下载次数: 7)
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,高效办公专列,每天发车

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2020-5-25 10:52 , Processed in 0.101022 second(s), 22 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表