بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
حل
مشكلة أدوات التحكم ActiveX في Excel: صندوق النص (TextBox)
غالبا ما نحتاج
الى اضافة بعض ادوات التحكم ActiveX فى Excel على ورقة
العمل او شيت لاكسل وليكن مثلا TextBox ولكن تواجهنا بعض المشاكل البرمجية فى برمجة هذا
التكست بوكس TextBox على
عكس العمل على اليوزرفورم تكون العملية اسهل مثلا ظبط مؤشر داخل صندوق النص TextBox فى اليوزرفورم نكتب الكود التالى
TextBox1.SetFocus
ولكن فى ورقة العمل
اوشيت الاكسل لا يمكن ظبط هذة الخاصية
وهذة كانت المشكلة
وسوف نقوم بحل هذة المشكلة من خلال الكود الموجود فى اسفل المقال
أدوات
التحكم ActiveX في Excel: صندوق النص (TextBox)
ما هي أدوات التحكم
ActiveX؟
أدوات التحكم ActiveX هي عناصر
تفاعلية يمكنك إضافتها إلى ورقة عمل Excel لإنشاء
نماذج وتطبيقات أكثر تعقيدًا. هذه الأدوات تسمح للمستخدمين بالتفاعل مع ورقة العمل
بطرق مختلفة، مثل إدخال البيانات، واختيار الخيارات، وتنفيذ الأوامر.
صندوق النص (TextBox):
واحد من أهم أدوات
التحكم ActiveX هو صندوق
النص. يمكنك استخدامه للسماح للمستخدمين بإدخال النص مباشرة في ورقة العمل. يمكن استخدام
صندوق النص في العديد من التطبيقات، مثل:
إنشاء نماذج إدخال
البيانات: يمكنك إنشاء نماذج بسيطة لجمع المعلومات من المستخدمين، مثل الأسماء والعناوين
وأرقام الهواتف.
إنشاء مربعات حوار:
يمكنك استخدام صندوق النص لإنشاء مربعات حوار تطلب من المستخدمين إدخال معلومات معينة
قبل تنفيذ إجراء ما.
إنشاء تطبيقات
مصغرة: يمكنك دمج صندوق النص مع أدوات تحكم أخرى لإنشاء تطبيقات مصغرة تقوم بأداء مهام
محددة، مثل حساب القيم أو البحث عن البيانات.
كيفية إضافة صندوق
نص إلى ورقة عمل Excel:
تفعيل علامة التبويب
"المطور":
انتقل إلى ملف
Excel > خيارات > تخصيص
الشريط.
قم بتمكين خانة
الاختيار "المطور" ثم انقر فوق "موافق".
إدراج صندوق النص:
انتقل إلى علامة
التبويب "المطور" وانقر على الزر "إدراج".
ضمن قسم
"أدوات التحكم ActiveX"، انقر على أيقونة "صندوق النص".
انقر واسحب على
ورقة العمل لإنشاء صندوق النص بالحجم المطلوب.
تخصيص صندوق النص:
بعد إنشاء صندوق
النص، يمكنك تخصيصه من خلال:
تغيير الحجم والخط: انقر على صندوق النص وسحب
مقابض التحديد لتغيير الحجم. يمكنك أيضًا تغيير الخط ولون النص من خلال قائمة
"تنسيق".
تغيير الاسم: انقر بزر الماوس الأيمن على صندوق النص واختر
"خصائص". في مربع الحوار "خصائص"، قم بتغيير قيمة الخاصية
"Name" لتحديد اسم فريد
لصندوق النص. هذا الاسم سيتم استخدامه في الأكواد البرمجية.
ربط صندوق النص بخلية: يمكنك ربط قيمة صندوق
النص بخلية معينة في ورقة العمل باستخدام الأكواد البرمجية VBA. هذا يسمح بتحديث القيمة
في الخلية تلقائيًا عند تغيير النص في صندوق النص.
مثال على استخدام
صندوق النص:
لنفترض أنك تريد إنشاء نموذج بسيط لجمع اسم المستخدم. يمكنك إضافة صندوق نص إلى ورقة العمل وتسميته "txtName". ثم يمكنك كتابة الكود التالي في Visual Basic Editor لربط قيمة صندوق النص بخلية A1:
بقية أدوات التحكم
ActiveX في Excel
بالإضافة إلى صندوق
النص، هناك العديد من أدوات التحكم ActiveX الأخرى التي يمكن أن تعزز تفاعل المستخدم مع ورقة
عمل Excel. إليك لمحة سريعة عن بعض الأدوات الشائعة:
مربع الاختيار
(CheckBox)
الوظيفة: يسمح
للمستخدم بتحديد خيار واحد من عدة خيارات.
الاستخدام:
إنشاء نماذج استبيانات.
تفعيل أو تعطيل
ميزات معينة.
قائمة الاختيار
(ComboBox)
الوظيفة: تقدم
قائمة منسدلة للاختيار من بينها.
الاستخدام:
توفير قائمة محددة
من الخيارات للمستخدم.
تقليل الأخطاء
في إدخال البيانات.
قائمة (ListBox)
الوظيفة: تعرض
قائمة من العناصر يمكن للمستخدم تحديد واحد أو أكثر منها.
الاستخدام:
إنشاء قوائم متعددة
الاختيارات.
عرض قوائم طويلة
من البيانات.
زر الأمر (CommandButton)
الوظيفة: ينفذ
إجراءً معينًا عند النقر عليه.
الاستخدام:
تشغيل الماكروات.
فتح ملفات.
تنفيذ أي مهمة
مخصصة.
شريط التمرير
(ScrollBar)
الوظيفة: يسمح
للمستخدم بتحديد قيمة عددية ضمن نطاق معين.
الاستخدام:
التحكم في حجم
الخط أو لون الخلفية.
ضبط الإعدادات.
إطار الصورة (Image)
الوظيفة: يعرض صورة داخل ورقة العمل.
الاستخدام:
إضافة صور توضيحية.
إنشاء واجهات مستخدم
جذابة.
مربع النص المتعدد
الأسطر (MultiPage)
الوظيفة: يوفر عدة صفحات داخل عنصر تحكم واحد.
الاستخدام:
تنظيم المعلومات
المعقدة.
إنشاء نماذج متعددة
الأوراق.
أدوات تحكم أخرى:
شريط التقدم (ProgressBar)
مربع التحرير (TextBox) (مختلف عن صندوق النص البسيط)
شريط علامات التبويب (TabStrip)
وغيرها الكثير...
ملاحظة: كل أداة
تحكم من هذه الأدوات لها خصائصها وأحداثها التي يمكنك تخصيصها باستخدام لغة VBA.
لماذا تستخدم أدوات
التحكم ActiveX؟
تفاعل أكبر: تجعل
ورقة العمل أكثر تفاعلية.
نماذج مخصصة: تساعد
في إنشاء نماذج بيانات معقدة.
واجهة مستخدم أفضل:
تجعل واجهة المستخدم أكثر جاذبية وسهولة الاستخدام.
أتمتة المهام:
يمكن استخدامها لأتمتة المهام المتكررة.
الكود المستخدم لحل المشكلة
Private
Sub Worksheet_Activate()
Sheet1.TextBox1.Activate
End Sub