ＶＢＡでSelect Caseの判定がおかしい

Question

VBAで配列に入れた文字列をselectcaseで判定をしてるのですが、並べ替えや、その文字列をセルに入れてifで判定したときと違う結果になってしまいます。

コードは
dim ary1
dim ary2
・・・・
select case true
case ary1(i1,14)>ary2(i2,14)
・・・
case ary1(i1,14)=ary2(i2,14)
・・・
case ary1(i1,14)<ary2(i2,14)
・・・
end select
なのですが、ary2(i2,14)の方が並べ替えで上にくる文字列でも最初の判定でfalseになって３番目の判定でtrueになります。
比べてる文字列をセルに貼り付けてifで判定するとary2(i2,14)の方が小さいと判定されました。
どうしてかわかる方いましたら教えてください。
よろしくお願いいたします。

Comments

[hatena19]

再現できるコードを提示できませんか。
実際の代入した文字列、If文の方のコードが分かるように。

[koratana]

お返事ありがとうございます。
比べたのは
A1セル：令和4年度一宮市まちづくり部区画整理課
A2セル：令和4年度一宮市まちづくり部公園緑地課
=IF(A1>A2,A2,A1)
で令和4年度一宮市まちづくり部区画整理課が表示されます。
先にいれたコードではaray2に令和4年度一宮市まちづくり部区画整理課が入っています。
よろしくお願いいたします。

[hatena19]

A1、A2セルにそのように入力して、下記のコードを実行してみてください。

Dim ary1(0, 0)
Dim ary2(0, 0)

ary1(0, 0) = Range("A1")
ary2(0, 0) = Range("A2")
Select Case True
Case ary1(0, 0) > ary2(0, 0)
MsgBox "A1の方が大"
Case ary1(0, 0) = ary2(0, 0)
MsgBox "同じ"
Case ary1(0, 0) < ary2(0, 0)
MsgBox "A2の方が大"
End Select

メッセージボックスには何が表示されますか。
こちらのExcelでは、"A1の方が大" と正しく表示されます。

[koratana]

IF文ではA1セルの方が小さい判定だと思うのですが、私が勘違いしてますか？
私がA1セルにarey2の文字列を入れたのでややこしかったですね。

Answer 1

A1セルに「令和4年度一宮市まちづくり部区画整理課」
A2セルに「令和4年度一宮市まちづくり部公園緑地課」
と入力して下記のコードを実行すると、
"A1の方が大" と正しくメッセージが表示されます。
Select Caseの問題ではなく、提示されていない部分の問題だと思います。
(追記)文字列の比較方法の問題だと思われます。
モジュールの先頭に下記のようにテキストモードでの比較を指定すると、期待する結果になりそうです。
指定しないとバイナリモードでの比較になります。

Option Compare Text

Option Compare ステートメント (VBA) | Microsoft Docs

Public Sub test()
    Dim ary1(0, 0)
    Dim ary2(0, 0)

    ary1(0, 0) = Range("A1")
    ary2(0, 0) = Range("A2")
    Select Case True
    Case ary1(0, 0) > ary2(0, 0)
        MsgBox "A1の方が大"
    Case ary1(0, 0) = ary2(0, 0)
        MsgBox "同じ"
    Case ary1(0, 0) < ary2(0, 0)
        MsgBox "A2の方が大"
    End Select
End Sub

---

ちなみに、Select Case で大小比較するなら、下記のように書くのが一般的です。

Public Sub SelectTest()
    Dim ary1(0, 0)
    Dim ary2(0, 0)
    
    ary1(0, 0) = Range("A1")
    ary2(0, 0) = Range("A2")
    Select Case ary1(0, 0)
    Case Is > ary2(0, 0)
        MsgBox "A1の方が大"
        Debug.Print ary1(0, 0)
    Case Is = ary2(0, 0)
         MsgBox "同じ"
    Case Is < ary2(0, 0)
        MsgBox "A2の方が大"
    End Select
End Sub

Comments

[koratana]

ありがとうございます。
そうなんですね。ネットで拾ってきたのそのまま改造して使ってたので勉強になります。
IF文ではA1のが小さい判定だと思ってるのですが、私の勘違いでしょうか？

[koratana]

=IF(A1>A2,"A1が大きい","A2が大きい")
とセルに入力すると”A2が大きい”になります。

[hatena19]

なるほど、そうですね。勘違いしてました。
文字列の比較方法の違いが原因と思われます。回答の方に追記しましたので確認ください。

[koratana]

ありがとうございます。
ちゃんとできました！
バイナリーモードだとちゃんと比較できないんですね？どういう仕組みか良くわからないですが助かりました。前に進めます＾＾ありがとうございました。

Answer 2

select caseの構文は条件に一致した箇所のみ実行するのではなく一致した箇所以降のすべての処理を実行します。
省略されているので断言できませんがまあ結果が上書きされているのでしょう。
処理を途中で止めたい場合はbrakeを記載します。合致したCASEのみ処理したい場合はすべてにbrakeを記載します。

Comments

[hatena19]

それはどこ情報ですか。
AND演算子でつながれた式はすべて判定されるというのは知ってますが、
Select Case は合致したら、以降のCaseは判定されないと思いますが。

brake？ そんなコマンド、VBAにはないです。

[usekay]

他の言語と勘違いしていたようです忘れてください。

[koratana]

お返事ありがとうございます。
また何かわかりましたら教えてください。