[ExcelVBA] StrComp関数

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧

■構文
StrComp(string1, string2[, compare])

■説明
文字列の比較を行い結果を返します。
第一引数：比較対象の文字列を指定。
第二引数：比較対象の文字列を指定。
第三引数：(省略可能)文字列比較の比較モードを指定。省略時、Option Compareステートメントの設定にしたがいます。

定数	値	説明
vbUseCompareOption	-1	Option Compare ステートメントの設定を使用して比較を行います。
vbBinaryCompare	0	バイナリ モードの比較を行います。
vbTextCompare	1	テキスト モードの比較を行います。

戻り値

内容	戻り値
string1 は string2 より小さい	-1
string1 と string2 は等しい	0
string1 は string2 より大きい	1
String1 または string2 は Null 値	Null値

■サンプルコード

view plainprint?

1. Option Explicit  
2.   
3. Sub SampleCode()  
4.     'AとBではAの方が先なので小さいになるはず  
5.     Debug.Print StrComp("A", "B", vbBinaryCompare) '-1 (第一引数の方が小さい)  
6.       
7.     '大文字と小文字では大文字の方が先なので小さいになるはず  
8.     Debug.Print StrComp("A", "a", vbBinaryCompare) '-1 (第一引数の方が小さい)  
9.       
10.     '大文字の方が先なので小さいという結果になるはず  
11.     Debug.Print StrComp("B", "a", vbBinaryCompare) '-1  
12.       
13.     'テキストモードで大文字小文字を区別せず比較する  
14.     Debug.Print StrComp("B", "a", vbTextCompare) ' 1  
15. End Sub  

Option Explicit

Sub SampleCode()
    'AとBではAの方が先なので小さいになるはず
    Debug.Print StrComp("A", "B", vbBinaryCompare) '-1 (第一引数の方が小さい)
    
    '大文字と小文字では大文字の方が先なので小さいになるはず
    Debug.Print StrComp("A", "a", vbBinaryCompare) '-1 (第一引数の方が小さい)
    
    '大文字の方が先なので小さいという結果になるはず
    Debug.Print StrComp("B", "a", vbBinaryCompare) '-1
    
    'テキストモードで大文字小文字を区別せず比較する
    Debug.Print StrComp("B", "a", vbTextCompare) ' 1
End Sub

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧