作者lin0919 (無聊)
看板Visual_Basic
標題Re: [VBA ] 請教INPUTBOX搭配迴圈的問題
時間Thu Mar 2 14:06:53 2017
Sub ask()
a = MsgBox("add", 4 + 32)
d = 1
Do Until a <> 6
b = InputBox("name")
Cells(d, 1) = b
c = InputBox("quantity")
Cells(d, 2) = c
d = d + 1
Loop
End Sub
會換行的寫法
※ 引述《iwantlucky (我要幸運)》之銘言：
: 一直想不通會什麼會無限迴圈...
: Sub ask()
: a = MsgBox("add", 4 + 32)
: If a = 6 Then
: b = InputBox("name")
: Range("A1") = b
: c = InputBox("quantity")
: Range("b1") = c
: End If
: End Sub
: 上面是執行一次的程式碼，想編輯成只要不按"否"就會重複執行，
: 我試過寫成DoWhile a= 6 ... loop ，但會導致InputBox一直無限循環‧‧‧
: 剛接觸VBA，腦袋很僵...
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.165.84.191
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1488434815.A.891.html