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

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

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

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

テキストボックス内の文字列に対してスペルチェックを行うには、以下のVBAコードが役立つかもしれません：

1. まず、開発 > 挿入 > テキストボックス (ActiveXコントロール) をクリックしてテキストボックスを挿入し、ドラッグしてテキストボックスを描画してください。スクリーンショットをご覧ください：

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キーを押してこのコードを実行すると、すぐに「スペル」ダイアログボックスが有効になり、その後、「スペル」機能を使用してテキストボックス内のテキストのスペルチェックを行えます。次のスクリーンショットのように操作してください：

関連記事：

Excelで値に基づいてテキストボックスの色を変更するにはどうすればよいですか？

画像をテキストボックスに挿入するにはどうすればよいですか？

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

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