一聚教程网：一个值得你收藏的教程网站

ps教程| flash教程| 路由器设置| Jsp教程| 加入收藏

PHP教程 Css教程 操作系统 数据库 安卓下载

首页 游戏下载 软件下载 专题 资讯教程 php教程 asp.net教程 css教程 网页制作 网页特效 手机开发 办公数码
+ -
当前位置：一聚教程网 > 办公数码 > excel

推荐专题

最新下载

热门教程

Excel中编程中数据类型导致代码运行时错误

时间：2022-06-27 09:49:02 编辑：袖梨 来源：一聚教程网

问题说明
今天在群内遇到一位童鞋，其说一段代码总是报错，并且不明原因，代码类似如下：

 代码如下 复制代码

Sub ErrDemo()
On Error GoTo Emsg
  Dim i As Long
  Dim SName As String
  For i = 1 To 4
        Sheets(Sheets("Sheet1").Cells(i, 1).Value).Select
  Next
  Exit Sub
Emsg:
  MsgBox "Error!"
End Sub

其主要目的，就是通过扫描单元格内保存的Sheet名称来实现不同的Sheet激活显示等等。

问题原因
小编看了一下他的代码，再看了一下保存在单元格中的Sheet名称，可以得到一个结论，数据类型不明确导致错误，因为这位童鞋有些Sheet的名称直接就是数字类的，熟悉Vba的童鞋都应该知道Sheets("Sheet名称")或者Sheets(SheetID)都可以实现Sheet的定位，那么你传递一个数字过去Sheets将识别为一个数字的ID。

解决办法
将代码

 代码如下 复制代码
1 Sheets(Sheets("Sheet1").Cells(i, 1).Value).Select

修改为

 代码如下 复制代码
1 Sheets(Sheets("Sheet1").Cells(i, 1).text).Select

注意后面的代码，我们将强制使用文本类型作为传递的参数类型，问题得以解决

相关文章

热门栏目

一聚教程网| 关于我们| 联系我们| 广告合作| 友情链接| 版权声明

copyRight@2007-2022 www.111CN.NET AII Right Reserved

网站内容来自网络整理或网友投稿如有侵权行为请邮件:[email protected] 我们24小时内处理