Re: [VBA ] 無法跳出所選取的選項

[napyang (愛唱歌的大男孩)]

雖然看不是很懂你的目的...
但我會建議你這樣試試看

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://www.ptt.cc/bbs/Visual_Basic/M.1585898319.A.6CB.html
推 MidoBanA: 謝謝
→ napyang: 抱歉 手機排版，發現多了cells()...
推 NealPope: 厲害！推