Note: The other languages of the website are Google-translated. Back to English

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

أثناء إدراج مربعات الاختيار في الخلايا في 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 (عنصر تحكم النموذج).

تلميح: إذا كنت تريد إدراج خانات اختيار متعددة في نطاق محدد بشكل مجمّع ، فيمكنك تجربة مربعات اختيار إدراج دفعة فائدة pf كوتولس ل إكسيل. أو إدراج عدة أزرار خيارات مع ملف أزرار الخيار إدراج دفعة خدمة. بالإضافة إلى ذلك ، يمكنك حذف جميع خانات الاختيار مرة واحدة بامتداد خانات اختيار الحذف الدفعي فائدة على النحو المبين أدناه لقطات الشاشة. يمكنك الذهاب إلى تنزيل البرنامج مجانًا بدون قيود 30 أيام.


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


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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (9)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
برنامج نصي VDA يعمل جزئيًا. لأنه عندما قمت بتطبيقه ، تم تغيير الخلية المرتبطة بجوار مربع الاختيار وتم ربطها بخلية تحتها.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد كان هذا رائعًا بالنسبة لي إلا أنه لا يتماشى مع النص الموجود في الخلية التالية المحاذية للأسفل. هل هناك طريقة لمحاذاة مربعات الاختيار الخاصة بالمحاذاة السفلية من أجل جعلها تتماشى مع النص في الخلية التالية؟ شكرًا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يعمل VBA على الإطلاق بالنسبة لي. عندما أضغط على F5 ، يبدو أن الوحدة تعمل ، لكن خانات الاختيار لم تتحرك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بعد إجراء المزيد من التجارب ، اكتشفت أن VBA يعمل مع مربعات الاختيار المدرجة يدويًا ، ولكن إذا استخدمت إدراج Kutools دفعة واحدة ، فإنه لا يعمل. كيف يمكنني توسيط جميع مربعات الاختيار المدرجة مع Kutools؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا كوادما ،
يعمل الرمز أيضًا مع مربعات الاختيار التي تم إدراجها بواسطة Kutools. ما هو إصدار Excel الذي تستخدمه؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنا أستخدم Office 360. أعتقد أن المشكلة التي أواجهها هي أنه عندما أستخدم إدراج مجموعة Kutools ، يكون حجم كائن مربع الاختيار عريضًا مثل العمود الذي تم إدراجه فيه (على سبيل المثال ، عرض كائن مربع الاختيار هو أكبر من ارتفاعه) ، مع ترك مربع الاختيار المرئي نفسه مضبوطًا داخل الكائن. إذا قمت بتحديد جميع كائنات خانة الاختيار ثم قمت بتغيير حجمها بحيث يكون الطول والطول متساويين ، ثم قمت بتشغيل VBA ، فإنه يقوم بتوسيط خانات الاختيار داخل العمود.





تبدو هذه خطوة غير ضرورية ، نظرًا لأن مربعات الاختيار مربعة ، فلماذا لا تجعل Kultools كائنات مربع الاختيار مربعة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا كوادما ،
مربعات الاختيار التي أدخلتها Kutools هي نفسها مثل خانة اختيار (التحكم في النموذج) الذي تم إدراجه بواسطة Excel.
أنا لا أفهم حقًا أنك قلت "جعل كائن مربع الاختيار مربعًا". عادةً ما تتضمن خانة الاختيار حقل المربع وحقل القيمة. Kutools يبقي قيمة مربعات الاختيار فارغة إذا كانت الخلايا المحددة فارغة. وإذا كانت هناك قيم في الخلايا المحددة ، فسيتم أخذ قيمة الخلية كقيمة خانة الاختيار.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد قمت بتحميل صورة لإظهار ما أعنيه. نأمل أن يساعد ذلك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا كوادما ، لقد فهمت وجهة نظرك. سنفكر في الأمر ونشكرك على سعة صدرك.
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL