实例七 同步工作表

同步工作表
abxQ C0
8\#c#ds3S%Yw[-S6`+b0    该事件利用活动窗口的scrollrow和scrollcolumn属性，实现活动工作簿中各工作表窗口一致，如：精英博客E(Q#FG Lp/U@
sheet1工作表左上角单元格为F11，则其他工作表左上角单元格都和Sheet1一样在F11精英博客K,J JjwS

{*Ff mc2M0    大家可以在活动工作表中将左上角单元格固定在d11，然后选定一个区域，进行测试！
H3}tZ^ N:~4j0 精英博客p1~#n&a9Oy-W_
Sub SynchronizeSheet()

z:y#[[6?t9dq#H x0 '同步工作表
#~gYI&DW9G!I9e o1n0 Dim LeftRow As Long, UpperColumn As Integer精英博客0s }'\ `%X.{
Dim SelRng As String
C/D3z8J HYA }:Vd0 Dim Ws As Worksheet精英博客+c5S$dc/i
Dim FlagWs As Worksheet精英博客.i&^Z6X.r7n1b7e6Q
Set Ws = ActiveSheet精英博客V!g{b|pGp&_
Application.ScreenUpdating = False精英博客aqD!e"Q#X
i!S
LeftRow = ActiveWindow.ScrollRow
q1q(C"ij5k8M-z^0 UpperColumn = ActiveWindow.ScrollColumn精英博客'K?eW,rp
SelRng = ActiveWindow.RangeSelection.Address
fCL@#O
s@$WM0 For Each FlagWs In ActiveWorkbook.Worksheets
M'C iN7}g0    If FlagWs.Visible = xlSheetVisible Then
6\aew-v-FRg1l0        FlagWs.Activate精英博客I2{;G2M|E n(la"_
       '注意select和activate的区别，这里选取的是多个工作表中单元格区域
M$U_8n+SDoNV0        Range(SelRng).Select
Hp'fOn0        Selection.Interior.Color = RGB(255, 0, 255)精英博客DY,BP
X3` lpD+t
       ActiveWindow.ScrollRow = LeftRow精英博客a*@8d|uc&^ PH
       ActiveWindow.ScrollColumn = UpperColumn精英博客6^&^"u[daJyaC
   End If精英博客;aLP2S9a+KsK4P
Next FlagWs精英博客Dx(ZNl1w X
Ws.Activate
~W;Il@onQ0 Application.ScreenUpdating = True精英博客|r4v E5G
End Sub