PTT數位生活區 / Visual_Basic

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

看板Visual_Basic作者 (愛唱歌的大男孩)時間4年前 (2020/04/03 15:18), 編輯推噓2(2推 0噓 1→)
留言3則, 3人參與, 4年前最新討論串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
推
04/03 19:28, 4年前 , 1F
謝謝
04/03 19:28, 1F
→
04/04 10:31, 4年前 , 2F
抱歉 手機排版，發現多了cells()...
04/04 10:31, 2F
推
04/16 19:38, 4年前 , 3F
厲害！推
04/16 19:38, 3F
‣ 更多 napyang 的文章
文章代碼(AID): #1UXkDFRB (Visual_Basic)
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
排序： 最舊先 | 最新先 | 留言數
在新視窗開啟完整討論串 (共2篇)
Visual_Basic 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 napyang 的文章
文章代碼(AID): #1UXkDFRB (Visual_Basic)