複数の Excel ブックのスペル チェック

複数の Excel ブックのスペル チェック

複数の Excel シートをすべて開いて手動でスペルチェックを実行することなく、複数のシートにわたってスペルチェックを行う方法を提案してもらえますか?

これまでは作業を進めながら主にチェックしてきましたが、承認される前にすべてのドキュメントを最後にもう一度スキャンしておきたいと思います。

すべてを個別に実行せずに、複数のワークブック、つまり異なるファイルをチェックしたいです。ワークブックが約 60 個あります。

答え1

下部にあるシート名を右クリックし、すべてのシートを選択して、F7 キーを押します。

答え2

Excel は閉じたブックのスペルをチェックできません。したがって、各ファイルを開いてスペルをチェックし、ファイルを閉じて次のファイルに移動するためのコードを記述する必要があります。これは開発がかなり複雑で面倒です。ここではそれを行いません。そこで、ほぼ目的を達成できる代替手段を紹介します。

以下の VBA をThisWorkbookVBA エクスプローラーのオブジェクトに追加します。このマクロを実行すると、混乱を避けるために を除くすべての開いているブックのスペルがチェックされますPERSONAL.xlsb

Sub SpellCheckOpenWorkbooks()

'LOOP SOURCE: www.TheSpreadsheetGuru.com

Dim wb As Workbook
Dim sht As Worksheet


For Each wb In Application.Workbooks
  If wb.Name <> "PERSONAL.xlsb" Then
    For Each sht In wb.Worksheets

        sht.Cells.CheckSpelling

    Next sht
  End If
Next wb

End Sub

したがって、チェックするブックを開いて、マクロを実行します。

ソース for ループ VBA -現在開いているすべてのワークブックのすべてのワークシートをループする

注意: 自己責任で使用してください。開始する前に必ず作業内容を保存してください。

関連情報