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

看板Visual_Basic作者napyang (愛唱歌的大男孩)時間4年前 (2020/04/03 15:18)推噓2(2推 0噓 1→)

留言3則, 3人參與討論串2/2 (看更多)

雖然看不是很懂你的目的... 但我會建議你這樣試試看 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

04/03 19:28, 4年前 , 1^F

04/03 19:28, 1^F

→

napyang

04/04 10:31, 4年前 , 2^F

04/04 10:31, 2^F

推

NealPope

04/16 19:38, 4年前 , 3^F

04/16 19:38, 3^F