スキルアップ・問題解決なら、モーグにおまかせ！

アルファベットの小文字を大文字に変換します。アルファベットの小文字以外は影響を受けません。


　構文　UCase(String)

　設定項目        内容
　String　　　　　変換対象の文字列を指定　[省略不可]


次のコードは、アクティブシートに入力されている文字列を対象に、小文字を大文字に変換します。


●サンプル●

Sub UcaseSamp1()
    Dim c As Range

    For Each c In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)
       c.Value = UCase(c.Value)   '---セルの小文字を大文字に変換
    Next

End Sub

このサンプルを実行すると全てのセルの小文字が大文字に変換されます。