Vba-strcomp-function

VBA-strComp

StrComp関数は、指定された2つの文字列を比較した後に整数値を返します。 比較する入力文字列に基づいて、-1、0、または1の3つの値のいずれかを返すことができます。

• 文字列1 <文字列2の場合、StrCompは-1を返します
• 文字列1 =文字列2の場合、StrCompは0を返します
• 文字列1>文字列2の場合、StrCompは1を返します

構文

StrComp(string1,string2[,compare])

Copy

パラメータ説明

• String1 -必須パラメーター。 最初の文字列式。
• String2 -必須パラメーター。 2番目の文字列式。
• 比較-オプションのパラメーター。 使用する文字列比較を指定します。 次の値を取ることができます。
• 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

Copy

上記の関数を実行すると、次の出力が生成されます。

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

Copy