จะใช้การตรวจสอบการสะกดในช่องข้อความได้อย่างไร?

เราสามารถใช้ฟังก์ชันการสะกดเพื่อตรวจสอบการสะกดของสตริงข้อความจากเซลล์ได้อย่างง่ายดาย แต่ฟีเจอร์นี้ไม่ได้ใช้กับช่องข้อความสำหรับการตรวจการสะกด ในบทความนี้ฉันจะพูดถึงวิธีใช้การตรวจสอบการสะกดในกล่องข้อความ

ใช้การตรวจสอบการสะกดในกล่องข้อความด้วยรหัส VBA

ใช้การตรวจสอบการสะกดในกล่องข้อความด้วยรหัส VBA

หากต้องการสะกดให้ตรวจสอบสตริงข้อความในกล่องข้อความรหัส VBA ด้านล่างอาจช่วยคุณได้:

1. ขั้นแรกโปรดใส่กล่องข้อความโดยคลิก ผู้พัฒนา > สิ่งที่ใส่เข้าไป > กล่องข้อความ (ActiveX Control)แล้วลากเพื่อวาดกล่องข้อความดูภาพหน้าจอ:

2. จากนั้นโปรดออกจากไฟล์ โหมดการออกแบบ เพื่อป้อนสตริงข้อความลงในกล่องข้อความตามที่คุณต้องการหลังจากพิมพ์ข้อความแล้วให้เปิดใช้งานไฟล์ โหมดการออกแบบแล้วคลิกขวาที่กล่องข้อความเพื่อเลือก ดูรหัส จากเมนูบริบทดูภาพหน้าจอ:

3. ในการเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดแทนที่รหัสเดิมด้วยรหัส 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

จะแทรกรูปภาพลงในกล่องข้อความได้อย่างไร?

จะตั้งค่าเริ่มต้นในกล่องข้อความได้อย่างไร?

จะอนุญาตให้ป้อนเฉพาะตัวเลขในกล่องข้อความได้อย่างไร?