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

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

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

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

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

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

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

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

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

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

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

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

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

2. انقر KUTOOLS PLUS > ورقة العمل > مزامنة الأوراق العمل.

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

4. انقر على «موافق» وسيتم مزامنة جميع أوراق العمل تلقائيًا. وعند التنقّل بينها، ستجد أن كل ورقة عمل تحتوي على نفس النطاق المحدَّد. راجع لقطات الشاشة:

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

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

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

2. انقر على «إدراج» > «وحدة برمجية (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" لتنفيذ الكود، وستحتوي كل ورقة عمل على نفس النطاق المحدد، مع عرض تحديد النطاق في نفس الموضع داخل النافذة.

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