ブライアンは、自分のオフィスで共有されているExcelワークブックを持っています。彼はワークブックを作成してデフォルトのフォントを設定しましたが、誰かがフォントを変更しています。

ブライアンは、ワークブックを閉じたときに、フォントを目的のフォントに強制できるかどうか疑問に思います。

これを行う簡単な方法は、ブックのBeforeCloseイベントハンドラーを使用することです。ハンドラーに各ワークシートをステップスルーさせ、次の方法ですべてのセルのフォントを設定できます。

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim s As Worksheet

For Each s In ActiveWorkbook.Sheets         s.Cells.Font.Name = "Calibri"

Next End Sub

これにより、フォントがCalibriに設定されますが、必要に応じてフォント名を変更できます。他のフォント特性を変更する必要がある場合は、イベントハンドラーを変更して変更できます。

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim s As Worksheet

For Each s In ActiveWorkbook.Sheets         With s.Cells.Font             .Name = "Calibri"

.Size = 10         End With     Next End Sub

ただし、太字や斜体など、残しておきたいフォントの特性を削除してしまう可能性があるため、あまりにも多くのフォント特性を変更する場合は注意が必要です。

これらのマクロは、Visual BasicEditorのThisWorkbookオブジェクトに追加する必要があることに注意してください。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（4801）は、Microsoft Excel 2007、2010、2013、および2016に適用されます。