كيفية تعبئة مربع التحرير والسرد ببيانات النطاق المحدد في Excel؟
يمكنك تحديد مربع تحرير وسرد (عنصر تحكم ActiveX) ببيانات نطاق معين عن طريق إضافة النطاق إلى خصائص ListFillRange في مربع التحرير والسرد. ولكن هل تعرف كيفية ملء مربع تحرير وسرد ببيانات نطاق مسمى في Excel؟ على سبيل المثال ، لقد قمت بتسمية نطاق من الخلايا في ورقة العمل الخاصة بك ، والآن ، تحتاج إلى تحديد اسم النطاق هذا في مربع تحرير وسرد. عند تحديد اسم النطاق في مربع تحرير وسرد واحد ، سيتم ملء جميع قيم الخلايا في هذا النطاق المسمى في مربع تحرير وسرد آخر تلقائيًا. ستقدم هذه المقالة طريقة VBA لحل هذه المشكلة.
قم بتعبئة مربع التحرير والسرد ببيانات نطاق مسمى برمز VBA
قم بتعبئة مربع التحرير والسرد ببيانات نطاق مسمى برمز VBA
الرجاء القيام بما يلي لتعبئة مربع التحرير والسرد ببيانات نطاق مسمى في Excel.
1. الرجاء تحديد الرؤوس بالكامل (في هذه الحالة ، أحدد A1: E1) في ورقة العمل ، ثم اكتب اسمًا في اسم صندوق كما هو موضح أدناه لقطة الشاشة.
2. حدد بيانات كل عمود باستثناء رأسه ، ثم قم بتسمية العمود بشكل منفصل في اسم صندوق. انظر لقطة الشاشة:
في هذه الحالة ، قمت بتسمية النطاق A2: A8 و B2: B8 و C2: C8 و D2: D8 و E2: E8 كتاريخ ومتجر وعناصر ومبيعات وأيام الأسبوع بشكل منفصل.
3. ثم أدخل مربع التحرير والسرد بالنقر فوق المطور > إدراج > صندوق التحرير والسرد (عنصر تحكم ActiveX). انظر لقطة الشاشة:
4. كرر الخطوة 3 لإدراج مربع تحرير وسرد آخر في ورقة العمل.
5. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة ، ثم انقر فوق موافق عرض الرمز من قائمة السياق. انظر لقطة الشاشة:
6. في الافتتاح ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ ولصق رمز VBA أدناه في نافذة التعليمات البرمجية.
رمز فبا: تعبئة مربع التحرير والسرد ببيانات نطاق مسمى
Private Sub ComboBox1_Change()
'Updated by Extendoffice 2018/1/30
Dim xRg As Range
Set xRg = Range(Me.ComboBox1.Text)
Me.ComboBox2.List = Application.WorksheetFunction.Transpose(xRg)
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xRg As Range
Set xRg = Range("Headers")
Me.ComboBox1.List = Application.WorksheetFunction.Transpose(xRg)
End Sub
ملاحظات: في الكود ، ComboBox1 هو اسم مربع التحرير والسرد الذي ستدرج فيه جميع أسماء النطاقات بداخله ، و ComboBox2 هو اسم مربع التحرير والسرد الذي سيتم ملء بيانات النطاق المسمى المحدد بداخله. "الرؤوس" هو اسم النطاق الذي قمت بإنشائه في الخطوة 1.
7. قم بإيقاف تشغيل "وضع التصميم" بالنقر فوق المطور > وضع التصميم.
8. انقر فوق أي خلية في ورقة العمل لتفعيل الكود. انقر فوق زر السهم في مربع التحرير والسرد الأول ، يمكنك رؤية جميع النطاقات المسماة مدرجة بالداخل. انظر لقطة الشاشة:
عند تحديد نطاق مسمى في مربع التحرير والسرد الأول ، سيتم ملء بيانات الخلية المقابلة في مربع التحرير والسرد الثاني كما هو موضح أدناه لقطة الشاشة:
أنشئ بسهولة قائمة منسدلة مع مربعات الاختيار في Excel:
• قائمة منسدلة مع مربعات اختيار فائدة كوتولس ل إكسيل يمكن أن يساعدك في إنشاء قائمة منسدلة بسهولة مع مربعات اختيار في نطاق محدد أو ورقة عمل حالية أو مصنف حالي أو جميع المصنفات المفتوحة بناءً على احتياجاتك.
قم بتنزيله وجربه الآن! (تجربة مجانية لمدة 30 يومًا)
مقالات ذات صلة:
- كيفية نسخ قيمة Combo Box إلى خلية نشطة في Excel؟
- كيفية عرض تنسيق التاريخ في إخراج مربع التحرير والسرد في Excel؟
- كيفية منع أو تعطيل الكتابة في مربع التحرير والسرد في إكسيل؟
- كيفية تعبئة مربع تحرير وسرد ببيانات محددة في المصنف مفتوح؟
- كيف يتم ملء الخلايا الأخرى تلقائيًا عند تحديد القيم في القائمة المنسدلة في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!