כיצד להחיל בדיקת איות בתיבת טקסט?

ניתן בקלות להחיל את פונקציית האיות כדי לבדוק את מחרוזת הטקסט מתא מסוים, אך תכונה זו אינה חלה על תיבת הטקסט לבדיקת איות. במאמר זה, אני אדבר על איך להחיל את בדיקת האיות בתיבת טקסט.

החל בדיקת איות בתיבת טקסט עם קוד VBA

החל בדיקת איות בתיבת טקסט עם קוד VBA

כדי לבדוק את מחרוזת הטקסט בתיבת טקסט, הקוד VBA הבא עשוי לעזור לך:

1. ראשית, אנא הוסף תיבת טקסט על ידי לחיצה על מפתח > הוסף > תיבת טקסט (ActiveX Control), וגרור כדי לצייר תיבת טקסט, ראה צילום מסך:

2. לאחר מכן, אנא לצאת ממצב עיצוב כדי להכניס את מחרוזת הטקסט לתיבת הטקסט כנדרש, אחרי הקלדת הטקסט, המשך לאפשר את מצב העיצוב, ולחץ לחיצה ימנית על תיבת הטקסט כדי לבחור קוד תצוגה מהתפריט הקונטקסטואלי, ראה צילום מסך:

3. בחלון Microsoft Visual Basic for Applications שנפתח, אנא החלף את הקוד המקורי עם הקוד 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 כדי להריץ את הקוד הזה, תיבת הדו-שיח איות מופעלת מייד, ואז תוכל להשתמש בפונקציית האיות כדי לבדוק את הטקסט לתוך תיבת הטקסט כפי שמוצג בסcreenshot הבא:

מאמרים קשורים:

כיצד לשנות את צבע תיבת הטקסט בהתבסס על ערך ב-Excel?

כיצד להכניס תמונה לתוך תיבת טקסט?

כיצד לקבוע ערך ברירת מחדל בתיבת טקסט?

כיצד לאפשר רק מספרים להקלדה בתיבת טקסט?