vba 中 if 语和 select 语句的问题

EXCEL渣渣 · 发表于 2023-4-27 13:16

各老师，我在使用if语句和select语句，遇到了问题 if 语句可以输出结果，但是selcet 就不行。代码如下：
图片.jpg

输入值为A2320

liulang0808 · 发表于 2023-4-27 13:26

建议楼主分步执行，看看具体参数变化是否符合规范
或者上传模拟附件，便于对应处理

darklesson · 发表于 2023-4-27 13:29

老师，case 你忘了“A”字串引号嘛。
另外老师，你的语句用不了这么麻烦，只要改成2句就可以了
s$="ABCDEFGHIJKL"
mm=format(INSTR(1,s,m),"00")

tanglf188 · 发表于 2023-4-27 13:57

本帖最后由 tanglf188 于 2023-4-27 14:07 编辑

mm = Asc(Mid(Trim(Target.Value), 1, 1)) - 64
If mm < 13 And mm > 0 Then MsgBox Format(mm, "00")

EXCEL渣渣 · 发表于 2023-4-27 15:50

darklesson 发表于 2023-4-27 13:29
老师，case 你忘了“A”字串引号嘛。
另外老师，你的语句用不了这么麻烦，只要改成2句就可以了
s$="ABCDE ...

还能这样写？厉害，谢谢。

EXCEL渣渣 · 发表于 2023-4-27 15:51

tanglf188 发表于 2023-4-27 13:57
mm = Asc(Mid(Trim(Target.Value), 1, 1)) - 64
If mm < 13 And mm > 0 Then MsgBox Format(mm, ...

谢谢你提供的思路

		自动登录	找回密码
密码			免费注册

[求助] vba 中 if 语 和 select 语句的问题