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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 指定した数値に対応する選択肢の値・数式を返す（Choose 関数）

Choose 関数の使い方 Choose 関数は、指定されたインデックス値（１ …

: 文字列：指定した文字コードに対応する文字を返す（Chr 関数）

Chr 関数の使い方【書式】 result = Chr ( code ) 引数 …

: 日付時刻：文字列から日付・時刻データを取得（ DateValue 関数、TimeValue 関数）

DateValue 関数（文字列から日付データを取得）【書式】 date_va …

: CPU に制御を移す（DoEvents 関数）

DoEvents 関数 DoEvents 関数を実行すると、CPU に制御を移し …

: 文字列：文字列の指定した位置から指定文字数取得（Mid 関数,MidB 関数）

Mid 関数・MidB 関数の使い方【書式】 result_mid = Mi …

: 対象のオブジェクトをクリアする（Clear メソッド）

Clear メソッド対象となるオブジェクト全体をクリアします。Range オブ …

: ポイント単位の値に変換（CentimetersToPoints,InchesToPoints）

CentimetersToPoints メソッドセンチメートル単位の値をポイン …

: 配列（宣言・要素数の変更について）

配列の宣言【書式】※ 配列の宣言＜Type 型の静的配列（固定長配列）の宣言 …

: ユーザー設定リストを使って並べ替える（Sort）

VBAでリスト、テーブルを並べ替える（Sort） VBAで、ソートを行うには、S …

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

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

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