かなりの量のテキストが含まれているワークシートを使用する場合、大文字と小文字を簡単に変換できるWordのような関数が必要になる場合があります。 Excelにはそのような関数が含まれていますが、メニューからのコマンドとしてではなく、マクロで使用するように設計されています。

範囲のセルにテキストを再入力せずに、広範囲のテキストをすばやく変換する場合は、次のマクロを使用できます。

Sub MakeUpper()

Dim MyText As String     Dim MyRange As Range     Dim CellCount As Integer

Set MyRange = ActiveSheet.Range(ActiveWindow.Selection.Address)

For CellCount = 1 To MyRange.Cells.Count         If Not MyRange.Cells(CellCount).HasFormula Then             MyText = MyRange.Cells(CellCount).Value             MyRange.Cells(CellCount).Value = UCase(MyText)

End If     Next CellCount End Sub

このマクロは、選択した範囲のセルをステップスルーし、数式を含まないセルの内容を大文字に変換します。 UCase関数（マクロの下部近くで使用）をLCaseに変更することで、マクロを小文字に変換するように簡単に変更できます。もう1つの気の利いた変更は、大文字または小文字の代わりに大文字小文字を使用する場合です。 （タイトルの場合は、各単語の最初の文字のみが大文字になります。）これを行うには、UCase（MyText）をApplication.Proper（MyText）に置き換えます。

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

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

このヒント（1970）は、Microsoft Excel 97、2000、2002、および2003に適用されます。