Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2200|回复: 3

[已解决]变量传递问题

[复制链接]
发表于 2012-10-16 20:41 | 显示全部楼层 |阅读模式
已经设置了模块级变量sr
怎样将“输入文件名”中的变量sr得到的值传递给“s5”中的sr

Dim sr
Sub s5() '在本工作簿中
      Dim sh As Worksheet
      Sheets("sheet1").Copy before:=Sheets(3)
       Set sh = ActiveSheet
       Call 模块1.输入文件名
          sh.Name = "sr"
            End Sub
Sub 输入文件名()
100
sr = Application.InputBox("请输入要保存的工作表名", "系统提示")
  If sr = "" Then
    MsgBox "你没有输入就点了确定"
    GoTo 100
      ElseIf sr = "False" Then
    End If
   End Sub
最佳答案
2012-10-16 21:20
Dim sr
Sub s5()    '在本工作簿中
    Dim sh As Worksheet
    Sheets("sheet1").Copy before:=Sheets(3)
    Set sh = ActiveSheet
    Call 模块1.输入文件名
    sh.Name = sr
End Sub
Sub 输入文件名()
100
    sr = Application.InputBox("请输入要保存的工作表名", "系统提示")
    If sr = "" Then
        MsgBox "你没有输入就点了确定"
        GoTo 100
    ElseIf sr = "False" Then
    End If
End Sub
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2012-10-16 20:55 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2012-10-16 21:10 | 显示全部楼层
zjdh 发表于 2012-10-16 20:55
你不是实现了吗??

传不过去,结果是sr
回复

使用道具 举报

发表于 2012-10-16 21:20 | 显示全部楼层    本楼为最佳答案   
Dim sr
Sub s5()    '在本工作簿中
    Dim sh As Worksheet
    Sheets("sheet1").Copy before:=Sheets(3)
    Set sh = ActiveSheet
    Call 模块1.输入文件名
    sh.Name = sr
End Sub
Sub 输入文件名()
100
    sr = Application.InputBox("请输入要保存的工作表名", "系统提示")
    If sr = "" Then
        MsgBox "你没有输入就点了确定"
        GoTo 100
    ElseIf sr = "False" Then
    End If
End Sub
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 07:31 , Processed in 0.338347 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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