Hướng dẫn này sẽ trình bày cách sử dụng hàm Len VBA để lấy độ dài của một chuỗi.
Hàm Len
Hàm VBA Len trả về độ dài của một chuỗi được chỉ định.
VBA Len Count Characters
Hàm VBA Len đếm các ký tự trong một chuỗi.
1234567891011121314151617 | Sub LenExample_1 ()MsgBox Len ("12345") 'Kết quả là: 5MsgBox Len ("12") 'Kết quả là: 2MsgBox Len ("1") 'Kết quả là: 1MsgBox Len ("") 'Kết quả là: 1'Có một ký tự khoảng trắng trong đó.MsgBox Len ("") 'Kết quả là: 0MsgBox Len ("AB Cd") 'Kết quả là: 5Kết thúc Sub |
VBA Len Strings hoặc Variants
Hàm Len VBA có thể đếm số ký tự trong các biến được khai báo dưới dạng chuỗi hoặc biến thể. Trên thực tế, VBA Len sẽ coi một biến thể là một chuỗi. Nếu VBA Len được sử dụng với một số nguyên, dài, đơn hoặc kép thì VBA Len sẽ đếm số byte cần thiết để lưu trữ biến.
123456789101112131415161718192021222324252627282930313233 | Sub LenExample_2 ()Dim VarEx1 dưới dạng chuỗiVarEx1 = 12345MsgBox Len (VarEx1) 'Kết quả là: 5'Len đang đếm số ký tự trong biếnDim VarEx2 làm biến thểVarEx2 = 12345MsgBox Len (VarEx2) 'Kết quả là: 5'Len đang đếm số ký tự trong biếnDim VarEx3 As IntegerVarEx3 = 12345MsgBox Len (VarEx3) 'Kết quả là: 2'Len đang đếm số byte được sử dụng để lưu trữ biếnDim VarEx4 As LongVarEx4 = 12345MsgBox Len (VarEx4) 'Kết quả là: 2'Len đang đếm số byte được sử dụng để lưu trữ biếnDim VarEx5 As SingleVarEx5 = 12345MsgBox Len (VarEx5) 'Kết quả là: 2'Len đang đếm số byte được sử dụng để lưu trữ biếnDim VarEx6 As DoubleVarEx6 = 12345MsgBox Len (VarEx6) 'Kết quả là: 2'Len đang đếm số byte được sử dụng để lưu trữ biếnKết thúc Sub |
VBA Len Count Lần xuất hiện của một nhân vật
Hàm VBA Len có thể được sử dụng với hàm VBA Replace để đếm số lần một ký tự được tìm thấy trong một chuỗi.
Hàm Thay thế VBA có thể thay thế một chuỗi con bằng một chuỗi con khác trong văn bản:
1 | MsgBox Replace ("XBCX", "X", "7") 'Kết quả là: "7BC7" |
Chúng ta có thể sử dụng Replace để xóa các ký tự mà chúng ta muốn đếm bằng “” và sau đó tìm sự khác biệt về độ dài trước và sau khi thay thế.
1234567891011121314 | Sub LenExample_3 ()Dim StrEx As String 'Xác định một biến chuỗiStrEx = "Jack, John, Jim, Jordan"MsgBox Len (StrEx) - Len (Replace (StrEx, ",", "")) 'Kết quả là: 3'Chia nhỏ đoạn mã trênMsgBox Len (StrEx) 'Kết quả là: 20MsgBox Replace (StrEx, ",", "") 'Kết quả là: "JackJohnJimJordan"MsgBox Len (Replace (StrEx, ",", "")) 'Kết quả là: 17MsgBox Len (StrEx) - Len (Replace (StrEx, ",", "")) 'Kết quả là: 20-17 = 3Kết thúc Sub |
VBA Len Count Lần xuất hiện của một chuỗi con
Hàm VBA Len có thể được sử dụng với hàm VBA Replace để đếm số lần một chuỗi con được tìm thấy trong một chuỗi.
Hàm Thay thế VBA có thể thay thế một chuỗi con bằng một chuỗi con khác trong văn bản:
1 | MsgBox Replace ("XB cX", "X", "7") 'Kết quả là: "7B c7" |
Chúng ta có thể sử dụng Replace để loại bỏ các chuỗi con mà chúng ta muốn đếm bằng “” và sau đó tìm sự khác biệt về độ dài trước và sau khi thay thế. Cuối cùng, chúng ta cần chia sự khác biệt với độ dài của chuỗi con mà chúng ta đã thay thế.
12345678910111213141516171819 | Sub LenExample_4 ()Dim StrEx As String 'Xác định một biến chuỗiStrEx = "Jack, John, Jim, Jordan"Dim SubStr As String 'Xác định một biến chuỗi conSubStr = ","'Chúng tôi sẽ tìm bao nhiêu lần SubStr được tìm thấy bên trong StrExMsgBox (Len (StrEx) - Len (Replace (StrEx, SubStr, ""))) / Len (SubStr) 'Kết quả là: 3'Chia nhỏ đoạn mã trênMsgBox Len (StrEx) 'Kết quả là: 23MsgBox Replace (StrEx, SubStr, "") 'Kết quả là: "JackJohnJimJordan"MsgBox Len (Replace (StrEx, SubStr, "")) 'Kết quả là: 17MsgBox Len (StrEx) - Len (Replace (StrEx, SubStr, "")) 'Kết quả là: 23-17 = 6MsgBox (Len (StrEx) - Len (Thay thế (StrEx, SubStr, ""))) / Len (SubStr)'Kết quả là: (23-17) / 2 = 3Kết thúc Sub |