返回代码（VBA）时，公共值不更新

Question

当 Form 关闭并且代码导航回宏时，公共变量没有更新。

我创建的表单只有两个按钮“是”和“否”。当用户单击“否”时，我希望将变量设置为 false，如果“是”，它将为 true。

这是工作表代码

Public bool As Boolean

Sub test2()
    Claims.Show

    If bool = True Then
        Range("A1") = "Yes"
    ElseIf bool = False Then
        Range("A1") = "No"
    Else
        Range("A1") = "Nothing"
    End If
End Sub

在我想要一个值的表单下方

Priate Sub No_Click()
    bool = False
    Unload Me
End Sub

Private Sub Yes_Click()    
    bool = True
    Unload Me
End Sub

Answer 1

1. 在不在ThisWorkbook的模块中声明变量。

   Public bool As Boolean 'in a module
   

2. 那么Test2的过程就可以在ThisWorkbook:

   Sub test2()
       Claims.Show
   
       If bool Then
           Range("A1") = "Yes"
       Else
           Range("A1") = "No"
       End If
   End Sub
   

   注意bool 只能是True 或False 没有3ʳᵈ 选项。所以可以减少。另请注意，您应该为ThisWorkbook.Worksheets("Sheet1").Range("A1") = "Yes" 等范围指定工作表，否则 Excel 将使用哪个工作表处于活动状态。

3. 你想把按钮放在哪里的程序

   Private Sub No_Click()
       bool = False
       Unload Me
   End Sub
   
   Private Sub Yes_Click()    
       bool = True
       Unload Me
   End Sub
   

我建议始终激活Option Explicit：在 VBA 编辑器中转到 工具 › 选项 › Require Variable Declaration。这会产生一个警告来防止这个问题。