Hur använder jag stavningskontroll i textrutan?

Vi kan enkelt använda stavningsfunktionen för att stavningskontrollera textsträngen från en cell, men den här funktionen tillämpas inte på textrutan för stavningskontroll. I den här artikeln kommer jag att prata om hur man tillämpar stavningskontrollen i en textruta.

Använd stavningskontroll i en textruta med VBA-kod

Använd stavningskontroll i en textruta med VBA-kod

För att stavningskontrollera textsträngen i en textruta kan nedanstående VBA-kod göra dig en tjänst:

1. Först, vänligen infoga en textruta genom att klicka Utvecklare > Insert > Textruta (ActiveX-kontroll), och dra för att rita en textruta, se skärmdump:

2. Gå sedan ur Designläge för att skriva in textsträngen i textrutan som du behöver, efter att ha skrivit texten, fortsätt att aktivera Designläge, och högerklicka på textrutan för att välja Visa kod från snabbmenyn, se skärmdump:

3. I det öppnade Microsoft Visual Basic för applikationer fönster, ersätt originalkoden med följande VBA-kod i modulen.

VBA-kod: Använd stavningskontroll i textrutan:

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. Och tryck sedan på F5 nyckeln för att köra den här koden, den Stavning dialogrutan aktiveras på en gång, sedan kan du använda Stavning funktion för att stavningskontrollera texten i textrutan som följande skärmdump visas:

Relaterade artiklar:

Hur ändrar jag textrutans färg baserat på värde i Excel?

Hur infogar jag bilden i textrutan?

Hur ställer jag in ett standardvärde i en textruta?

Hur tillåter jag att endast siffror matas in i textrutan?