设为首页收藏本站

Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

你正在寻找更好的Excel学习教程吗?Excel技巧80集+数据透视表+函数初中高全套+VBA80集,想学的这儿全都有
查看: 61|回复: 2

[已解决] 如何把窗体中生成的变量,赋值给另一个程序?谢谢爱疯老师!

[复制链接]
发表于 2017-1-11 21:19 | 显示全部楼层 |阅读模式
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
本帖最后由 lhj323323 于 2017-1-12 09:26 编辑

老师:

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

请老师有空时,帮我看看,如何写,先谢谢了。
公用变量.rar (38.51 KB, 下载次数: 4)
发表于 2017-1-11 21:37 | 显示全部楼层
'窗体代码
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, 下载次数: 4)

评分

参与人数 1经验 +9 收起 理由
lhj323323 + 9 很给力

查看全部评分

回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-1-12 09:25 | 显示全部楼层
爱疯 发表于 2017-1-11 21:37
'窗体代码
Private Sub UserForm_Initialize()    'chsw68老师,默认设置
    With Me

谢谢爱疯老师!

就是这个效果
昨天在网上找了很多例子,都不适合我的需求。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )  

GMT+8, 2017-1-21 18:45 , Processed in 0.109200 second(s), 24 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表