Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

Option Compare ステートメント

2015/04/04

Option Compare ステートメントの使い方

【書式】

Option Compare { Binary | Text | Database }

項目の説明

Binary ・・・バイナリ文字コード順によって並べ替え順序が決まります。Option Compare ステートメントの記述がない場合はこの Binary モードが使用されます。
Text ・・・ 50音順による並べ替え順になります。ただし、大文字と小文字、文字幅、カタカナとひらがなは区別しません。
Database ・・・ Microsoft Access でのみ使用できます。

Option Compare ステートメントは、文字列データの既定の比較方法を設定します。
宣言セクション内（モジュールの先頭部分）に記述し、モジュールレベルで使用します。

Option Compare ステートメントの使用例

サンプルVBAソース（Text モード）

　
Option Compare Text

Sub sample_option_compare_text()


    MsgBox """a""=""A""  ：　" & IIf("a" = "A", True, False) & Chr(13) & _
           """*""=""＊"" ：　" & IIf("*" = "＊", True, False) & Chr(13) & _
           """５""=""5"" ：　" & IIf("*" = "＊", True, False) & Chr(13) & _
           """？""=""?"" ：　" & IIf("*" = "＊", True, False) & Chr(13) & _
           """ア""=""あ""：　" & IIf("ア" = "ｱ", True, False) & Chr(13) & _
           """ア""=""ｱ"" ：　" & IIf("ア" = "ｱ", True, False)
    
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

　

Option Compare Text

Sub sample_option_compare_text()

MsgBox """a""=""A"" ：　" & IIf("a" = "A", True, False) & Chr(13) & _

"""*""=""＊"" ：　" & IIf("*" = "＊", True, False) & Chr(13) & _

"""５""=""5"" ：　" & IIf("*" = "＊", True, False) & Chr(13) & _

"""？""=""?"" ：　" & IIf("*" = "＊", True, False) & Chr(13) & _

"""ア""=""あ""：　" & IIf("ア" = "ｱ", True, False) & Chr(13) & _

"""ア""=""ｱ"" ：　" & IIf("ア" = "ｱ", True, False)

End Sub

　

実行結果

サンプルVBAソース（Binary モード）

Option Compare Binary　　　　'「規定値」なのでなくても同じ

Sub sample_option_compare_text()


    MsgBox """a""=""A""  ：　" & IIf("a" = "A", True, False) & Chr(13) & _
           """*""=""＊"" ：　" & IIf("*" = "＊", True, False) & Chr(13) & _
           """５""=""5"" ：　" & IIf("*" = "＊", True, False) & Chr(13) & _
           """？""=""?"" ：　" & IIf("*" = "＊", True, False) & Chr(13) & _
           """ア""=""あ""：　" & IIf("ア" = "ｱ", True, False) & Chr(13) & _
           """ア""=""ｱ"" ：　" & IIf("ア" = "ｱ", True, False)
    
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

Option Compare Binary　　　　'「規定値」なのでなくても同じ

Sub sample_option_compare_text()

MsgBox """a""=""A"" ：　" & IIf("a" = "A", True, False) & Chr(13) & _

"""*""=""＊"" ：　" & IIf("*" = "＊", True, False) & Chr(13) & _

"""５""=""5"" ：　" & IIf("*" = "＊", True, False) & Chr(13) & _

"""？""=""?"" ：　" & IIf("*" = "＊", True, False) & Chr(13) & _

"""ア""=""あ""：　" & IIf("ア" = "ｱ", True, False) & Chr(13) & _

"""ア""=""ｱ"" ：　" & IIf("ア" = "ｱ", True, False)

End Sub

　

実行結果

- VBA基本 Option Compare Binary, Option Compare Text, Option Compare ステートメント, VBA基本, エクセルVBA

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 指定した値を8進数で表記した文字列に変換する（Oct 関数）

Oct 関数の使い方【書式】 result = Oct ( expressi …

: 日付時刻：時・分・秒を取得（Hour、Minute、Second 関数）

日付時刻から時・分・秒を取得する関数【書式】 time_hour = Hour …

: Split 関数（文字列型の一次配列を作成）

Split 関数の使い方【書式】 myArray = Split ( expr …

: オートシェイプの種類を表す定数（MsoAutoShapeType 列挙型）

MsoAutoShapeType 列挙型オートシェイプオブジェクトの図形の種類 …

: 四捨五入・切り上げ・切り捨て・丸め（Round 関数他）

Round 関数（丸め）の使い方【書式】 value = Round ( ex …

: 文字列：文字列変数の値を右詰めまたは左詰めにする（RSet ステートメント・LSet ステートメント）

RSet ステートメント・LSet ステートメント【書式】＜ RSet ステ …

: VBA の演算子（比較演算子）

比較演算子比較演算子による演算の結果は「真」の場合は「True」、「偽」の場合 …

: 日付時刻：日付時刻から情報取得（ DatePart 関数）

DatePart 関数（日付・時刻の値から情報を取得）【書式】 result …

: 配列の要素数を取得する（UBound 関数・LBound 関数）

UBound 関数・LBound 関数【書式】 result = UBound …

: 引数の整数部分を取得する（Fix 関数・Int 関数）

Fix 関数・Int 関数の使い方【書式】 number_fix = Fix …

PREV: Split 関数（文字列型の一次配列を作成）
NEXT: コレクション（Collection）オブジェクト「連想配列」