用户窗体给全局变量赋值

j9900h

求助！！   通过用户窗体给全局变量赋值无效；如何才能通过窗体按钮给变量赋值？
代码：
'全局变量
Public ii As Long
'全局变量

Sub main()

    ii = 0
    MsgBox ii
    UserForm1.Show
    MsgBox ii

End Sub


'Private Sub CommandButton1_Click()
Public Sub CommandButton1_Click()
    ii = 5
    Unload Me
End Sub

一指禅62

看不到附件，猜一下：

若不是在模块中声明全局变量，引用时则应指明对象，如  
声明在 UserForm1 中，应写成  UserForm1.ii
声明在 sheet1 中，应写成  Sheet1.ii

j9900h

一指禅62 发表于 2019-4-22 10:45
看不到附件，猜一下：

全局变量写在模块中可直接引用

谢谢你的回复！

我按如下编写，  在编译时显示--方法和数据成员未找到

Public Sub CommandButton1_Click()
    Public i As Long
    i = 6
    ii = 5
    Unload Me
End Sub

'全局变量
Public ii As Long
'全局变量

Sub main()

    ii = 0
    MsgBox ii
    UserForm1.Show
    ii = UserForm1.i
    MsgBox ii

End Sub

j9900h

一指禅62 发表于 2019-4-22 10:45
看不到附件，猜一下：

若不是在模块中声明全局变量，引用时则应指明对象，如  

谢谢你！   问题已解决   按下面你说的这种方法“声明在 sheet1 中，应写成  Sheet1.ii  ”

代码：
Public Sub CommandButton1_Click()
    Sheet1.ii = 5
    Unload Me
End Sub

'全局变量
Public ii As Long
'全局变量

Sub main()

    ii = 0
    MsgBox ii
    UserForm1.Show
    MsgBox ii

End Sub

一指禅62

猜一个

赋值.zip (6.76 KB, 下载次数: 42)

2019-4-22 11:02 上传

点击文件名下载附件