下拉問題

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

2^#

發表於 2015-6-1 22:57 | 顯示全部帖子

本帖最後由周大偉於 2015-6-1 23:10 編輯

回復 2# lpk187
是小弟表達問題，見諒，現重新表達，1使用者從貨物下拉中選定物品，資料顯示，如何能設定把資料庫中單位及單價顯示於提取單相關攔位上， 2是當使用者從人員下拉中選定員工，會跳出執行錯誤13，問題錯在哪裡。謝謝！！

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

3^#

發表於 2015-6-2 10:27 | 顯示全部帖子

回復 4# lpk187

感謝，但要到今晚放工後才能試用，但真心謝謝！！

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

4^#

發表於 2015-6-2 21:21 | 顯示全部帖子

回復 4# lpk187
感謝大大,
小弟己試用, 基本是沒有問題, 但原有程式中, 表單是按用家輸入編號後, 程式中有該編號表單才會顯示, 沒有該編號表單是不會顥示, 現時輸入任編號貨物, 表單都會顥示, 請大大指導,
謝謝!!
Private Sub Worksheet_Change(ByVal Target As Range)
'aa = Target
'If Target.Column = 3 And InStr("A1,A4", Target) > 0 Then UserForm2.Show
End Sub

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

5^#

發表於 2015-6-2 22:55 | 顯示全部帖子

回復 7# lpk187
感謝, 感謝,
衷曲感謝謝!!

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

6^#

發表於 2015-6-7 10:13 | 顯示全部帖子

回復 7# lpk187
先謝過大大,
大大早前協助解決之問題, 小弟已應用於工作中, 但小弟遇上一個問題, 便是庫存問題, 可否於表單中加入顯示庫存量,
當使用者於提取單下拉程式中選定貨物, 如該貨物編號程式中是有, 表單彈出, 而使用者選定倉庫, 該貨物便從資料庫檔中傳回選定倉庫之現存量, 而資料庫檔中共有四張工作表, 一張表代表一個倉庫,
說真的, 小弟曾請教好友, 但好友說功力淺, 幫不到忙, 故小弟再把問題發問, 希望真能有此奇效,
謝謝謝!

資料.rar (144.44 KB)

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

7^#

發表於 2015-6-7 19:08 | 顯示全部帖子

回復 10# lpk187

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

資料.rar (149.83 KB)

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

8^#

發表於 2015-6-7 20:46 | 顯示全部帖子

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

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

9^#

發表於 2015-6-7 23:28 | 顯示全部帖子

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

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

10^#

發表於 2015-6-8 13:03 | 顯示全部帖子

回復 17# lpk187
感謝大大，已試用，謝謝！！