用户窗体中的全局变量

Question

我在论坛中搜索了这个并找到了一些答案，但对我没有用。

我有两个用户窗体。

在第一个中，我给一个名为 Word 的变量赋值。

在第二个中，我有一个标签，我需要将标题变成变量 Word。

例子：

Public Word as String

Private Sub Userform1_Activate
   Word = "Today Is Saturday"
End Sub

Private Sub Userform2_Activate
   Label1.Caption = Word
End Sub

但这不起作用。标签标题的价值为零。 有人可以帮我解决这个问题吗？

谢谢。

First Form

Private Sub CommandButton5_Click()

Db = "C:\Users\Desktop\db.txt"

Set File1 = CreateObject("Scripting.FileSystemObject")
Set File2 = File1.OpenTextFile(Db, 1)

Do Until File2.AtEndOfStream

If (File2.Readline = TextBox1) Then Exit Do
If File2.AtEndOfStream Then WordNotFound.Show
If File2.AtEndOfStream Then TextBox1.Value = ""
If File2.AtEndOfStream Then Exit Sub

Loop

Word = File2.Readline

MsgBox Word

TextBox1.Value = ""

End Sub

第二种形式

Private Sub UserForm_Click()

Label1.Caption = Word

End Sub

Answer 1

正如我在评论中所说，您的方法应该有效。这是我尝试过的测试代码

1- 在Module1

Public Word As String

2- 创建 2 个用户表单 - UserForm1 和 UserForm2

2a- 在 UserForm1 中

Private Sub UserForm_Activate()
    Word = "This is Saturday"
End Sub

2b- 在 UserForm2 中

Private Sub UserForm_Activate()
    Label1.Caption = Word
End Sub

3- 然后在ThisWorkbook

Private Sub Workbook_Open()
    UserForm1.Show
    UserForm2.Show
End Sub

所以当你关闭 UserForm1 时，UserForm2 会显示如下