كيفية نسخ قيمة مربع التحرير والسرد إلى الخلية النشطة في 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؟
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في Excel باستخدام Kutools لـ Excel، واختبر كفاءة غير مسبوقة. Kutools لـ Excel يوفر أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة الأكثر أهمية بالنسبة لك...
Office Tab يجلب واجهة التبويب إلى Office ويجعل عملك أسهل بكثير
- تفعيل تحرير وقراءة عبر التبويبات في Word، Excel، PowerPoint، Publisher، Access، Visio وProject.
- افتح وأنشئ عدة مستندات في تبويبات جديدة في نفس النافذة، بدلاً من نوافذ مستقلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات اليومية من الفأرة!
جميع إضافات Kutools. مثبت واحد
حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.
- حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
- مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
- الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
- تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد