كيف يمكن تعبئة مربع النص تلقائيًا بناءً على الخيار المحدد في مربع التحرير والسرد (ComboBox) داخل نموذج المستخدم (UserForm) في Excel؟

افترض أن لديك جدولًا يحتوي على عمودين: «الاسم» و«رقم الموظف»، كما هو موضح في لقطة الشاشة أدناه. الآن، تحتاج إلى إنشاء نموذج مستخدم (UserForm) يتضمّن مربع تحرير وسرد (ComboBox) يعرض جميع الأسماء، بالإضافة إلى مربع نص (TextBox) يتم فيه تعبئة رقم الموظف المقابل تلقائيًا بمجرد اختيار اسم من مربع التحرير والسرد. وتُعدّ الطريقة الموضحة في هذه المقالة دليلاً فعّالاً لمساعدتك على تنفيذ ذلك بسلاسة.

تعبئة مربع النص استنادًا إلى اختيار مربع التحرير والسرد في نموذج المستخدم باستخدام VBA

تعبئة مربع النص استنادًا إلى اختيار مربع التحرير والسرد في نموذج المستخدم باستخدام VBA

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

1. اضغط على مفاتيحAlt+F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات (Microsoft Visual Basic for Applications).

2. في نافذةمايكروسوفت فيجوال بيسك للتطبيقات (Microsoft Visual Basic for Applications)، انقر فوقإدراج (Insert) > نموذج مستخدم (UserForm). راجع لقطة الشاشة:

3. بعد ذلك، أضف عنصر تحكم مربع التحرير والسرد (ComboBox) وعنصر تحكم مربع النص (TextBox) إلى نموذج المستخدم الذي أنشئته، كما هو موضح في لقطة الشاشة أدناه.

4. انقر بزر الماوس الأيمن على أي مساحة فارغة في نموذج المستخدم، ثم اخترعرض الكود (View Code)من القائمة السياقية. راجع لقطة الشاشة:

5. في نافذة نموذج المستخدم (الكود) التي تفتح، يُرجى نسخ ولصق كود VBA أدناه بدلًا من الكود الأصلي.

كود VBA: تعبئة مربع النص استنادًا إلى اختيار مربع التحرير والسرد في نموذج المستخدم

Dim xRg As Range
'Updated by Extendoffice 2018/1/30
Private Sub UserForm_Initialize()
    Set xRg = Worksheets("Sheet5").Range("A2:B8")
    Me.ComboBox1.List = xRg.Columns(1).Value
End Sub
Private Sub ComboBox1_Change()
    Me.TextBox1.Text = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, xRg, 2, False)
End Sub

ملاحظة: في الكود، يمثل النطاق A2:B2 القيم التي سيتم تعبئتها بشكل منفصل في كلٍّ من مربع التحرير والسرد ومربع النص في نموذج المستخدم. وتشير Sheet5 إلى اسم ورقة العمل التي تحتوي على نطاق البيانات. يُرجى تعديلها حسب احتياجاتك.

6. اضغط على مفاتيحAlt+Q للخروج من نافذةمايكروسوفت فيجوال بيسك للتطبيقات (Microsoft Visual Basic for Applications).

7. انقر فوقالمطور (Developer) > إدراج (Insert) > زر أمر (Command Button) (عنصر تحكم ActiveX)لإدراج زر أمر في ورقة العمل.

8. انقر بزر الماوس الأيمن على لسان تبويب الورقة، ثم اخترعرض الكود (View Code)من قائمة النقر بزر الماوس الأيمن. بعد ذلك، انسخ ولصق كود VBA في نافذة الكود.

كود VBA: عرض نموذج المستخدم

Private Sub CommandButton1_Click()
'Updated by Extendoffice 2018/1/30
    UserForm1.Show
End Sub

9. أوقف وضع التصميم (Design Mode) في المصنف.

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

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

• كيف يمكن تعبئة مربع التحرير والسرد (Combo Box) بالبيانات المحددة تلقائيًا عند فتح ملف المصنف؟
• كيف يمكن تعبئة الخلايا الأخرى تلقائيًا عند اختيار قيمة من قائمة منسدلة في Excel؟
• كيف يمكن تعبئة الخلايا الأخرى تلقائيًا عند اختيار قيمة من قائمة منسدلة في Excel؟
• كيف يمكن تعبئة نتائج بحث Google تلقائيًا في ورقة عمل Excel؟

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

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

استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية و40+ لغات أخرى!

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

مزيد من التفاصيل حول Kutools لـ Excel...تنزيل مجاني...

---

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

• تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
• افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
• يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!

مزيد من التفاصيل حول Office Tab...تنزيل مجاني...

---

جميع الإضافات من Kutools في برنامج تثبيت واحد!

Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.

• حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
• برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
• يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
• تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
• أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل

مزيد من التفاصيل حول Kutools for Office...تنزيل مجاني...