作者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/cn.aspx?n=bbs/Visual_Basic/M.1488434815.A.891.html