作者napyang (爱唱歌的大男孩)
看板Visual_Basic
标题Re: [VBA ] 无法跳出所选取的选项
时间Fri Apr 3 15:18:37 2020
虽然看不是很懂你的目的...
但我会建议你这样试试看
Dim temp_answer as variant
temp_answer= InputBox("K.-KE0201" & Chr(13) & "E.-KE0202")
Select case UCase(temp_answer)
Case "K"
Cells(Cells("I, 9").Value) = “KE0201”
Case "E"
Cells(Cells("I, 9").Value) = “KE0202”
Case else
Msgbox “Wrong Answer”
End select
※ 引述 《MidoBanA》 之铭言：
: 小弟沿用公司前辈的报表做修改
: 初期很正常
: 直到今日出现一个不解的问题
: 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
: 请教大大如何解套?
: 感谢
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 59.125.98.209 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1585898319.A.6CB.html
1F：推 MidoBanA: 谢谢 04/03 19:28
2F：→ napyang: 抱歉 手机排版，发现多了cells()... 04/04 10:31
3F：推 NealPope: 厉害！推 04/16 19:38