VBA上、下、および適切な大文字と小文字-大文字と小文字の関数-Excelautomate Excelを自動化する

VBAで作業している間、文字列を小文字、大文字、または適切な大文字に変換する必要があることがよくあります。 これは、関数UCase、LCase、およびStrConvを使用することで可能です。

VBAは大文字と小文字を区別するため、VBAで文字列を操作するときには、これらの関数が重要です。 VBAの大文字と小文字を区別しないようにするには、モジュールの上部にOption Compare Textを追加する必要があります。 あなたはここでこれについての詳細を見つけることができます: VBAの大文字と小文字を区別しないようにする

UCase–文字列を大文字に変換する

VBAのUCase関数は、文字列のすべての文字を大文字に変換します。 引数は1つだけで、文字列、文字列を持つ変数、またはセル値にすることができます。 この関数は、2つの文字列を比較する場合によく使用されます。 UCase関数のコードは次のとおりです:

1
2
3
4
5
6
7
8

Dim strText As String
Dim strTextUCase As String
strText=”大文字の関数を実行しています”
strTextUCase=UCase(strText)
MsgBox strTextUCase

この例では、strText変数のすべての文字を大文字に変換し、変換された文字列をstrTextUCase変数に割り当てます。 最後に、変換された文字列でメッセージボックスを呼び出します:vba-uppercase-function

画像1. VBAでUCase関数を使用する

LCase–文字列を小文字に変換する

文字列のすべての文字を小文字に変換する場合は、LCase関数を使用する必要があります。 この関数には、UCaseと同じ引数が1つあります。 これはLCase関数のコードです:

1
2
3
4
5
6
7
8

Dim strText As String
Dim strTextLCase As String
strText=”小文字の関数を実行しています”
strTextLCase=LCase(strText)
MsgBox strTextLCase

この例では、文字列のすべての文字をa1から小文字に変換します。 その後、変換された文字列がセルA1に割り当てられます。

vba-lowercase-function

画像2. VBAでのLCase関数の使用

StrConv–文字列を適切な大文字と小文字に変換

StrConv関数を使用すると、テキストの文字列を適切な大文字と小文字に変換することができます。 この関数には2つの引数があります。 最初に、変換する文字列です。 第二は、あなたが望む変換のタイプです。 文字列を適切な大文字と小文字に変換するには、それをvbProperCaseに設定する必要があります。 関数のコードは次のとおりです:

1
2
3
4
5
6
7
8

Dim strText As String
Dim strTextProperCase As String
strText = “running proper case function”
strTextProperCase = StrConv(strText, vbProperCase)
MsgBox strTextProperCase

You will see on the example how the function works. セルB1から文字列を取得し、それを適切な大文字と小文字に変換し、セルA1の値を返します。

vba-proper-case-function

画像3. VBAでのStrConv関数の使用

StrConv–文字列を大文字または小文字に変換する

StrConv関数を使用して、文字列を大文字または小文字に変換することもできます。 これを行うには、2番目の引数をvbUpperCaseまたはvbLowerCaseに設定するだけです:

1
strTextConverted=StrConv(strText,vbUpperCase)
1
strTextConverted=StrConv(strText,vbLowerCase)

VBA Upper、Lower、およびProper Case–Access

の大文字と小文字の関数上記の例はすべて、Access VBAでExcel VBAとまったく同じように機能します。

1
2
3
4

Private Sub Clientname_Afterupdate()
‘これにより、クライアント名ボックスのテキストが大文字の
Meに変換されます。ClientName=UCase(Me.クライアント名)
サブ終了

アクセス



+