在 2 个 subs 中使用变量答案

【问题标题】：Using a variable in 2 subs在 2 个 subs 中使用变量
【发布时间】：2017-09-12 11:25:42
【问题描述】：

我在一个 excel 文件和一些用户表单中有超过 20 个订阅者。在一个用户表单中，有一个取消按钮，但我不能在另一个子中使用“如果取消 = true”代码。我不知道为什么，但它永远不会实现。所以我想，如果我可以在用户表单中声明一个变量为真，然后在另一个子中检查该变量，那么这可能会起作用，但不幸的是我也想不通。在下面您可以找到这两个代码；

这是用户表单；

Private Sub Sheet_Iptal_Click()
Dim Sheet_Iptal As String
Sheet_Iptal = True
ThisWorkbook.Worksheets("Storyboard").Delete
Yeni_Sheet_Adi_Olustur.Hide
MsgBox "Islem iptal edildi."
Yeni_Sheet_Adi_Olustur.Yeni_Sheet.Value = ""
End Sub

这是我想检查“Sheet_Iptal”情况的另一个子的部分；

If Sheet_Iptal = True Then
    ThisWorkbook.Worksheets("Storyboard").Delete
    GoTo son
End If

我在这里基本上想要实现的是，如果已使用取消按钮，则转到该特定子的“儿子”。我愿意接受任何建议。

【问题讨论】：

类似stackoverflow.com/questions/3979893/…?
但是当用户表单结束时变量的值被清空。我没有把它的价值带到主子上。这是我现在的主要问题。

标签： excel variables userform

【解决方案1】：

UserForm .Tag 属性可以设置为按钮点击事件上的某些东西：

Private Sub buttonOK_Click()
    Me.Tag = "OK"
    Me.Hide
End Sub

Private Sub buttonCancel_Click()
    Me.Tag = "Cancel"
    Me.Hide
End Sub

然后在显示表格后检查它的值：

UserForm1.Show
MsgBox UserForm1.Tag <> "OK"

【讨论】：