Excel VBA：字符串比较不起作用

Question

我正在尝试将 activeSheet 代码名称与简单字符串进行比较，但结果总是正确的。 我对此进行了调试，并且变量值不同。

Sub Button_Supprimer()
    
Dim a, b As String
a = CStr(ActiveSheet.CodeName)
b = "Sheet1"

If (a = b) Then:
    frmSupprimer.Caption = "Supprimer un matériel"
    'frmSupprimer.UserForm_Initialize ("Matériel")
    frmSupprimer.Show
End               
End Sub

结果

Answer 1

结果并不总是正确的，只是代码中没有任何语句实际上是有条件的。

:指令分隔符标记的存在通常应该被忘记，并留给您将从即时窗格 (Ctrl+G) 运行的最小化的即发即弃代码。

通过使用冒号终止If {condition} Then ，您使条件表达式只是一个空指令。

没有它，代码将停止编译，并且您会收到“没有 End If 的 If 块”编译错误。

条件代码块的正确语法如下：

If {condition} Then
    {conditional statements}
End If

请注意， End指令本质上是一个用于终止程序执行的核选项； 全局变量被重置为其默认值，执行上下文终止：根据经验，您想让执行到达End Sub语句并让 VBA 运行时正常展开其调用堆栈： End指令将所有内容都停止在其轨道上& 然后 - 你真的需要这样做是非常非常罕见的。