เมื่อทำงานกับเวิร์กบุ๊ก Excel คุณอาจต้องเลือกช่วงเดียวกันในเวิร์กชีตหลายแผ่นเพื่อเปรียบเทียบหรือวิเคราะห์ข้อมูลอย่างมีประสิทธิภาพมากขึ้น วิธีการด้านล่างนี้จะช่วยให้คุณซิงโครไนซ์ช่วงที่เลือกในเวิร์กชีตทั้งหมดได้อย่างรวดเร็ว ทำให้ดูข้อมูลได้สอดคล้องกันมากขึ้น

เลือกช่วงเดียวกันในแผ่นงานทั้งหมดด้วย Select All Sheets

ซิงโครไนซ์แผ่นงานทั้งหมดในช่วงเดียวกันได้อย่างรวดเร็วด้วยคลิกเดียว

การใช้รหัส VBA เพื่อซิงโครไนซ์แผ่นงาน

เลือกช่วงเดียวกันในแผ่นงานทั้งหมดด้วย Select All Sheets

คุณสามารถทำให้เวิร์กชีตทั้งหมดมีช่วงเดียวกันที่เลือกในเวิร์กบุ๊กได้ดังนี้:

1. เลือกช่วงในแผ่นงานที่ใช้งานอยู่ที่คุณต้องการเลือกในแผ่นงานทั้งหมด ตัวอย่างเช่นช่วง A103: C112

2จากนั้นคลิกขวาที่แท็บเวิร์กชีต และเลือก เลือกแผ่นงานทั้งหมด จากเมนู ดูภาพหน้าจอ:

3เวิร์คชีตทั้งหมดในเวิร์คบุ๊กจะมีช่วงที่เลือกเหมือนกัน

ซิงโครไนซ์แผ่นงานทั้งหมดไปยังช่วงเดียวกันได้อย่างรวดเร็วด้วยคลิกเดียว

ถ้าคุณได้ติดตั้ง Kutools สำหรับ Excelคุณสามารถใช้ ซิงโครไนซ์เวิร์กชีต คุณสมบัติในการซิงโครไนซ์แผ่นงานทั้งหมดให้มีช่วงเดียวกันได้อย่างง่ายดายดังนี้:

1. เปิดใช้งานเวิร์กชีตและเลือกช่วงที่คุณต้องการใช้

2. คลิก Enterprise > เครื่องมือแผ่นงาน > ซิงโครไนซ์เวิร์กชีตดูภาพหน้าจอ:

3. และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณทราบแผ่นงานทั้งหมดภายในสมุดงานจะมีช่วงที่เลือกและเซลล์ด้านซ้ายบนเหมือนกัน

4. คลิก OKและเวิร์กชีตทั้งหมดได้รับการซิงโครไนซ์แล้ว เมื่อคุณนำทางระหว่างเวิร์กชีตทั้งหมด เวิร์กชีตแต่ละแผ่นจะมีช่วงที่เลือกเหมือนกัน ดูภาพหน้าจอ:

การใช้รหัส VBA เพื่อซิงโครไนซ์แผ่นงาน

ใช้รหัส VBA ต่อไปนี้คุณสามารถสร้างแผ่นงานทั้งหมดให้เลือกช่วงเดียวกันได้อย่างรวดเร็วและแสดงช่วงที่เลือกในตำแหน่งเดียวกันของหน้าต่าง

1. เลือกช่วงในแผ่นงานเดียวจากนั้นคลิก ผู้พัฒนา >ของ Visual Basicใหม่ หน้าต่าง Microsoft Visual Basic สำหรับแอปพลิเคชัน จะปรากฏขึ้น

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 Sub

3. จากนั้นคลิก  หรือ F5 ปุ่มในการรันโค้ด เวิร์กชีตทั้งหมดจะมีช่วงที่เลือกเดียวกันและแสดงช่วงที่เลือกในตำแหน่งเดียวกันในหน้าต่าง

บทความที่เกี่ยวข้อง