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

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

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

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

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

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

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

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

3. แผ่นงานทั้งหมดในสมุดงานจะมีการเลือกช่วงเดียวกัน

อัศจรรย์! การใช้แท็บที่มีประสิทธิภาพใน Excel เช่น Chrome, Edge, Firefox และ Safari!
ประหยัดเวลา 50% และลดการคลิกเมาส์หลายพันครั้งให้คุณทุกวัน!

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

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

Kutools สำหรับ Excel: ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน Get it Now

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 คีย์ในการรันโค้ดแผ่นงานทั้งหมดจะมีการเลือกช่วงเดียวกันและแสดงช่วงที่เลือกในตำแหน่งเดียวกันของหน้าต่าง

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