循环Sheets冻结单元格。

ningyong58

For Each Sht In Sheets
         
          Rows("3:3").Select
          ActiveWindow.FreezePanes = True
        Next Sht

上面的程序，只能冻结第一个sheet的前2个单元格的。
目标需求是
冻结所有Sheets的单元格。

cflood

For Each Sht In Sheets
         
          sht.Rows("3:3").Select
          ActiveWindow.FreezePanes = True
        Next Sht

tonyibm

Sub aa()

Dim sht As Worksheet

For Each sht In Sheets
         
        sht.Activate
          Rows("3").Select
          ActiveWindow.FreezePanes = True
         
        Next sht

End Sub

在冻结某个工作表之前，要先激活，

ningyong58

原帖由 cflood 于 2009-11-30 16:51 发表
For Each Sht In Sheets
         
          sht.Rows("3:3").Select
          ActiveWindow.FreezePanes = True
        Next Sht

这种方法测试后，运行出错误
Sub ll()
  Dim Sht As Worksheet
  For Each Sht In Sheets
    Debug.Print TypeName(Sht), Sht.Name
    Sht.Rows("3:3").Select  这句通不过。
    ActiveWindow.FreezePanes = True
  Next Sht
End Sub

ningyong58

原帖由 tonyibm 于 2009-11-30 16:58 发表
Sub aa()

Dim sht As Worksheet

For Each sht In Sheets
         
        sht.Activate
          Rows("3").Select
          ActiveWindow.FreezePanes = True
         
        Next sht

End  ...

谢谢， 加上这条语句sht.Activate，程序通过。

itxianfeng

我的工作簿和楼主虽然目的一样，但是思路不一样
我是将冻结代码分别放入各个表的响应事件中，如果单击哪一个表，那个表才会冻结。
感觉这样的操作速度会更快捷些吧，毕竟在表格很多的情况下，如果遍历所有的表，耗费的时间会长些。