Excel精英培训网

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

[已解决]请教

[复制链接]
发表于 2012-11-13 00:22 | 显示全部楼层 |阅读模式
我有这样一个问题 运行vba的时候 输入100可以 我在运行输入104 为什么就不行了 还出现了 图片上的内容 求解决
最佳答案
2012-11-14 21:22
Sub TEST()
    Dim B As Variant
   
    B = InputBox("请输入数字", "温馨提示", 4000)
    If B = "" Then End
   
    '改为临时名字,确保临时名不会出现在新表名中即可
    For i = 1 To Sheets.Count
        Sheets(i).Name = "temp" & i
    Next i
   
    '正式改名
    For i = 1 To Sheets.Count
        Sheets(i).Name = Application.Text(B + i, "\ 0 .00")
    Next i
   
End Sub
111111111.jpg

新建 Microsoft Excel 工作表.rar

5.52 KB, 下载次数: 10

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2012-11-13 08:46 | 显示全部楼层
你上传的是个空表,无从得知你的vba是什么问题。
回复

使用道具 举报

发表于 2012-11-13 09:06 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2012-11-13 10:25 | 显示全部楼层
zjdh 发表于 2012-11-13 09:06
传个空表逗你玩!!

主要是工作表命名  所以表内不需要数据啊 只需要运行宏就知道了 运行两次  一次输100  一次输104

点评

附件里代码都没有,不出错才怪了!!  发表于 2012-11-13 13:10
回复

使用道具 举报

 楼主| 发表于 2012-11-13 10:26 | 显示全部楼层
chin15 发表于 2012-11-13 08:46
你上传的是个空表,无从得知你的vba是什么问题。

主要是工作表命名  所以表内不需要数据啊 只需要运行宏就知道了 运行两次  一次输100  一次输104
回复

使用道具 举报

发表于 2012-11-13 10:37 | 显示全部楼层
那上传空表有何意义?
你跟本没有代码如何测试?
有问题就要修改你的代码。
回复

使用道具 举报

 楼主| 发表于 2012-11-13 15:53 | 显示全部楼层
我心飞翔410 发表于 2012-11-13 10:25
主要是工作表命名  所以表内不需要数据啊 只需要运行宏就知道了 运行两次  一次输100  一次输104

不会吧 是不是要把代码放到模板里面去啊 不好意思啊

回复

使用道具 举报

 楼主| 发表于 2012-11-13 15:57 | 显示全部楼层
chin15 发表于 2012-11-13 10:37
那上传空表有何意义?
你跟本没有代码如何测试?
有问题就要修改你的代码。

不好意思 早上传错了 不好意思啊

新建 Microsoft Excel 工作表.rar

13.13 KB, 下载次数: 3

回复

使用道具 举报

 楼主| 发表于 2012-11-13 15:58 | 显示全部楼层
zjdh 发表于 2012-11-13 09:06
传个空表逗你玩!!

不好意思 早上传错啦

新建 Microsoft Excel 工作表.rar

13.13 KB, 下载次数: 9

回复

使用道具 举报

发表于 2012-11-13 16:13 | 显示全部楼层
运行9#附件,输入104,没出错呀?
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-28 18:12 , Processed in 0.938344 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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