كيفية تطبيق التدقيق الإملائي في مربع النص؟

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

قم بتطبيق التدقيق الإملائي في مربع نص به كود فبا

قم بتطبيق التدقيق الإملائي في مربع نص به كود فبا

للتدقيق الإملائي في السلسلة النصية في مربع نص ، قد يكون رمز VBA أدناه مفيدًا لك:

1. أولاً ، الرجاء إدخال مربع نص بالضغط المطور > إدراج > مربع نص (عنصر تحكم ActiveX)، واسحب لرسم مربع نص ، انظر الصورة:

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

3. في فتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى استبدال الكود الأصلي برمز VBA التالي في الوحدة النمطية.

كود فبا: تطبيق التدقيق الإملائي في مربع النص:

Sub SpellChkRvw_Click()
    Dim xObject As Object
    Dim xCell As Range
    On Error Resume Next
    Set xCell = ActiveSheet.Cells(ActiveSheet.Rows.Count, ActiveSheet.Columns.Count)
    If ActiveSheet.OLEObjects.Count > 0 Then
        For Each xObject In ActiveSheet.OLEObjects
            xCell = xObject.Object.Text
            xCell.CheckSpelling , , , 1033
            xObject.Object.Text = xCell
        Next
    End If
End Sub

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

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

كيفية تغيير لون مربع النص بناءً على القيمة في Excel؟

كيفية إدراج الصورة في مربع النص؟

كيفية تعيين قيمة افتراضية في مربع نص؟

كيف يمكن السماح بإدخال الأرقام فقط في مربع النص؟