VBA strComp()函式

在比較兩個給定字串後，StrComp函式返回一個整數值。它可以根據要比較的輸入字串返回三個值：-1,0或1中的任何一個。如下 -

• 如果 String1 < String2, 那麼 StrComp 函式返回 -1
• 如果 String1 = String2, 那麼 StrComp 函式返回 0
• 如果 String1 > String2, 那麼 StrComp 函式返回 1

語法

StrComp(string1,string2[,compare])

引數說明

• String1 - 必需的引數。第一個字串表示式。
• String2 - 必需的引數。第二個字串表示式。
• Compare - 一個可選引數。 指定要使用的字串比較。它可以採用以下值。
  • 0 = vbBinaryCompare - 執行二進位制比較(預設)
  • 1 = vbTextCompare - 執行文字比較

範例

新增一個模組，並將下面的程式碼放在編輯器中。

Private Sub Constant_demo_Click()
   Dim var1 as Variant
   msgbox("Line 1 :" & StrComp("Microsoft","Microsoft"))
   msgbox("Line 2 :" &StrComp("Microsoft","MICROSOFT"))
   msgbox("Line 3 :" &StrComp("Microsoft","MiCrOsOfT"))
   msgbox("Line 4 :" &StrComp("Microsoft","MiCrOsOfT",1))
   msgbox("Line 5 :" &StrComp("Microsoft","MiCrOsOfT",0))
End Sub

執行上面範例程式碼，得到以下結果 -

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