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

كيفية نسخ قيمة Combo Box إلى خلية نشطة في Excel؟

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

انسخ قيمة مربع التحرير والسرد إلى الخلية النشطة برمز VBA

فبا 1: نسخ قيمة مربع التحرير والسرد إلى الخلية النشطة من خلال الأوامر
VBA 2: قيمة مربع التحرير والسرد للنسخ التلقائي إلى الخلية النشطة


انسخ قيمة مربع التحرير والسرد إلى الخلية النشطة برمز VBA

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

فبا 1: نسخ قيمة مربع التحرير والسرد إلى الخلية النشطة من خلال زر الأمر

1. أولاً ، تحتاج إلى إدراج زر الأمر في ورقة العمل كما هو موضح أدناه.

2. انقر بزر الماوس الأيمن فوق زر الأمر ، ثم انقر فوق عرض الرمز من قائمة النقر بزر الماوس الأيمن. انظر لقطة الشاشة:

3. في ظهرت ميكروسوفت فيسوال باسيك للتطبيقات النافذة ، استبدل الكود الأصلي في نافذة الكود برمز VBA أدناه.

كود فبا: انسخ قيمة مربع التحرير والسرد إلى الخلية النشطة

Private Sub CommandButton1_Click()
   ActiveCell.Value = Me.ComboBox1.Text
End Sub

ملاحظات: في الكود ، CommandButton1 هو اسم زر الأمر المدرج ، و ComboBox1 هو اسم مربع التحرير والسرد الذي ستنسخ القيمة منه. الرجاء تغييرها كما تريد.

4. اضغط على قديم + Q مفاتيح لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

من الآن فصاعدًا ، عندما تحتاج إلى نسخ قيمة مربع التحرير والسرد إلى الخلية النشطة ، يرجى تحديد الخلية ، ثم النقر فوق زر الأمر لإنجازها.

VBA 2: قيمة مربع التحرير والسرد للنسخ التلقائي إلى الخلية النشطة

يمكن أن يساعدك رمز VBA أدناه في تحديث الخلية النشطة تلقائيًا أثناء تحديد القيم في مربع تحرير وسرد. يمكنك القيام بما يلي.

1. تأكد من أن وضع التصميم قيد التشغيل تحت المطور علامة التبويب.

2. انقر بزر الماوس الأيمن فوق مربع التحرير والسرد الذي ستقوم بنسخ القيمة منه ، ثم انقر فوق عرض الرمز من قائمة النقر بزر الماوس الأيمن. انظر لقطة الشاشة:

3. في ظهرت ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، استبدل الكود الأصلي في ملف رمز نافذة مع رمز VBA أدناه.

كود فبا: انسخ قيمة مربع التحرير والسرد إلى الخلية النشطة

Private Sub ComboBox1_Change()
  ActiveCell.Value = Me.ComboBox1.Value
End Sub

ملاحظات: في الكود ، ComboBox1 هو اسم مربع التحرير والسرد الذي ستنسخ القيمة منه.

4. اضغط على قديم + Q لإغلاق نافذة Microsoft Visual Basic for Applications ، وإيقاف تشغيل وضع التصميم ضمن علامة التبويب Developer.

من الآن فصاعدًا ، عند تحديد قيمة من مربع التحرير والسرد ، سيتم عرض هذا السجل المحدد في الخلية النشطة تلقائيًا.


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

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

🤖 مساعد 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
Kalau sel aktifnya ditentuka, seperti misalnya D7, bagaimana code nya?
Terima Kasih
This comment was minimized by the moderator on the site
maksud saya, code vba berikut, untuk cel aktif yang randomKode VBA: Salin nilai Combo Box ke sel aktif
Private Sub ComboBox1_Change()
ActiveCell.Value = Me.ComboBox1.Value
End Sub

kalau cel aktifnya ingin di tentukan misalnya text dari combo box tersebut ingin berada di cell D7, bagaimana merubah code vba nyaterima kasih
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations