如何把窗体中生成的变量，赋值给另一个程序？谢谢爱疯老师！

lhj323323

老师：

我上传的附件中有详细的说明，是关于窗体生成的变量，如何赋值给另一个程序的话题。

请老师有空时，帮我看看，如何写，先谢谢了。
公用变量.rar (38.51 KB, 下载次数: 4)

2017-1-11 21:14 上传

点击文件名下载附件

今天在百度上，搜索类似的贴子达九页，都没有找到我想要的答案。

在上传的附件中，我所举的例【导入】，只有一句MSGBOX
但请不要误认为，这个【导入】就只有一句MSGBOX，从而就用MSGBOX代替了【导入】

====================================
另外，贵论坛是不是今天才重新开放啊？
我从2016年11月19日起，每天都无法登陆贵论坛，都差点要放弃了。

爱疯

'窗体代码
Private Sub UserForm_Initialize()    'chsw68老师，默认设置
    With Me
        .OptionButton2.Value = True
        .个数.Text = 5
    End With
End Sub


Private Sub CommandButton1_Click()    '确定按纽
    r = Me.个数.Text
    If OptionButton1.Value = True Then
        p = 1    '显示按纽（①打开【34】路径）
    ElseIf OptionButton2.Value = True Then
        p = 2
    Else
        p = 3
    End If
   
    Sheet1.[a2] = r
    Sheet1.[b2] = p
    Call 模块1.导入(r, p)
End Sub





'模块代码
Sub 导入(r, p)
'    Dim r As String, p As String
'Application.ScreenUpdating = False


'    r = Application.InputBox("选择【数据运行环境】" & Chr(10) & "■1：AD；" & Chr(10) & "■2：川富；" & Chr(10) & "■3：XXEE；", "选择【数据运行环境】", 2)
'    p = Application.InputBox("■请输入数值", "", 4)


    MsgBox "r=" & r
    MsgBox "p=" & p


    'Application.EnableEvents = True
End Sub


公用变量2.rar (38.78 KB, 下载次数: 5)

2017-1-11 21:36 上传

点击文件名下载附件

不知道是要怎样得效果

lhj323323

爱疯 发表于 2017-1-11 21:37
'窗体代码
Private Sub UserForm_Initialize()    'chsw68老师，默认设置
    With Me

谢谢爱疯老师！

就是这个效果
昨天在网上找了很多例子，都不适合我的需求。