タグ: LCase

LCase関数はアルファベットの大文字の文字列を小文字に変換します。

UCase関数はアルファベットの小文字の文字列を大文字に変換します。

データベースに書式を統一して登録したい時などに使用します。

LCase関数の構文

LCase(string)

LCase(文字列)

UCase関数の構文

UCase(string)

UCase(文字列)

LCase/UCase関数の使用例

・アルファベットを設定

・空白を設定

・アルファベットと記号の設定

・セルから文字列を取得して隣のセルに設定

・繰り返し処理(Do While文)

の内容で説明していきます。

アルファベットを設定

Sub LCaseUCase1()

    MsgBox LCase("AbCdE") & vbLf & UCase("AbCdE")

End Sub

L/UCase関数内で”AbCdE”を設定します。

vbLfは改行です。

LCaseですべて小文字に変換されました。

UCaseですべて大文字に変換されました。

空白を設定

Sub LCaseUCase2()

    MsgBox LCase("") & vbLf & UCase("")

End Sub

L/UCase関数内は空白です。

何も表示されません。

アルファベットと記号の設定

Sub LCaseUCase3()

    MsgBox LCase("A|B?c&d") & vbLf & UCase("A|B?c&d")

End Sub

L/UCase関数内で”A|B?c&d”を設定します。

LCaseで記号以外は小文字に変換されました。

UCaseで記号以外は大文字に変換されました。

セルから文字列を取得して隣のセルに設定

セルのB2に”AbCdE”が入力されています。

B2の値をLCaseとUCaseを使用した結果をセルに表示します。

Sub LCaseUCase4()

    Dim moji As String
    
    'セルから文字列を取得
    moji = Cells(2, 2)
    Cells(2, 3) = LCase(moji)
    Cells(2, 4) = UCase(moji)
    
End Sub

小文字と大文字に変換されました。

繰り返し処理(Do While文)

B列に複数の文字列が入力されています。

B列の値をLCaseとUCaseを使用した結果をセルに表示します。

Sub LCaseUCase5()

    Dim moji As String
    Dim i As Integer
    
    i = 0
    'B列が空白でない間繰り返し処理
    Do While Cells(2 + i, 2) <> ""
        moji = Cells(2 + i, 2)
        Cells(2 + i, 3) = LCase(moji)
        Cells(2 + i, 4) = UCase(moji)
        i = i + 1
    Loop
    
End Sub

アルファベットが小文字と大文字に変換されました。

今回はLCase/UCase関数を使用した使用例を複数記載致しました。

皆様の参考になれば幸いです。