作者iwantlucky (我要幸運)
看板Visual_Basic
標題Re: [VBA ] 請教INPUTBOX搭配迴圈的問題
時間Thu Mar 2 14:40:07 2017
謝謝lin0919解答我的疑惑
Sub ask()
Do
If MsgBox("add", vbYesNo) = vbYes Then
a = Cells(Rows.Count, 1).End(xlUp).Row
Range("a" & a).Offset(1, 0).Select
a = InputBox("name")
ActiveCell.Formula = a
b = Cells(Rows.Count, 2).End(xlUp).Row
Range("b" & b).Offset(1, 0).Select
b = InputBox("quantity")
ActiveCell.Formula = b
Else: Exit Do
End If
Loop
End Sub
加上自動跳行
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 118.163.138.127
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1488436813.A.864.html