機能 | 関数 | 使用例(簡易) | 結果 | 使用例説明(結果内容) |
---|---|---|---|---|
文字列の文字数を返す。 | Len(文字列) | Len(”ABCDE”) | 5 | 文字列数を返しましました。 |
文字列の右から文字数分の文字列を取り出します。 | Rigth(文字列,文字数) | Rigth("あいうえお",3) | うえお | 文字列の右側から3文字分取り出しました。 |
文字列の左から文字数分の文字列を取り出します。 | Left(文字列,文字数) | Left("あいうえお",3) | あいう | 文字列の左側から3文字分取り出しました。 |
指定した文字列位置から指定した文字数分文字列を返します。 | Mid(文字列,開始位置,文字数) | Mid("ABCDEFG",3,4) | CDEF | 文字列の3番目から4文字分を取り出します。 |
アルファベットの大文字を小文字に変換します。 | LCase(文字列) | LCase("ABCDEF") LCase("AbCdEf") | abcdef abcdef | 大文字から小文字に変換しました。 |
アルファベットの小文字を大文字に変換します。 | UCase(文字列) | UCase("abcdef") UCase("ABCdef") | ABCDEF ABCDEF | 小文字から大文字に変換しました。 |
文字列の先頭文字列(半角・全角)のスペースを削除する。 | LTrim(文字列) | LTrim(" Sunday") | Sunday | 先頭のスペース削除されました。 |
文字列の末尾文字列の(半角・全角)スペースを削除する。 | RTrim(文字列) | RTrim(”Monday ”) | Monday | 末尾のスペース削除されました。 |
文字列の先頭・末尾文字列の(半角・全角)スペースを削除する。 | Trim(文字列) | Trim(" Tuesday ") | Tuesday | 先頭と末尾のスペース削除されました。 |
指定した文字列に対して設定した数値に応じで半角スペースを入れいます。 | Space(数値) | ”UP” & Space(5) & "Down" | Up Down | 指定した半角スペースが追加されました。 |
指定した文字列を繰り返し数の数値分を繰り返します。 | String(繰り返し数,文字列) | String(3,"A") | AAA | ”A”の文字列を繰り返し数(3)で繰り返します。 |
指定した文字列の文字コードを返します。 | Asc(文字列) | Asc("X") | 88 | Xの文字コードを返します。 |
' '******** AKIRA55.COM ******* https://akira55.com/vba_function_moji/ ' Sub Len文字列() Dim I, L As Long For I = 2 To 8 L = Len(Range("A" & I)) Range("B" & I) = L Next I End Sub '
' '******** AKIRA55.COM ******* https://akira55.com/vba_function_moji/ ' Sub Right文字列() Dim I As Long Dim L As String For I = 2 To 8 L = Right(Range("A" & I), 3) Range("B" & I) = L Next I End Sub '
' '******** AKIRA55.COM ******* https://akira55.com/vba_function_moji/ ' Sub Left文字列() Dim I As Long Dim L As String For I = 2 To 13 L = Left(Range("A" & I), 3) Range("B" & I) = L Next I End Sub '
' '******** AKIRA55.COM ******* https://akira55.com/vba_function_moji/ ' Sub Mid文字列() Dim I As Long Dim L As String For I = 2 To 6 L = Mid(Range("A" & I), 1, 2) '1文字目から2文字 Range("B" & I) = L L = Mid(Range("A" & I), 3, 2) '3文字目から2文字 Range("C" & I) = L Next I End Sub '
下記のサンプルプログラムは、指定した文字列のアルファベットを大文字から小文字に変換します。
' '******** AKIRA55.COM ******* https://akira55.com/vba_function_moji/ ' Sub LCase文字列() Dim I As Long Dim L As String For I = 2 To 13 L = LCase(Range("A" & I)) '大文字⇒小文字に変換 Range("B" & I) = L Next I End Sub '
' '******** AKIRA55.COM ******* https://akira55.com/vba_function_moji/ ' Sub UCase文字列() Dim I As Long Dim L As String For I = 2 To 13 L = UCase(Range("A" & I)) '小文字⇒大文字に変換 Range("B" & I) = L Next I End Sub '
' '******** AKIRA55.COM ******* https://akira55.com/vba_function_moji/ ' Sub LTrim文字列() Dim I As Long Dim L As String For I = 2 To 5 L = LTrim(Range("A" & I)) '先頭文字列(半角・全角)のスペースを削除 Range("B" & I) = L Next I End Sub '
' '******** AKIRA55.COM ******* https://akira55.com/vba_function_moji/ ' Sub RTrim文字列() Dim I As Long Dim L As String For I = 2 To 5 L = RTrim(Range("A" & I)) '末尾の文字列(半角・全角)のスペースを削除 Range("B" & I) = L Next I End Sub '
' '******** AKIRA55.COM ******* https://akira55.com/vba_function_moji/ ' Sub Trim文字列() Dim I As Long Dim L As String For I = 2 To 6 L = Trim(Range("A" & I)) '左右のスペースを削除 Range("B" & I) = L Next I End Sub '
' '******** AKIRA55.COM ******* https://akira55.com/vba_function_moji/ ' Sub Space数値() Dim I As Long Dim L As String For I = 2 To 8 L = Space(8 - I) & "Left" & Space(I * 2) & "Rigth" 'スペースを数値分空ける Range("B" & I) = L Next I End Sub '
' '******** AKIRA55.COM ******* https://akira55.com/vba_function_moji/ ' Sub String数値() Dim I As Long For I = 2 To 7 Range("C" & I) = String(Range("A" & I), Range("B" & I)) Next I End Sub '
' '******** AKIRA55.COM ******* https://akira55.com/vba_function_moji/ ' Sub ASC文字列() Dim I As Long For I = 2 To 10 Range("B" & I) = Asc(Range("A" & I)) '文字コードを返します。 Next I End Sub '