انتقل إلى المحتوى الرئيسي

كيفية إنشاء قائمة من نفس الخلايا عبر أوراق متعددة في إكسيل؟

لنفترض أننا ننشر كل جدول مبيعات شهري في ورقة عمل منفصلة كما هو موضح أدناه ، وجميع جداول المبيعات لها نفس التخطيط. نريد الآن إنشاء قائمة من جميع قيم المجموع (الخلية E6) عبر أوراق عمل متعددة. كيف يتم إنجازها؟ وماذا لو أنشأت قائمة ديناميكية من مجموع قيم كل ورقة عمل؟ هناك طريقتان لك:

doc قم بإنشاء قائمة أوراق متعددة 1

قم بإنشاء قائمة من نفس الخلايا عبر أوراق متعددة باستخدام VBA

قم بإنشاء قائمة ديناميكية من نفس الخلايا عبر أوراق متعددة باستخدام Kutools for Excel

ادمج بسهولة أوراق عمل / مصنفات متعددة في ورقة عمل / مصنف واحد

قد يكون من الشاق دمج عشرات الأوراق من مصنفات مختلفة في ورقة واحدة. ولكن مع Kutools for Excel's الجمع بين (أوراق العمل والمصنفات) يمكنك إنجاز ذلك بعدة نقرات فقط!

إعلان دمج أوراق الكتب 1


باستخدام رمز VBA التالي ، يمكنك إنشاء قائمة من الخلايا المحددة عبر أوراق عمل متعددة بسهولة. يمكنك القيام بما يلي:

الخطوة 1: حدد الخلية المحددة التي ستنشئ قائمتك منها. في حالتنا ، نختار الخلية E6.

الخطوة شنومك: اضغط قديم + F11 في نفس الوقت لفتح نافذة Microsoft Visual Basic for Applications ، انقر فوق إدراج > وحدة، ثم الصق الكود التالي في نافذة الوحدة النمطية.

فبا: إنشاء قائمة من نفس الخلايا عبر أوراق متعددة

Sub CreateList()
Dim xAddWs As Worksheet
Dim xWs As Worksheet
Dim RngAddress As String
xTitleId = "KutoolsforExcel"
RngAddress = Application.ActiveCell.Address
Set xAddWs = Application.ActiveWorkbook.Sheets.Add
xAddWs.Name = xTitleId
i = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xTitleId Then
xAddWs.Cells(i, 1).Value = xWs.Range(RngAddress).Value
i = i + 1
End If
Next
End Sub

الخطوة شنومك: اضغط F5 مفتاح أو انقر فوق يجري زر لتشغيل هذا VBA.

ثم يتم نسخ جميع القيم من الخلية المحددة في جميع أوراق العمل إلى ورقة عمل جديدة تسمى KutoolsforExcel. انظر لقطة الشاشة

doc قم بإنشاء قائمة أوراق متعددة 2

سيقوم VBA هذا بتعبئة القائمة في ورقة عمل جديدة ، والقيم الموجودة في القائمة ثابتة ولن تتغير مع القيم الأصلية.

ومع ذلك ، قد ترغب في بعض الأحيان في ملء القائمة في نطاق محدد ، وتتطلب أن تكون قيم القائمة متوافقة دائمًا مع القيم الأصلية في الخلايا المحددة طوال الوقت. لتلبية هذه الاحتياجات ، يجب أن تجرب الطريقة التالية.


هذه الطريقة ستقدم كوتولس ل إكسيلالصورة ديناميكي الرجوع إلى أوراق العمل أداة لإنشاء قائمة ديناميكية من نفس الخلايا عبر أوراق عمل متعددة.

كوتولس ل إكسيل - مزود بأكثر من 300 أداة أساسية لبرنامج Excel. استمتع بتجربة مجانية كاملة المواصفات لمدة 30 يومًا دون الحاجة إلى بطاقة ائتمان! التحميل الان!

الخطوة 1: حدد النطاق حيث ستملأ القائمة الديناميكية ، وانقر فوق كوتولس > المزيد > ديناميكي الرجوع إلى أوراق العمل.

يشير المستند ديناميكيًا إلى الأوراق 1

الخطوة 2: في مربع الحوار فتح مراجع أوراق عمل التعبئة ،

doc قم بإنشاء قائمة أوراق متعددة 5

(1) انقر فوق عبئ الطلب ، وحدد نوع التعبئة من القائمة المنسدلة. في حالتنا ، نختار تعبئة عمودي خلية بعد خلية;

(2) في املأ الصيغة مربع ، حدد عنوان الخلية الذي ستنشئ قائمة ديناميكية منه ، ثم انقر فوق قفل زر  لقفل الصيغة.

(3) انقر فوق نطاق التعبئة .

الآن سترى القيم في الخلايا المحددة عبر جميع أوراق العمل مملوءة في النطاق المحدد كما هو موضح أدناه لقطة الشاشة:

عندما تتغير القيم الأصلية ، سيتم تغيير القيم المقابلة في هذه القائمة المحددة تلقائيًا.

كوتولس ل إكسيل - شحن برنامج Excel بأكثر من 300 أداة أساسية. استمتع بتجربة مجانية كاملة المواصفات لمدة 30 يومًا دون الحاجة إلى بطاقة ائتمان! احصل عليه الآن


كوتولس ل إكسيل: أكثر من 300 أداة مفيدة في متناول يدك! ابدأ تجربتك المجانية لمدة 30 يومًا دون أي قيود على الميزات اليوم. تحميل الآن!

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

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

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Very helpful bit of coding, saved hours of work creating a table from lots of separate data worksheets
This comment was minimized by the moderator on the site
Thank you very much for this. Just saved me hours of work as I had to go through 200 sheets doing data input... One thing to note for people is to click the cell you want it to use prior to opening ip and running the macro. Scratched my head for a couple minutes as the worksheet was opening up but didn't know why the information wasn't showing
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations