كيفية تعبئة مربع النص بناءً على تحديد مربع التحرير والسرد في UserForm في Excel؟
لنفترض أن لديك جدولًا يحتوي على عمود الاسم ورقم الموظفين كما هو موضح أدناه لقطة الشاشة. أنت الآن بحاجة إلى إنشاء Userform مضمنًا بمربع تحرير وسرد يجمع كل الأسماء بالداخل ومربع نص يملأ رقم الموظفين المقابل عند تحديد الاسم من مربع التحرير والسرد. يمكن أن تساعدك الطريقة الواردة في هذه المقالة في التخلص منها.
قم بتعبئة مربع نص بناءً على تحديد مربع التحرير والسرد في Userform باستخدام VBA
قم بتعبئة مربع نص بناءً على تحديد مربع التحرير والسرد في Userform باستخدام VBA
يرجى القيام بما يلي لتعبئة مربع نص بالقيمة المقابلة بناءً على تحديد مربع التحرير والسرد في Userform.
1. اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > المستخدم. انظر لقطة الشاشة:
3. ثم أدخل عنصر تحكم مربع التحرير والسرد والتحكم في مربع النص في Userform كما هو موضح أدناه.
4. انقر بزر الماوس الأيمن فوق أي مساحة فارغة في Userform ، ثم انقر فوق عرض الرمز من قائمة السياق. انظر لقطة الشاشة:
5. في نافذة Userform (Code) الافتتاحية ، يرجى نسخ ولصق رمز VBA أدناه لاستبدال الأصل.
كود فبا: قم بتعبئة مربع نص بناءً على تحديد مربع تحرير وسرد في Userform
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 هو النطاق الذي يحتوي على القيم التي ستتم تعبئتها بشكل منفصل في كل من مربع التحرير والسرد Userform ومربع النص. و Sheet5 هو اسم ورقة العمل التي تحتوي على نطاق البيانات. يرجى تغييرها كما تحتاج.
6. اضغط على قديم + Q مفاتيح للخروج من ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
7. انقر المطور > إدراج > زر الأمر (عنصر تحكم ActiveX) لإدراج زر أمر في ورقة العمل.
8. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة وحدد عرض الرمز من قائمة النقر بزر الماوس الأيمن. ثم انسخ والصق كود VBA في نافذة التعليمات البرمجية.
رمز VBA: إظهار نموذج المستخدم
Private Sub CommandButton1_Click()
'Updated by Extendoffice 2018/1/30
UserForm1.Show
End Sub
9. قم بإيقاف تشغيل وضع التصميم في المصنف.
انقر فوق زر الأمر لفتح نموذج المستخدم المحدد. ثم يمكنك رؤية كافة الأسماء مجمعة في مربع التحرير والسرد. عند تحديد اسم من مربع التحرير والسرد، سيتم ملء رقم الموظف المقابل في مربع النص تلقائيًا كما هو موضح في لقطة الشاشة أدناه.
مقالات ذات صلة:
- كيفية تعبئة مربع تحرير وسرد ببيانات محددة في المصنف مفتوح؟
- كيف يتم ملء الخلايا الأخرى تلقائيًا عند تحديد القيم في القائمة المنسدلة في Excel؟
- كيف يتم ملء الخلايا الأخرى تلقائيًا عند تحديد القيم في القائمة المنسدلة في Excel؟
- كيفية تعبئة نتائج بحث جوجل بورقة عمل في إكسيل؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!