VB6的操作EXCEL的冻结窗格的代码 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → VB6的操作EXCEL的冻结窗格的代码

标题：VB6的操作EXCEL的冻结窗格的代码

取消只看楼主

wube

等　级：贵宾
威　望：23
帖　子：1817
专家分：3681
注　册：2011-3-24
结帖率：98.24%

楼主

已结贴√ 问题点数：20 回复次数：1

VB6的操作EXCEL的冻结窗格的代码

我的是OFFICE2007

with Sheet
.Cells(3, 4).Activate ' or .Range("D3").Activate
ActiveWindow.FreezePanes = True
end with

这样写为何不行？要怎改？

搜索更多相关主题的帖子: EXCEL　

2011-09-23 10:48

wube

等　级：贵宾
威　望：23
帖　子：1817
专家分：3681
注　册：2011-3-24

第 2 楼

得分:0

猜测问题点也许是因为最后更新要冻结时～Foucs Cells可能已经到了1000,10000～
如果只移动Foucs Cells到3,4就冻结～因为一回来3,4变成Cells中的1,1～
因此会造成3,4的左边和上面的资料都被冻住而看不见～然后就发生错误～
目前先改成...

with Sheet
    .Cells(1, 1).Activate
    .Cells(3, 4).Activate    ' or .Range("D3").Activate
    ActiveWindow.FreezePanes = True
end with

再试试看～

不要選我當版主

2011-09-24 18:03

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-350644-1-1.html