2012-01-23 122 views
0

我试图在Excel中使用代码冻结窗格。我已经看到了几个关于如何使用activewindow来实现的例子,我试图通过不同的工作表上的按钮将其设置为指定表格以冻结窗格excel

我有2张,“时间”和“Time_and_Cost”,我对“时间”片我要冻结的

“Time_and_cost”顶行的按钮。

我有这个代码当前冻结活动窗口的窗格。

Rows("1:1").Select 
ActiveWindow.FreezePanes = True 

但是,我怎么能适应这个指定的工作表,我想我必须选择工作表,冻结,冻结,然后

选择以前的工作?即时通讯无法找到确切的代码使用。

在此先感谢

回答

0

怎么是这样的:

Public Sub FreezePane() 
Dim shName As String 
shName = ActiveWindow.ActiveSheet.Name 
ActiveWorkbook.Worksheets("Time_and_Cost").Activate 
Range("A2").Activate 
ActiveWindow.FreezePanes = True 
ActiveWorkbook.Worksheets(shName).Activate 
End Sub 

请注意,我冻结,使顶行会被冻结窗格激活的“Time_and_Cost” A2之前。