異なる言語でのVBA Excel：ブールオートフィルタ条件の変換

Question

私はそのテーブルに格納されているブール値に基づいてフィルタリングするテーブルを持っています。値がTRUEの場合はいつでも表示したいです。したがって、私はオートフィルタと次のVBAコードを使用します：

lCol = tbl.ListColumns("xFilter").Index 
With tbl 
    If .AutoFilter.FilterMode Then .AutoFilter.ShowAllData 
    .Range.AutoFilter Field:=lCol, Criteria1:="TRUE" 
End With 

これは完全に動作します。しかし、私はExcelの英語のインスタンスに取り組んでいます。別の言語（この場合はオランダ語）のインスタンスでこれを実行しようとするたびに、フィルタリングはもう機能しません。それを動作させるには、基準をWAAR（オランダ語のTRUE相当）に手動で設定する必要があります。

しかし、自分のプログラムが言語に依存しないようにするために、この1つのオートフィルタを除いて、そうであるようです。私はその後、私が書く必要があるだろうドイツとスペインに行くならば、しかし

Criteria1:="WAAR", Operator:=xlOr, Criteria2:="TRUE"

：

Criteria1:="WAAR", Operator:=xlOr, Criteria2:="TRUE", Operator:=xlOr, Criteria3:="WAHR", Operator:=xlOr, Criteria4:="VERDADERO"

を私がする必要があるでしょう、私はmultiple criteria や状態を追加することができます知っています値がTRUEかどうかを知りたければ、余分な条件を追加してください。

criteria1 := TRUEはどの言語でも簡単に使用できますか？

Answer 1

あなたはAutoFilterを設定するときにTRUEのための文字列や言語に依存した値を使用しないようにCBool機能を使用してみてください。

CBool(1)は、どのロケールでも 'true'にする必要があります。オーストラリア英語ロケールで

Option Explicit 

Sub TestLanguageIndependentBooleanForAutoFilter() 

    Dim ws As Worksheet 
    Dim tbl As ListObject 
    Dim lCol As Long 

    Set ws = ThisWorkbook.Worksheets("Sheet1") 
    Set tbl = ws.ListObjects(1) 

    lCol = tbl.ListColumns("xFilter").Index 
    With tbl 
     If .AutoFilter.FilterMode Then .AutoFilter.ShowAllData 
     .Range.AutoFilter Field:=lCol, Criteria1:=CBool(1) 
    End With 

End Sub 

作品：