123
返回列表 上一主題 發帖

下拉問題

周大偉

帖子
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

帖子
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

帖子
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

帖子
97 
主題
31 
精華
0 
積分
133 
點名
0  
作業系統
xp2007 
軟體版本
xp2007 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2012-8-12 
最後登錄
2020-12-25 
19#
發表於 2015-6-11 20:32 | 只看該作者
版大, 好
請教問題, 下列圖片中程式出現黃色情況  , 是何處錯誤, 大大可否解答該段程式碼,
謝謝!!
hong912

TOP

周大偉

帖子
250 
主題
59 
精華
0 
積分
313 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
澳門 
註冊時間
2010-9-11 
最後登錄
2020-1-6 
18#
發表於 2015-6-8 13:03 | 只看該作者
回復 17# lpk187
感謝大大，已試用，謝謝！！

TOP

lpk187

帖子
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

周大偉

帖子
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

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

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
15#
發表於 2015-6-7 21:01 | 只看該作者
回復 13# 周大偉


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

TOP

lpk187

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

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

周大偉

帖子
250 
主題
59 
精華
0 
積分
313 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
澳門 
註冊時間
2010-9-11 
最後登錄
2020-1-6 
13#
發表於 2015-6-7 20:46 | 只看該作者
回復 12# lpk187
謝謝版大, 已試用,
衷心感謝,

TOP

        靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。
123
返回列表 上一主題