使用 VBA 程式碼同步工作表使用以下 VBA 程式碼,您可以快速讓所有工作表選取相同的區域,並在視窗的相同位置顯示選定的區域。
1. 在某個工作表中選擇一個區域,然後點擊「開發工具」>「Visual Basic」,將會顯示一個新的「Microsoft Visual Basic for Applications 窗口」。
2. 點擊「插入」>「模組」,然後複製並將以下程式碼粘貼到模組中:
VBA:同步工作簿中的所有工作表
Sub SynchSheets()
'Update 20130912
Dim WorkShts As Worksheet
Dim sht As Worksheet
Dim Top As Long
Dim Left As Long
Dim RngAddress As String
Application.ScreenUpdating = False
Set WorkShts = Application.ActiveSheet
Top = Application.ActiveWindow.ScrollRow
Left = Application.ActiveWindow.ScrollColumn
RngAddress = Application.ActiveWindow.RangeSelection.Address
For Each sht In Application.Worksheets
If sht.Visible Then
sht.Activate
sht.Range(RngAddress).Select
ActiveWindow.ScrollRow = Top
ActiveWindow.ScrollColumn = Left
End If
Next sht
WorkShts.Activate
Application.ScreenUpdating = True
End Sub3. 接著點擊「執行」按鈕或按「F5」鍵來執行程式碼,所有工作表都會選取相同的區域,並在視窗的相同位置顯示選定的區域。
jap为什么是对日本人的蔑称唐人街英语怎么说