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

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

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

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

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

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

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

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

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

3. في نافذة Microsoft Visual Basic for Applications المنبثقة، استبدل الكود الأصلي في نافذة الكود بالكود البرمجي VBA أدناه.

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

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

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

4. اضغط على مفتاحي Alt + Q لإغلاق نافذة Microsoft Visual Basic for Applications.

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

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

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

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

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

3. في نافذة Microsoft Visual Basic for Applications المنبثقة، استبدل الكود الأصلي في نافذة الكود بالكود البرمجي VBA أدناه.

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

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

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

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

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

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

• كيفية عرض تنسيق التاريخ في مخرجات مربع التحرير والسرد في Excel؟
• كيفية إخفاء أو إظهار زر أمر بناءً على قيمة خلية محددة في Excel؟
• كيفية فتح ورقة عمل معينة بناءً على القيمة المحددة من مربع التحرير والسرد في Excel؟
• كيفية منع أو تعطيل الكتابة في مربع التحرير والسرد في Excel؟
• كيفية الخروج من مربع التحرير والسرد لتحديد خلية معينة في Excel؟