[[20170404170647]]　『セレクトケースについて。』（ヤイリ）　ページの最後に飛ぶ

『セレクトケースについて。』（ヤイリ）

下記のコードで
例えばresultの文字列の
値が
result = "50"
result = "050"と
どちらの値があったとしても
マッチさせたいときに
あまり手を加えずに
マッチさせる方法はございますでしょうか。
事前に前ゼロを消す方法でしょうか。
宜しくお願いします。

Sub main()

Dim result As String

result = "50"

Select Case result

    Case 50
        result = "OK"

    Case Else
       result = " NG"
End Select

MsgBox result

End Sub

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

何故にString型なんでしょう？
×1するという手もありますが。
（カリーニン） 2017/04/04(火) 17:45

OK NGも同じ変数使ってるんですね。

50とOK NGを同じ変数で管理する理由は何ですか？
（カリーニン） 2017/04/04(火) 17:49

カンマで区切って指定できます。

    Case "50", "050"
（cai） 2017/04/04(火) 17:52

String型で提供されるからです。
サンプルは結果を
マッチさせてるだけで
数値も050や50以外にもあります。
文字列型を数値に戻して判定することにします。
コメントありがとうございました。

（ヤイリ） 2017/04/04(火) 18:25

コメント返信：