求助优化一个宏【自动隐藏某一列的宏】

玥儿妈妈 · 发表于 2021-7-10 17:31

本帖最后由玥儿妈妈于 2021-7-12 13:32 编辑

感谢小哥哥，小姐姐帮忙优化一个宏按钮，非常非常感谢顺道感谢本帖子已经帮忙设置的老师，非常感谢企业微信截图_16260643678073.png

玥儿妈妈 · 发表于 2021-7-10 18:02

有没有人能帮忙指点一下呀，非常非常感谢。。。在线等

此用户被禁言 · 发表于 2021-7-10 18:04

A列的40-43行还有数据。那么现在这样的数据，最终打印出来是什么样的？

玥儿妈妈 · 发表于 2021-7-10 18:09

此用户被禁言发表于 2021-7-10 18:04
A列的40-43行还有数据。那么现在这样的数据，最终打印出来是什么样的？

对的，实际就是需求一个宏按钮，可以自动隐藏A14：A38之间没有数据的行，然后执行打印就可以了

此用户被禁言 · 发表于 2021-7-10 19:27

本帖最后由此用户被禁言于 2021-7-10 22:16 编辑

.................................

玥儿妈妈 · 发表于 2021-7-10 22:59

此用户被禁言发表于 2021-7-10 19:27
.................................

这样也可以用，非常非常感谢

玥儿妈妈 · 发表于 2021-7-12 12:30

此用户被禁言发表于 2021-7-10 19:27
.................................

还有一个小小的需求需要更改一下，麻烦帮忙设置一下，非常感谢。我已经重新修改了附件，非常感谢。

玥儿妈妈 · 发表于 2021-7-12 13:47

Dim clm As Range
Set clm = Range("H:H")
With clm.EntireColumn
.Hidden = Not .Hidden
End With

这个是隐藏H列，不知道对不对

此用户被禁言 · 发表于 2021-7-12 21:56

Columns("H:H").EntireColumn.Hidden = True

玥儿妈妈 · 发表于 2021-7-24 02:11

此用户被禁言发表于 2021-7-12 21:56
Columns("H:H").EntireColumn.Hidden = True

您好，感谢您帮忙设置的这个宏
现在有点小小的技术要求，就是为了打印的页面整齐

如果有信息的产品行数1-5，就隐藏【第19-38行】

如果有信息的产品行数6- 14，就隐藏【第28-38行】

如果有信息的产品行数14-25，就【不隐藏行数】

那样打印预览应该也是比较整齐的

请问这样的逻辑，宏要怎么修改呢，非常感谢

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

[求助] 求助优化一个宏【自动隐藏某一列的宏】