下拉問題

帖子: 250
主題: 59
精華: 0
積分: 313
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 澳門
註冊時間: 2010-9-11
最後登錄: 2020-1-6

11^# 跳轉到 »

發表於 2015-6-7 19:08 | 只看該作者

回復 10# lpk187

感謝版大,
小弟想要的正是這樣, 但有一樣問題, 現時每個倉庫都是12筆資料, 小弟試到最尾一筆資料, 都沒有問題, 表單彈出, 該倉庫庫存亦顯示,
但小弟試過增加倉庫資料, 因貨物品種會增加, 我把12筆資料增加至20筆或更多, 而在程式中亦加新編號, 如A15, 當我從下拉中選定A15貨物, 表單彈出, 我輸入倉庫, 但沒有庫存, 我從新增第一筆資料起A13試,
由該新增資料, 便沒有庫存顯示, 到底是何原因, 現把有新增資料檔上傳, 該檔每個倉庫中A13開始便是新增資料, 請大大教導.
謝謝謝!

資料.rar (149.83 KB)

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 6
精華: 0
積分: 576
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2026-9-10

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

12^#

發表於 2015-6-7 19:22 | 只看該作者

回復 11# 周大偉

TOP

周大偉

中學生 Rank: 2

帖子: 250
主題: 59
精華: 0
積分: 313
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 澳門
註冊時間: 2010-9-11
最後登錄: 2020-1-6

13^#

發表於 2015-6-7 20:46 | 只看該作者

回復 12# lpk187
謝謝版大, 已試用,
衷心感謝,

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 6
精華: 0
積分: 576
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2026-9-10

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

14^#

發表於 2015-6-7 20:57 | 只看該作者

回復 13# 周大偉

不過，與其上面那種方法來增加不如用另一種方式來用
如我在下面程式中用一個公用變數"X"來替代程式中的修改
X = Sheets("提取單").Range("AJ1")
...
...
...
If InStr(X, Rng) > 0 Then
這樣就不用再去修改程式了

資料.rar (142.21 KB)

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 6
精華: 0
積分: 576
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2026-9-10

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

15^#

發表於 2015-6-7 21:01 | 只看該作者

回復 13# 周大偉

其 Sheets("提取單").Range("AJ1")的內容就你的需求來修改

TOP

周大偉

中學生 Rank: 2

帖子: 250
主題: 59
精華: 0
積分: 313
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 澳門
註冊時間: 2010-9-11
最後登錄: 2020-1-6

16^#

發表於 2015-6-7 23:28 | 只看該作者

回復 15# lpk187
版大, 安好,
X = Sheets("提取單").Range("AJ1")
If InStr(X, Rng) > 0 Then
其 Sheets("提取單").Range("AJ1")的內容就你的需求來修改,
如何把程上述之程式加入現有程式中, 因小弟試行加入失敗,
及請教大大X是否是名稱,
謝謝謝!

TOP

lpk187