كيفية توسيط مربع الاختيار تلقائيًا في الخلية في إكسيل؟

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

مربع الاختيار التوسيط التلقائي في الخلية برمز VBA

مربع الاختيار التوسيط التلقائي في الخلية برمز VBA

لتوسيط جميع مربعات الاختيار تلقائيًا في الخلايا في ورقة العمل الحالية ، يرجى القيام بما يلي.

1. في ورقة العمل ، تحتاج إلى توسيط جميع مربعات الاختيار تلقائيًا ، اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، الرجاء الضغط إدراج > وحدة. ثم انسخ والصق كود فبا في نافذة الكود.

رمز فبا: مركز جميع مربعات الاختيار في الخلايا تلقائيًا

Sub CenterCheckbox ()
    Dim xRg As Range
    Dim chkBox As OLEObject
    Dim chkFBox As CheckBox
    On Error Resume Next
    Application.ScreenUpdating = False
    For Each chkBox In ActiveSheet.OLEObjects
        If TypeName(chkBox.Object) = "CheckBox" Then
            Set xRg = chkBox.TopLeftCell
            chkBox.Width = xRg.Width * 2 / 3
            chkBox.Height = xRg.Height
            chkBox.Left = xRg.Left + (xRg.Width - chkBox.Width) / 2
            chkBox.Top = xRg.Top + (xRg.Height - chkBox.Height) / 2
        End If
    Next
    For Each chkFBox In ActiveSheet.CheckBoxes
        Set xRg = chkFBox.TopLeftCell
        chkFBox.Width = xRg.Width * 2 / 3
        chkFBox.Height = xRg.Height
        chkFBox.Left = xRg.Left + (xRg.Width - chkFBox.Width) / 2
        chkFBox.Top = xRg.Top + (xRg.Height - chkFBox.Height) / 2
    Next
    Application.ScreenUpdating = True
End Sub

3. اضغط على F5 مفتاح. ثم يتم نقل جميع مربعات الاختيار إلى وسط الخلايا على الفور كما هو موضح أدناه.

ملاحظة: يمكن تطبيق رمز VBA هذا على كل من CheckBox (عنصر تحكم ActiveX) و CheckBox (عنصر تحكم النموذج).

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

• كيفية إنشاء قائمة منسدلة مع مربعات اختيار متعددة في إكسيل؟
• كيفية تغيير قيمة الخلية أو اللون المحدد عند تحديد خانة الاختيار في إكسيل؟
• كيفية تمييز الخلية أو الصف مع خانة الاختيار في إكسيل؟
• كيفية جعل مربع الاختيار محددًا بناءً على قيمة الخلية في Excel؟

أفضل أدوات إنتاجية المكتب

	الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة
	سوبر بحث: معايير متعددة VLookup  |   VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
	قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
	مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة
	الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير   |  مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا   |  إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
	أفضل 15 مجموعة أدوات:  12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

ارفع مهاراتك في برنامج Excel باستخدام Kutools for Excelوتجربة كفاءة لم يسبق لها مثيل. Kutools for Excel يقدم أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

اقرأ أكثر... تحميل مجاني ...

---

Office Tab يجلب الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ...