Re: [VBA ] 請教INPUTBOX搭配迴圈的問題
謝謝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://www.ptt.cc/bbs/Visual_Basic/M.1488436813.A.864.html
討論串 (同標題文章)
完整討論串 (本文為第 3 之 3 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
-1
12