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

كيفية تعبئة مربع التحرير والسرد ببيانات النطاق المحدد في 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 يومًا)


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

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

🤖 مساعد 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 (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations