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，脑袋很僵...