这个事件代码是什么意思呀,为什么我在各个工作表间激活时,没有什么变化,只有看到一些闪烁的效果,请大家帮忙!谢谢
Dim o As Object
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim c As Long
Dim r As Long
Dim cel As String
Dim sel As String
On Error GoTo fin
If o Is Nothing Then Exit Sub
If TypeName(Sh) <> "Worksheet" Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False
o.Active
c = ActiveWindow.ScrollColumn
r = ActiveWindow.ScrollRow
cel = ActiveCell.Address
Sh.Active
ActiveWindow.ScrollColumn = c
ActiveWindow.ScrollRow = r
Range(sel).Select
Range(cel).Activate
fin:
Application.EnableEvents = True
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If TypeName(Sh) = "Worksheet" Then Set o = Sh
End Sub