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://www.ptt.cc/bbs/Visual_Basic/M.1488434815.A.891.html