作者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/m.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