ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 132|回复: 11

[求助] 求助:根据需求打印目标数据(并隐藏多余空行)

[复制链接]

TA的精华主题

TA的得分主题

发表于 2024-11-14 15:41 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
求助:
1、输入T5起始序号、U5结束序号(例如5678),输入Q列第二行开始5678,根据Q列的序号,利用VLOOKUP函数查找数据。
2、利用S1、S2单元格判断无数据的行,并隐藏多余行,然后打印。
3、单页可能最多会有17行数据,我只做了17行,麻烦大佬帮忙优化一下多页吧。

里面有一点代码。烦请大佬帮帮忙

求助:根据需求打印目标数据(并隐藏多余空行).zip

36.07 KB, 下载次数: 4

TA的精华主题

TA的得分主题

发表于 2024-11-14 16:15 | 显示全部楼层
既然想用代码了,就直接用代码获取数据然后再根据数据行数来打印不就行了吗

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-11-14 16:26 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 prince939 于 2024-11-14 16:28 编辑
3190496160 发表于 2024-11-14 16:15
既然想用代码了,就直接用代码获取数据然后再根据数据行数来打印不就行了吗

数据源表和我要打印的顺序和格式也不一样,代码获取数据我写不出来。打印的表 还可能随时变格式

TA的精华主题

TA的得分主题

发表于 2024-11-14 16:38 | 显示全部楼层
Private Sub 打印单据_Click()
Dim a As String ' 声明变量a,用于存储字符串
If Cells(5, 20).Value > Cells(5, 21).Value Then MsgBox ("初始页必须小于结束页!"): Exit Sub
For i = Cells(5, 20).Value To Cells(5, 21).Value Step 17 '起始序号到结束序号
    [Q2].Resize(10000, 1) = "" '
    m = 1
    For j = i To i + 16
        If j <= Cells(5, 21).Value Then
            m = m + 1
            Cells(m, 17) = j
        End If
    Next j
    Rows("2:18").EntireRow.Hidden = False ' 取消隐藏选中的行
    a = Cells(Rows.Count, 17).End(xlUp).Row
    Rows(a + 1 & ":18").EntireRow.Hidden = True ' 隐藏选中的行
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False ' 打印当前页
Next i
End Sub

TA的精华主题

TA的得分主题

发表于 2024-11-14 16:40 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2024-11-14 16:42 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
以此附件为准
求助:根据需求打印目标数据(并隐藏多余空行).rar (25.69 KB, 下载次数: 7)

TA的精华主题

TA的得分主题

发表于 2024-11-14 16:46 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
prince939 发表于 2024-11-14 16:26
数据源表和我要打印的顺序和格式也不一样,代码获取数据我写不出来。打印的表 还可能随时变格式

要一劳永逸也不是不可以,打印表的列字段跟数据源完全一致,就可以根据打印表第一行设置的列字段获取相应列的数据过来就行了

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-11-14 16:58 | 显示全部楼层
3190496160 发表于 2024-11-14 16:38
Private Sub 打印单据_Click()
Dim a As String ' 声明变量a,用于存储字符串
If Cells(5, 20).Value > C ...

谢谢大佬,谢谢您

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-11-14 16:59 | 显示全部楼层
3190496160 发表于 2024-11-14 16:46
要一劳永逸也不是不可以,打印表的列字段跟数据源完全一致,就可以根据打印表第一行设置的列字段获取相应 ...

我也想过,但是我确实写不出来,而且我就怕会变格式。谢谢大佬

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-11-14 17:11 | 显示全部楼层
本帖最后由 prince939 于 2024-11-14 17:20 编辑

大佬还能帮忙加一句,同时在文件所在目录下导出一个命名为“XXX信息”的EXCEL吗,弹窗是否输出EXCEL,是就输出,否就不输出?
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-11-23 17:34 , Processed in 0.039307 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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