[已解决]此事件代码是什么意思呀，请大家帮忙！

hwc2ycy

你在工作表中，改下工作表左上角的单元格地址为B46,,然后切换到另一个工作表，注意左上角的单元格。

香满园

hwc2ycy 发表于 2013-6-2 22:24
你在工作表中，改下工作表左上角的单元格地址为B46,,然后切换到另一个工作表，注意左上角的单元格。

还是没有什么区别，第一工作表，我选B46，激活第二个工作表时，是默认的选择了A1，后面的几张工作表，都是是默认的选择了A1

hwc2ycy

不好意思，我一直没试代码。
刚试了，里面有2句不对。

1. Dim o As Object
   
2. Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   
3.     Dim c As Long
   
4.     Dim r As Long
   
5.     Dim cel As String
   
6.     Dim sel As String
   
7.     On Error GoTo fin
   
8.     If o Is Nothing Then Exit Sub
   
9.     If TypeName(Sh) <> "Worksheet" Then Exit Sub
   
10.     Application.ScreenUpdating = False
    
11.     Application.EnableEvents = False
    
12.     o.Activate
    
13.     c = ActiveWindow.ScrollColumn
    
14.     r = ActiveWindow.ScrollRow
    
15.     cel = ActiveCell.Address
    
16.     Sh.Activate
    
17.     ActiveWindow.ScrollColumn = c
    
18.     ActiveWindow.ScrollRow = r
    
19.     Range(sel).Select
    
20.     Range(cel).Activate
    
21. fin:
    
22.     Application.EnableEvents = True
    
23. End Sub
    
24. Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    
25.     If TypeName(Sh) = "Worksheet" Then
    
26.         Set o = Sh
    
27.     End If
    
28. End Sub
    

复制代码

hwc2ycy

视图保存测蔗.rar (14.89 KB, 下载次数: 3)

2013-6-2 23:19 上传

点击文件名下载附件

hwc2ycy

o.Active
sh.active

方法弄错了。
应该是Activate