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

関連記事

: 色の設定（ThemeColor プロパティ・TintAndShade プロパティ）

ThemeColor プロパティ・TintAndShade プロパティテーマカ …

: ショートカットメニュー（CommandBar オブジェクト）

ショートカットメニュー（コンテキストメニュー）右クリックで表示されるメニューの …

: 指定した数値を文字列に変換する（Str 関数）

Str 関数の使い方 Str 関数は、数値・数式を文字列に変換して返す関数です …

: 色の設定（ColorIndex プロパティ・Colors プロパティ）

ColorIndex プロパティ ColorIndex プロパティは、指定したオ …

: 書式を変換（Format 関数）

Format 関数の使い方【書式】 result = Format ( exp …

: 変数のデータ型・宣言（Dim ステートメント）

変数の宣言一般的な方法【書式】 Dim varname [ As type, …

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

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

: データをクリアする（ClearContents メソッド）

ClearContents メソッド対象がセル範囲（Range オブジェクト） …

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

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

: 変数が日付型かどうかをチェックする（ IsDate 関数）

IsDate 関数の使い方【書式】 result = IsDate( expr …

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