帮忙看一下代码，为啥输入1000、2000就不能运行case了

如题

因为你把 i 定义为字符串类型了，改变定义类型，或把Select Case i 这句代码改成 Select Case Val(i)

i 变量是一个字符串类型的变量，那么在比较大小时它将按照字典顺序进行比较。在这种情况下，"400" 比 "1000" 大，因为 4 的 ASCII 值比 1 要大，所以 "400" 不会被判断为小于或等于 "1000"。

在Select分支判断语句中，比较值的类型视被比较值而定。
你可以理解为，在你代码里，200和987都会转为文本进行比较，由于string类型本质上的char[]类型，char类型的比较就取决于ASCII码。
也就是说，这会导致不符合预想的结果产生。

亲，应该是这样的：
1.vba中”字符数字“要”数值“进行比较的话，两者位数是要一致的，比如字符是”200“ 只能和100-1000之间的l两位数的数字进行比较(不含1000)，如果超出两位数，就无法比较了；
2.如亲的情况应该是输入的数值为三位数，case is <1000 此处比较的是四位数，这样就会不满足条件啦；
3.解决方案的话，就二楼所说把字符i转化成数值，即把i*1就可以啦

一堆大神的解答看的我都蒙圈了。。。
这段代码的槽点太多了。
我来理解一下这个代码思路
首先输入
想通过正则来判断是否是存在3个的连续的数字（我这个表达是严谨和正确的）
如果超过4位的用len(i)>0来判断
on error resume next
我也没想明白咋回事请。
正常来说正则表达式的 test 就是用来预防匹配不到。
匹配不到的情况下其他操作比如execute replace等就会报错，但是test不会啊
最后通过select case来完成。
分析代码
application.inputbox 的type:=1 就完美解决了输入非数字的问题
顶多还会有负号这种存在 -100也是可以的
第二正则检测的仅仅只是连续3个数字
F123 或者123F 这样的他的test结果也是Ture
至于正则的2个属性
Global 全部匹配或者匹配一次
IgnoreCase 是否忽略大小写
这2条在这段代码中完全没有必要写。。。当然复制黏贴除外。
if not bl or len(i)>3then err.rasie 0
正则没匹配到或者 I长度大于3 那么Err.raise 0
我测试了一下 err.ralse 0 还不如直接err=0
err.ralse 0 我这里结果还是5.。。。我以前没用过raise
loop while err.number<>0
这句话原本的想法是循环到填入正确的数值
但是因为 err.ralse 0 实际结果是5 所以即便4位数是错的也会往下走
这不就是多一个变量的事情，为什么要用系统默认变量。。。。
select case这段
你直接给了2个条件就是
<=200
<=987
换个角度解释一下 select
1号房间姓张的进
2号房间姓李的进
这时来了个姓赵的，让他去哪？
这段代码如果我输入3位数 988 一样没结果。。
如果是1000 这2个条件都不符合，就到了 end select
程序完毕没有结果。。。
这里我提到过-100 因为错的是 IF那句的Err 所以负100 应该也会显示<=200的结果
但是代码的原本意思应该是不包含复数的。。。如果-100正常跑了只是阴差阳错。。。
如果前面代码没有bug，那么1000是不会进入到select 这一段的
但是select case 这段有漏洞 988-999 也是没有结果的。
解决办法加一句
else case
不符合所有条件的怎么办
和 IF 系列是一样的。
err.ralse 0 实际结果是5 至少我的电脑如此。。
不要偷懒。。。

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

10回复贴，共1页

<<返回vba吧

分享到:

日	一	二	三	四	五	六