標題の通り�Aselect case　を使いたいのですが、
書き方が分かりません。
そもそも以下の条件では使えないのでしょうか。
やはり if then else になるしかないのでしょうか。

やりたいことです。
数値変数「A」、数値変数「B」が在り、
この大小関係によって処理を分けたいのです。

条件は
A>B　A<B　A=Bの3通りです。

ダメだったのですが、
イメージは以下の通りです。

 select case A,B
    case is A>B
      xxxxxxxxxxxxxxx
    case is A<B
      yyyyyyyyyyyyyyy
    case is A=B
      zzzzzzzzzzzzzzz
 end select

宜しくお願いします。


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他

 Select Case True
    Case (A > B)
      Debug.Print "xxxxxxxxxxxxxxx"
    Case (A < B)
      Debug.Print "yyyyyyyyyyyyyyy"
    Case (A = B)
      Debug.Print "zzzzzzzzzzzzzzz"
 End Select

とか
 Select Case A - B
    Case Is > 0
      Debug.Print "xxxxxxxxxxxxxxx"
    Case Is < 0
      Debug.Print "yyyyyyyyyyyyyyy"
    Case Is = 0
      Debug.Print "zzzzzzzzzzzzzzz"
 End Select

ですかね。

後者の方が厳密に判定される気がしますが(0との比較になっているので）、未検証です。


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他

＞後者の方が厳密に判定される気がしますが、未検証です。

A = 3 * 0.3
B = 0.9　　　(こっちが 0.5の53乗だけ大きい)

で検証してみましたところ、
ワークシート上ではA=B はTRUEになるのですが、VBAでは厳密に判定してくれて、
前者でも問題なくBが大きいと判定されました。

Select Case True
という書き方をVBA界隈ではよく見かけるのですが、

今回の場合なら、素直に書けば、

 If A > B Then
     Debug.Print "xxxxxxxxxxxxxxx"
 ElseIf A < B Then
     Debug.Print "yyyyyyyyyyyyyyy"
 Else
     Debug.Print "zzzzzzzzzzzzzzz"
 End If

となると思うのですが、

 Select Case True
    Case (A > B)
      Debug.Print "xxxxxxxxxxxxxxx"
    Case (A < B)
      Debug.Print "yyyyyyyyyyyyyyy"
    Case (A = B)
      Debug.Print "zzzzzzzzzzzzzzz"
 End Select

と書くメリットてなんなのでしょう。


好みの問題かもしれませんが、
個人的には Select Case True の書き方には違和感があります。


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他

Select は本来は、

Select Case 式
Case 値1

Case 値2

End Select

式の結果と値が一致したら処理が実行される。

Select Case 値(True)
Case 式1

Case 式2

End Select

これが成り立つのは、Selectは上から順に比較していって一致したら実行するという仕様だからです。つまり、式がTrueになったら実行される。

やっていることは、If文とまったく同じことです。

> if then else はそれでないならと、上からレベルを下げてくる、

「上からレベルを下げてくる」というイメージがそもそも違うと思います。
上から順に式を評価してTrueになった時点で実行するという点では、
If Then ElseIf と Select True はまったく同じだと思います。

まあ、感覚的なものと言われたら、これ以上に何も言うことはありませんが。