显示与隐藏问题

liulang0808 · 发表于 2024-4-2 20:09

变通了一下，供参考

jx928867128 · 发表于 2024-4-2 20:20

liulang0808 发表于 2024-4-2 20:09
Sub 矩形2_Click()
Application.ScreenUpdating = False
kc = "英语|德育|语文|政治|历史|地理| ...

感谢版主的多次帮忙，太强大了，感谢感谢

jx928867128 · 发表于 2024-4-2 20:26

本帖最后由 jx928867128 于 2024-4-2 20:34 编辑

liulang0808 发表于 2024-4-2 20:09
变通了一下，供参考

谢谢版本的帮忙，我隐藏课程后再复制课表到新的表格中去粘贴时发现课程名还在，我隐藏课程名是因为需要打印只显示老师名字的总课表

jx928867128 · 发表于 2024-4-2 20:33

liulang0808 发表于 2024-4-2 20:09
Sub 矩形2_Click()
Application.ScreenUpdating = False
kc = "英语|德育|语文|政治|历史|地理| ...

谢谢版主的多次帮心，我测试时发现当我隐藏课程名后，再复制汇总表中的数据到新的表中制作全校教师课程总表时，课程名又显示出来了

liulang0808 · 发表于 2024-4-2 21:06

jx928867128 发表于 2024-4-2 20:33
谢谢版主的多次帮心，我测试时发现当我隐藏课程名后，再复制汇总表中的数据到新的表中制作全校教师课程总 ...

你的表格有两个按钮的，是不是互相切换的，如果是为了拷贝出去，那么就直接把对应数据提取到新表格中就可以了

liulang0808 · 发表于 2024-4-2 21:11

增加了一个新按钮，每点击一次会增加一张新表的。

jx928867128 · 发表于 2024-4-2 21:15

本帖最后由 jx928867128 于 2024-4-2 21:16 编辑

liulang0808 发表于 2024-4-2 21:11
增加了一个新按钮，每点击一次会增加一张新表的。

太感谢您了，如果没有办法直接实现也只能这样变通实现了，祝版主生活愉快

liulang0808 · 发表于 2024-4-2 21:22

jx928867128 发表于 2024-4-2 21:15
太感谢您了，如果没有办法直接实现也只能这样变通实现了，祝版主生活愉快

可以再增加一个中间表格，保留原始数据

无敌小猪猪 · 发表于 2024-4-2 21:36

本帖最后由无敌小猪猪于 2024-4-2 21:42 编辑

最后的 Application.ScreenUpdating = True
Application.DisplayAlerts = True 忘记加了

献丑下。

jx928867128 · 发表于 2024-4-3 07:11

无敌小猪猪发表于 2024-4-2 21:36
最后的 Application.ScreenUpdating = True
Application.DisplayAlerts = True 忘记加了

谢谢老师的帮忙

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

[求助] 显示与隐藏问题