كيفية مزامنة نفس النطاق المحدد عبر جميع الأوراق في مصنف Excel؟

عند العمل مع مصنف Excel، قد تحتاج إلى تحديد نفس النطاق عبر أوراق عمل متعددة لمقارنة أو تحليل البيانات بشكل أكثر كفاءة. ستساعدك الطرق أدناه على مزامنة النطاقات المحددة في جميع الأوراق بسرعة، مما يجعل من السهل عرض المعلومات بشكل متسق.

تحديد نفس النطاقات في جميع الأوراق باستخدام خيار تحديد كل الأوراق

مزامنة جميع الأوراق التي تحتوي على نفس النطاق بنقرة واحدة بسرعة

استخدام كود VBA لمزامنة الأوراق

تحديد نفس النطاقات في جميع الأوراق باستخدام خيار تحديد كل الأوراق

يمكنك جعل كل الأوراق تقوم بتحديد نفس النطاق في المصنف، كما هو موضح أدناه:

1. حدد نطاقًا في ورقة العمل النشطة الذي تريد تحديده في جميع الأوراق. على سبيل المثال النطاق "A103:C112".

2. ثم انقر بزر الماوس الأيمن على تبويب ورقة العمل، واختر "تحديد كل الأوراق" من القائمة.

3. سيتم تحديد نفس النطاق في جميع أوراق العمل داخل المصنف.

مزامنة جميع الأوراق لنفس النطاق بنقرة واحدة بسرعة

إذا كنت قد قمت بتثبيت "Kutools لـ Excel"، يمكنك استخدام ميزة "مزامنة الأوراق" لسهولة مزامنة جميع الأوراق لتكون بنفس النطاق كما يلي:

1. قم بتفعيل ورقة عمل وحدد النطاق الذي تريد استخدامه.

2. اضغط على Kutools Plus > Worksheet > Synchronize Worksheets.

3. ستظهر نافذة منبثقة لتذكرك بأن جميع أوراق العمل داخل المصنف سيكون لها نفس النطاق المحدد والخلية العلوية اليسرى.

4. اضغط موافق، وسيتم مزامنة جميع الأوراق. عند التنقل بين جميع الأوراق، سيكون لكل ورقة نفس النطاق المحدد. شاهد الصور التوضيحية:

استخدام كود VBA لمزامنة الأوراق

باستخدام الكود التالي VBA، يمكنك بسرعة جعل جميع الأوراق تحتوي على نفس النطاق المحدد وعرض النطاق المحدد في نفس الموضع في النافذة.

1. حدد نطاقًا في إحدى الأوراق، ثم اضغط على "Developer" > "Visual Basic"، ستظهر نافذة جديدة "Microsoft Visual Basic للتطبيقات".

2. اضغط على "Insert" > "Module"، ثم انسخ والصق الكود التالي في الوحدة:

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. ثم اضغط على زر "Run" أو مفتاح "F5" لتنفيذ الكود، جميع الأوراق سيكون لديها نفس النطاق المحدد وستعرض النطاقات المختارة في نفس الموضع في النافذة.

مقالات ذات صلة