テキストボックスでスペルチェックを適用するにはどうすればよいですか？

スペルチェック機能を適用してセルからテキスト文字列をスペルチェックすることは簡単にできますが、この機能はスペルチェック用のテキストボックスには適用されません。 この記事では、テキストボックスでスペルチェックを適用する方法について説明します。

VBAコードを使用してテキストボックスにスペルチェックを適用する

VBAコードを使用してテキストボックスにスペルチェックを適用する

テキストボックスのテキスト文字列をスペルチェックするには、以下のVBAコードを使用するとよいでしょう。

1。 まず、をクリックしてテキストボックスを挿入してください Developer > インセット > テキストボックス（ActiveXコントロール）、ドラッグしてテキストボックスを描画します。スクリーンショットを参照してください。

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の値に基づいてテキストボックスの色を変更するにはどうすればよいですか？

テキストボックスに画像を挿入する方法は？

テキストボックスにデフォルト値を設定するにはどうすればよいですか？

テキストボックスに数字のみを入力できるようにするにはどうすればよいですか？