كيف يمكن جمع القيم من مربعات النص؟
افترض أن لديك ثلاثة مربعات نصية، وترغب في جمع القيمتين الموجودتين في Textbox1 وTextbox2، ثم عرض الناتج تلقائيًا في Textbox3 كما هو موضح في لقطة الشاشة التالية. كيف يمكنك تنفيذ هذه المهمة في Excel؟
جمع القيم من مربعات النص باستخدام كود VBA
جمع القيم من مربعات النص باستخدام كود VBA
لجمع القيم من مربعي نص وعرض الناتج في مربع النص الثالث، جرّب الكود التالي المكتوب بلغة VBA.
1. أولًا، أدرج ثلاثة مربعات نصية: انقرالمطور > إدراج > مربع نص (عنصر تحكم ActiveX)، ثم ارسم مربع نص واحد وأنشئ منه نسختين. انظر لقطة الشاشة:
2. بعد إدراج مربعات النص، انقر بزر الماوس الأيمن على لسان التبويب الذي يحتوي على مربعات النص التي تريد استخدامها، ثم اخترعرض الكودمن قائمة السياق لفتح نافذةMicrosoft Visual Basic for Applications، ثم انسخ والصق كود VBA التالي في الوحدة النمطية الفارغة:
كود VBA: جمع القيم من مربعات النص:
Private Sub Sum_Click()
TextBox3.Text = Val(TextBox2.Text) + Val(TextBox1.Text)
End Sub
3. بعد ذلك، أدخل القيم في Textbox1 وTextbox2، ثم اضغطF5 أو زرتشغيللتنفيذ الكود، وسيُعرض الناتج المحسوب فورًا في Textbox3. انظر لقطة الشاشة:
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل