周大偉

中學生 Rank: 2

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2015-6-1 19:44 | 只看該作者

下拉問題

請大大幫忙,
付檔中下拉問題, 問題貼於提取單內, 兩個檔案必須同時開啟,
先行謝過前輩,各大大, 版大, 謝謝!!

資料.rar (129.39 KB)

樓主熱帖

hong912

中學生 Rank: 2

帖子: 97
主題: 31
精華: 0
積分: 133
點名: 0
作業系統: xp2007
軟體版本: xp2007
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2012-8-12
最後登錄: 2020-12-25

21^#

發表於 2015-6-12 19:46 | 只看該作者

回復 20# lpk187
版大, 好
問題現時已解決, 感解教導,

hong912

TOP

lpk187

高中生 Rank: 3 Rank: 3

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

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

20^#

發表於 2015-6-11 22:33 | 只看該作者

回復 19# hong912

你重新執行Workbook_Open試試

TOP

hong912

中學生 Rank: 2

帖子: 97
主題: 31
精華: 0
積分: 133
點名: 0
作業系統: xp2007
軟體版本: xp2007
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2012-8-12
最後登錄: 2020-12-25

19^#

發表於 2015-6-11 20:32 | 只看該作者

版大, 好
請教問題, 下列圖片中程式出現黃色情況 , 是何處錯誤, 大大可否解答該段程式碼,
謝謝!!

hong912

TOP

周大偉

中學生 Rank: 2

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

18^#

發表於 2015-6-8 13:03 | 只看該作者

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

TOP

lpk187

高中生 Rank: 3 Rank: 3

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

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

17^#

發表於 2015-6-8 01:35 | 只看該作者

本帖最後由 lpk187 於 2015-6-8 01:37 編輯

回復 16# 周大偉

我已經加到14樓的程式中了，對照一下，你應該就知道了
"X" 只是一個變數名稱，而它對照的只是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