كيف يمكن نسخ قيمة مربع التحديد إلى الخلية النشطة في Excel؟
في بعض الحالات، قد تحتاج إلى نسخ القيمة المختارة من مربع التحديد إلى الخلية النشطة. وعادةً ما يتطلب ذلك الدخول يدويًا إلى مربع التحديد لنسخ القيمة ولصقها في الخلية النشطة. تقدّم هذه المقالة طريقة مريحة لتحديث الخلية النشطة تلقائيًا فور اختيار القيم من مربع التحديد.
نسخ قيمة مربع التحديد إلى الخلية النشطة باستخدام كود VBA
VBA 1: نسخ قيمة مربع التحديد إلى الخلية النشطة عبر زر الأمر
VBA 2: نسخ تلقائي لقيمة مربع التحديد إلى الخلية النشطة
نسخ قيمة مربع التحديد إلى الخلية النشطة باستخدام كود VBA
يمكنك الاستفادة من أكواد VBA التالية لنسخ قيمة مربع التحديد تلقائيًا إلى الخلية النشطة. يُرجى اتباع الخطوات التالية:
VBA 1: نسخ قيمة مربع التحديد إلى الخلية النشطة عبر زر الأمر
1. أولًا، أدرج زر أمر في ورقة العمل كما هو موضح في لقطة الشاشة أدناه.
2. انقر بزر الماوس الأيمن على زر الأمر، ثم اخترعرض الكودمن قائمة النقر بزر الماوس الأيمن. راجع لقطة الشاشة:
3. في نافذةمايكروسوفت Visual Basic for Applicationsالتي تظهر، استبدل الكود الأصلي في نافذة الكود بالكود التالي من VBA.
كود VBA: نسخ قيمة مربع التحديد إلى الخلية النشطة
Private Sub CommandButton1_Click()
ActiveCell.Value = Me.ComboBox1.Text
End Subملاحظة: في الكود، يشيرCommandButton1 إلى اسم زر الأمر الذي أدرجته، ويشيرComboBox1 إلى اسم مربع التحديد الذي ستُنسخ منه القيمة. يُرجى تعديلهما حسب الحاجة.
4. اضغط على مفاتيحAlt+Q لإغلاق نافذةمايكروسوفت Visual Basic for Applications.
من الآن فصاعدًا، عندما تحتاج إلى نسخ قيمة مربع التحديد إلى الخلية النشطة، ما عليك سوى تحديد الخلية ثم النقر على زر الأمر لإتمام العملية.
VBA 2: نسخ تلقائي لقيمة مربع التحديد إلى الخلية النشطة
يمكن أن يساعدك كود VBA التالي في تحديث الخلية النشطة تلقائيًا أثناء اختيار القيم من مربع التحديد. يمكنك اتباع الخطوات التالية.
1. تأكد من تفعيل وضعالتصميمضمن تبويبالمطور.
2. انقر بزر الماوس الأيمن على مربع التحديد الذي ستُنسخ منه القيمة، ثم اخترعرض الكودمن قائمة النقر بزر الماوس الأيمن. راجع لقطة الشاشة:
3. في نافذةمايكروسوفت 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؟
- كيفية الخروج من مربع التحديد بالزر Tab لتحديد خلية معيّنة في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل