Hàm StrComp() trong VBA

Hàm StrComp() trong VBA trả về một giá trị nguyên sau khi so sánh hai chuỗi đã cho. Nó có thể trả về bất kỳ giá trị nào trong ba giá trị -1, 0 hoặc 1 dựa trên các chuỗi đầu vào được so sánh.

• Nếu Chuỗi 1 < Chuỗi 2, thì StrComp trả về -1.
• Nếu Chuỗi 1 = Chuỗi 2, thì StrComp trả về 0.
• Nếu Chuỗi 1 > Chuỗi 2, thì StrComp trả về 1.

Cú pháp:

StrComp(string1,string2[,compare])

Mô tả các tham số:

• string1: Tham số bắt buộc. Biểu thức chuỗi đầu tiên.
• string2: Tham số bắt buộc. Biểu thức chuỗi thứ hai.

• compare: Tham số tùy chọn. Chỉ định so sánh chuỗi được sử dụng. Nó có thể có các giá trị được đề cập sau đây.

  0 = vbBinaryCompare - Thực hiện so sánh nhị phân (mặc định).
  1 = vbTextCompare - Thực hiện so sánh kiểu văn bản.

Ví dụ sử dụng hàm StrComp() trong VBA

Sub vidu_ham_StrComp()
   Dim var1 As Variant
   Cells(1, 1) = ("Line 1 :" & StrComp("HOC VBA", "HOC VBA"))
   Cells(2, 1) = ("Line 2 :" & StrComp("vba", "VBA"))
   Cells(3, 1) = ("Line 3 :" & StrComp("VBA_1", "VBA_2"))
   Cells(4, 1) = ("Line 4 :" & StrComp("Microsoft", "MiCrOsOfT", 1))
   Cells(5, 1) = ("Line 5 :" & StrComp("Microsoft", "MiCrOsOfT", 0))
End Sub

Kết quả:

Line 1 :0
Line 2 :1
Line 3 :-1
Line 4 :0
Line 5 :1