问题说明
今天在群内遇到一位童鞋,其说一段代码总是报错,并且不明原因,代码类似如下:
代码如下 | 复制代码 |
Sub ErrDemo() |
其主要目的,就是通过扫描单元格内保存的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 |
注意后面的代码,我们将强制使用文本类型作为传递的参数类型,问题得以解决
模拟极限越野
模拟极限越野开着大巴在各种奇葩路况里送乘客。山路弯道多得让人
模拟火车
模拟火车让你当回真正的火车司机,得先学会看信号灯、操作控制杆
可口的披萨美味的披萨
可口的披萨美味的披萨带您体验经营一家披萨店的乐趣。游戏画风温
定制虚拟偶像最新版
定制虚拟偶像最新版是一款超级经典有趣的日本模拟装扮类型的手游
病娇模拟器手机版正版(yandere simulator)
病娇模拟器最新版手游是一款萌妹二次元模拟游戏,玩家在游戏中可