[VBA ] 无法跳出所选取的选项

楼主: MidoBanA (美堂)   2020-04-03 11:48:19
小弟沿用公司前辈的报表做修改
初期很正常
直到今日出现一个不解的问题
Cells(I, 9).Value = InputBox("K.-KE0201" & Chr(13) & "E.-KE0202")
If UCase(Cells("I, 9").Value) = "K" Then GoTo KE0201
If UCase(Cells("I, 9").Value) = "E" Then GoTo KE0202
KE0201:
If Cells("I, 9").Value >= KE0201 Then
End If
KE0202:
If Cells("I, 9").Value >= KE0202 Then
End If
小弟想要在
https://imgur.com/nQzRo9f.jpg
选择K后
在储存格跳出KE0201
不过一直出现 执行阶段错误1004
请教大大如何解套?
感谢

Links booklink

Contact Us: admin [ a t ] ucptt.com