Question

VBA中，用select case语句和like判断，老是出错，大师帮我看看

Sub case1()
Dim i
Dim 明细账全称
明细账全称 = "nr2011nr"
'无论明细账全称为多少，总会输出第一个case下的值“2012”？、？？？为什么啊？？？？
Select Case ture
Case 明细账全称 Like "*2012*"
MsgBox "2012"
Case 明细账全称 Like "*2011*"
MsgBox "2011"
Case 明细账全称 Like "*2013*"
MsgBox "2013"
Case 明细账全称 Like "*2014*"
MsgBox "2014"
End Select

End Sub

Answer 1

Select Case ture 是什么意思?
难道你写了一个 Select Case true ? 永远成立的意思?

追问

在即时窗口输入？明细账全称 Like "*2012*"，结果为false，但为什么会输出2012呢？好奇怪啊？

追答

我试了一下VB6没问题, Word2007第一次有问题,弹出了2012: 我加了一句msgbox就没有问题了, 然后把msgbox注释掉,还是没有问题. 有点儿诡异,还是用if好了.

    Dim i
    Dim 明细账全称
    明细账全称 = "nr2011nr"
    'MsgBox 明细账全称 Like "*2012*"
    Select Case True
       Case 明细账全称 Like "*2012*"
         MsgBox "2012"
       Case 明细账全称 Like "*2011*"
         MsgBox "2011"
       Case 明细账全称 Like "*2013*"
         MsgBox "2013"
       Case 明细账全称 Like "*2014*"
         MsgBox "2014"
    End Select

 你的代码里到底是 true 还是 ture ?