vba - Select Case 语句不遵循整数变量值

Question

这是我的代码的摘录:

Dim x as Integer
x = 0
Select Case x


Case x = 0 'LINE 4
find_Element = fin_Array(x)

    If Trim(find_Element) <> "" Then
        For k = 3 To last_WS
            With Sheets(k).Range("1:200")
                sh_Name = Worksheets(k).Name
                Set pointer_to_Element = .Find(find_Element, _
                    .Cells(.Cells.Count), xlValues, xlWhole, xlByRows, _
                    xlNext, False)
                pointer_Int_Row = CInt(pointer_to_Element.Row)
                'pointer_Int_Col = CInt(pointer_to_Element.Column)

                Worksheets(k).Cells(pointer_Int_Row, lock_Col).Copy
                Worksheets("EXTRACTIONS").Range("B8").Offset(, q).PasteSpecial xlPasteValues
                Worksheets("EXTRACTIONS").Range("B7").Offset(, q).Value = sh_Name
                q = q + 1
            End With
        Next k
    End If
q = 1

Case x = 1
find_Element = fin_Array(x)

    If Trim(find_Element) <> "" Then
        For k = 3 To last_WS
            With Sheets(k).Range("1:200")
                sh_Name = Worksheets(k).Name
                Set pointer_to_Element = .Find(find_Element, _
                    .Cells(.Cells.Count), xlValues, xlWhole, xlByRows, _
                    xlNext, False)
                pointer_Int_Row = CInt(pointer_to_Element.Row)
                pointer_Int_Col = CInt(pointer_to_Element.Column)

                Worksheets(k).Cells(pointer_Int_Row, pointer_Int_Col).Offset(, 2) _
                .Copy
                Worksheets("EXTRACTIONS").Range("B8").Offset(, q).PasteSpecial xlPasteValues
                Worksheets("EXTRACTIONS").Range("B7").Offset(, q).Value = sh_Name
                q = q + 1
            End With
        Next k
    End If
q = 1

我的问题是我明确设置 x=0但是在我的代码中 VBA当它进入第 4 行时，它会跳转并执行 Case x = 1!!!!

当我明确设置 x=0 时，这怎么可能？在我的代码中？

Answer 1

根据http://msdn.microsoft.com/en-us/library/cy37t14y.aspx它看起来像:

Dim x As Integer
x = 0
Select Case x
    Case 0
        'do some stuff
    Case 1
        'do other stuff
End Select

扩展 PeeKay 所说的:

做 x = 0测试 x等于 0这将评估为 True相当于 1同样 x = 1将评估为 False (或 0 )因为 x 不等于 1所以你的代码最终看起来像:

Dim x As Integer
x = 0
Select Case x
    Case 1
        'do some stuff
    Case 0
        'do other stuff
End Select