Len関数は、ワークシートとVBAの両方に共通の関数であり、両方のプラットフォームに組み込まれている関数であり、この関数を使用するための構文も類似しています。この関数が両方のプラットフォームで取る引数は類似しており、文字列と使用法です。または、この関数の出力は、文字列の長さを返すのと同じです。
VBALEN関数
VBA LEN関数は、「文字列の長さ」を返します。つまり、指定された値に含まれる文字数を返します。VBAのすべての文字列関数の中で、「LEN」は最も活用されていない関数です。「VBALEN」関数は、VBAMID関数やVBARIGHT関数などの他の文字列関数のサポート関数として使用されています。
文字列または値の長さをどのように見つけますか?
たとえば、「Hello Guys、GoodMorning !!!」という文の場合 その中の文字数を知りたい場合、どのように見つけますか?この記事では、「VBALEN」機能を紹介します。
VBALEN関数の式
LEN関数には、式という1つの構文しかありません。
式は、テストしようとしている値に他なりません。
たとえば、Len(「Good」)は4を返します。
例
以下は、文字列関数のVBA長さの例です。
例1
VBA文字列関数の長さは非常に簡単に使用できます。たとえば、以下のVBAコードを見てください。
コード:
Sub LEN_Example()Dim Total_Length As String Total_Length = Len( "Excel VBA")MsgBox Total_Length End Sub
上記のコード変数は「Total_Length」です。
Dim Total_Length As String
この変数には、VBALEN関数を使用して値を割り当てています。
Total_Length = Len( "Excel VBA")
LEN関数には、「ExcelVBA」という値を割り当てています。
Total_Length = Len( "Excel VBA")
次に、VBAメッセージボックスに結果を表示します。
MsgBox Total_Length
F5キーを使用して、または手動でこのコードを実行すると、スペースも文字であるため、結果として9が得られます。
サポート機能としてのVBALEN
例1
LEN関数の目的は、主に他の関数で使用されます。私はこの関数をRIGHT&Instr関数で使用しました。
たとえば、以下のサンプルデータを見てください。
上記のデータから、日付と備考を別々に抽出する必要があります。上記のデータをExcelシートにコピーして、セルA1に貼り付けます。
これらの要素を抽出するには、LEN関数を他の文字列関数と一緒に使用する必要があります。以下のコードは私たちのために仕事をします。
コード:
Sub LEN_Example1()Dim OurValue As String Dim k As Long For k = 2 To 6 'この場合、データは2番目のセルから始まり、6番目で終わります。'データに基づいて数値を変更しますOurValue = ActiveSheet.Cells(k、1).Value'これにより、最初の10文字、つまり日付部分ActiveSheet.Cells(k、2).Value = Left(Trim(OurValue)、10)が抽出されます。 'これにより、備考部分ActiveSheet.Cells(k、3).Value = Mid(Trim(OurValue)、11、Len(Trim(OurValue))-10)Next EndSubが抽出されます。
このコードを手動またはF5キーで実行すると、次のような結果が得られます。
例2
次に、VBA文字列の長さをサポート関数として使用して、RIGHT&Instr関数でフルネームの姓を抽出する方法を示します。
デモについては、以下のデータをご覧ください。
From the above list, we need to extract the Last Name from the full name. The below code will extract the last name. LEN used as a support function here.
Code:
Sub LEN_Example2() Dim FullName As String Dim k As Long For k = 2 To 8 FullName = ActiveSheet.Cells(k, 1).Value 'This will extract last name ActiveSheet.Cells(k, 2).Value = Right(FullName, Len(FullName) - InStr(1, FullName, " ")) 'LEN finds full number of characters 'Instr finds space character 'LEN - Inst will gives total characters from the right Next End Sub
Run the code using the F5 key or you can run manually and see the result.
You can download this Excel VBA Length of String here – VBA LEN Function Template