批量冻结窗口和取消冻结

daoxuanren · 发表于 2010-6-22 20:29

如何批量冻结窗口和取消冻结窗口？

cflood · 发表于 2010-6-22 20:51

word也有冻结窗口？

youliqi · 发表于 2010-6-22 23:06

应该是对Excel而言吧？

守柔 · 发表于 2010-6-23 11:03

原帖由 daoxuanren 于 2010-6-22 20:29 发表
如何批量冻结窗口和取消冻结窗口？

Option Explicit

Sub WindowsFreezePanes()
Dim sel_sht As Worksheet
For Each sel_sht In ActiveWindow.SelectedSheets
sel_sht.Activate
ActiveWindow.FreezePanes = Not ActiveWindow.FreezePanes
Next
End Sub

操作方法：
先选定需要解除或者冻结窗口的工作表，然后选定一个冻结位置的单元格，再运行本过程，可以冻结或者取消冻结窗口。

daoxuanren · 发表于 2010-6-29 14:42

谢谢版主关注。。。

kqbt · 发表于 2010-6-30 09:07

原来是Excel，学习了

laoiao · 发表于 2010-7-24 12:44

版主你太棒了！
经过使用确实好极了。

[ 本帖最后由 laoiao 于 2010-7-24 12:45 编辑 ]

slywtj123 · 发表于 2010-7-24 14:32

向四楼守柔版主学习！

renqiang851224 · 发表于 2010-7-24 18:06

一个电脑上冻结好几个窗口你咋看啊

laoiao · 发表于 2010-9-21 15:04

很好的东东，但是有的时候一批冻结得太多，有些窗口冻结的位置不正确。

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

[求助] 批量冻结窗口和取消冻结

回复 4楼守柔的帖子

版主你太棒了！

回复 1楼 daoxuanren 的帖子

也有问题

[求助] 批量冻结窗口和取消冻结

回复 4楼 守柔 的帖子

版主你太棒了！

回复 1楼 daoxuanren 的帖子

也有问题

回复 4楼守柔的帖子