如何讓inputbox 連續產生

各路神人，小弟現有一困擾，就是當在核對書名時排上架時(擺放清單)，總是要剪剪貼貼。所以想用excel 寫一個迴圈程式，讓店長能直接輸入數字後，能對應到表格剪下來，產生另一份的擺放清單。但不知要怎麼讓inputbox 能有連續輸入的功能，及當輸入到特定值時能自動關掉。煩請指導了，謝謝

dim n as page
st = application.inputbox("數字", type:=1)
for each n in page("A2"A50")
if n.value=st then
range(Cells(st+1,"A"),Cells(st+1,"B")).select
(已選上的拷貝到sheet(2), 貼上(假設有文字的話跳到下一行) '這段不會寫
msgbox"已選上 " & Cells(st+1,"B").text

else
if st=0
msgbox"已完成選項"

end if
next

樓主熱帖

kerochen

小學生 Rank: 1

帖子: 15
主題: 3
精華: 0
積分: 30
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2014-5-29
最後登錄: 2015-10-23

16^#

發表於 2015-10-10 13:01 | 只看該作者

本帖最後由 kerochen 於 2015-10-10 13:03 編輯

回復 15# 准提部林

Hi 准大, 我個人的思考如下, 我看明天能不能上傳給你看一下. 你的思考是正確的, 當你使用連續輸入時就可能會產生你上述的情形, 所以我現在的寫法是當我選到要核對的row, row. coloridex=27. 直接上底色. 表示有處理過了. 如選到重覆的就跳出. 這樣的寫法很單純. 但只能單筆單筆的敲. 但如過有1百多筆的話我就要敲1百多筆, 所以才產生我能不能大量的輸入? 假設"中途" 找不到符合、或"重覆"選上的, 我就跳msgbox. 不再go. 也不讓msgbox有記住什麼的功能. 講這些最重要的就是" 大量輸入"有他的風險(重覆、找不到、輸入錯誤) , 代價就是"中斷". 讓你費神了. 也謝謝你願意不斷教導我. 如你住台中的話就直接請你出來海尼根了 XD

其實那個想法是有問題的：
１．中途找不到符合者，提示訊息後，中斷？或只提醒，按MSGBOX確定，繼續往下執行？
２．中途找到符合者，又已存在（即重覆選取），同上問題？
３．不管找到或找不到，可能是輸入時手誤，如何判斷？
４．當MSGBOX提示多個後，如何記住是哪些有錯誤？
５．當有錯誤，是否又要重來一次？

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2808
主題: 10
精華: 0
積分: 2864
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-5-19

15^#

發表於 2015-10-9 18:45 | 只看該作者

回復 14# kerochen

其實那個想法是有問題的：
１．中途找不到符合者，提示訊息後，中斷？或只提醒，按MSGBOX確定，繼續往下執行？
２．中途找到符合者，又已存在（即重覆選取），同上問題？
３．不管找到或找不到，可能是輸入時手誤，如何判斷？
４．當MSGBOX提示多個後，如何記住是哪些有錯誤？
５．當有錯誤，是否又要重來一次？

只是簡單的找對應，不如使用VLOOKUP，在工作表儲存格直接輸入，應更方便，也可檢錯！

TOP

kerochen

小學生 Rank: 1

帖子: 15
主題: 3
精華: 0
積分: 30
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2014-5-29
最後登錄: 2015-10-23

14^#

發表於 2015-10-9 18:35 | 只看該作者

回復 13# 准提部林

是的, 就是這個意思. 淮大. 我再傳上來. 謝謝

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2808
主題: 10
精華: 0
積分: 2864
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-5-19

13^#

發表於 2015-10-9 10:21 | 只看該作者

回復 12# kerochen

能否一次選擇從編號X 到編號N　

意思是類似：輸入〔10-12,18,22-24]，連續處理〔10,11,12,18,22,23,24〕，
最好上傳檔案及模擬需求結果（因還檢測是否已選過）！

TOP

kerochen

小學生 Rank: 1

帖子: 15
主題: 3
精華: 0
積分: 30
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2014-5-29
最後登錄: 2015-10-23

12^#

發表於 2015-10-9 06:14 | 只看該作者

回復 11# 准提部林

Hi 准大, 這幾天較忙遲回了. 我大致上已修正完成. 用後續的程式二個都可以。只是習慣問題. 但這幾天我又在思考另一個問題.. 再麻煩淮大了. 感謝

(1) 能否一次選擇從編號X 到編號N, 並做防呆如被選過的話就msgbox "X" 已被選過 or msgbox "沒這本書啦" (其它功能我造之前的寫即可.

TOP

准提部林