如何讓inputbox 連續產生 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何讓inputbox 連續產生

返回列表下一主題上一主題發帖

如何讓inputbox 連續產生

中學生 Rank: 2

帖子: 60
主題: 4
精華: 0
積分: 64
點名: 0
作業系統: w7-32
軟體版本: 2013.2003
閱讀權限: 20
註冊時間: 2014-11-23
最後登錄: 2016-6-6

1^# 跳轉到 »

發表於 2015-10-4 18:45 | 顯示全部帖子

要不要改用TextBox試試

有資料就換下一列
Ax = Sheets(2).[A65536].End(xlUp).Row + 1
Rows(n.Row).Copy Sheets(2).Cells(Ax, 1)

中學生 Rank: 2

帖子: 60
主題: 4
精華: 0
積分: 64
點名: 0
作業系統: w7-32
軟體版本: 2013.2003
閱讀權限: 20
註冊時間: 2014-11-23
最後登錄: 2016-6-6

2^#

發表於 2015-10-5 02:59 | 顯示全部帖子

連續輸入也可以用call自己

Sub test()
Dim a As Integer
a = InputBox("請輸入編號", "輸入")
If a = 3 Then Exit Sub ''輸入3離開
Cells([A65536].End(xlUp).Row + 1, 1) = a ''下一列開始輸入
Call test
End Sub

複製代碼

靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。

返回列表下一主題上一主題