كيف يمكن تطبيق التدقيق الإملائي في مربع النص؟
يمكننا بسهولة تطبيق وظيفة التدقيق الإملائي على سلسلة نصية موجودة في خلية، لكن هذه الميزة لا تمتد إلى مربعات النص. في هذه المقالة، سأشرح لك كيفية تفعيل التدقيق الإملائي داخل مربع النص.
تطبيق التدقيق الإملائي في مربع نص باستخدام كود VBA
تطبيق التدقيق الإملائي في مربع نص باستخدام كود VBA
لإجراء تدقيق إملائي على السلسلة النصية في مربع نص، قد يساعدك كود VBA التالي:
1. أولاً، يُرجى إدراج مربع نص بالنقر علىالمطوّر > إدراج > مربع نص (عنصر تحكم ActiveX)، ثم اسحب لرسم مربع النص. انظر لقطة الشاشة:
2. بعد ذلك، يُرجى الخروج من وضعالتصميملإدخال السلسلة النصية في مربع النص حسب الحاجة. وبعد كتابة النص، قم بتمكين وضعالتصميممجددًا، ثم انقر بزر الماوس الأيمن على مربع النص واخترعرض الكودمن قائمة السياق. انظر لقطة الشاشة:
3. في نافذةمايكروسوفت فيجوال بيسك للتطبيقاتالمفتوحة، يُرجى استبدال الكود الأصلي بالكود التالي من VBA في الوحدة النمطية.
كود 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؟
كيف يمكن إدراج صورة داخل مربع نص؟
كيف يمكن تعيين قيمة افتراضية في مربع النص؟
كيف يمكن السماح بإدخال الأرقام فقط في مربع النص؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل