返回列表 上一主題 發帖

下拉問題

lpk187

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

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2015-6-1 22:29 | 顯示全部帖子
本帖最後由 lpk187 於 2015-6-1 22:32 編輯

回復 1# 周大偉
我想問先問的是"用家選定"系啥咪意思？
從你家選定？
還是用你家選定？
還是用我家選定？
我不是嘴炮！問題也別用錯別字讓人家猜！

TOP

lpk187

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

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
2#
發表於 2015-6-2 10:02 | 顯示全部帖子
回復 3# 周大偉

試試，也不知道對不對 :$
    資料.rar (131.57 KB)

TOP

lpk187

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

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
3#
發表於 2015-6-2 22:16 | 顯示全部帖子
回復 6# 周大偉

InStr("A1,A4", Target) > 0這個判斷式我放在其他地方，只因為原本放在工作表事件上容易產生錯誤
修改後的檔案如下
資料.rar (131.07 KB)

TOP

lpk187

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

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
4#
發表於 2015-6-7 17:19 | 顯示全部帖子
本帖最後由 lpk187 於 2015-6-7 17:20 編輯

回復 9# 周大偉

不是很明白你的問題，不過我還是試著去做看看，你看是不是你想要的
資料.rar (147.83 KB)

為了識別，所以資料庫中的數量我有修改了一下

TOP

lpk187

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

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
5#
發表於 2015-6-7 19:22 | 顯示全部帖子
回復 11# 周大偉


TOP

lpk187

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

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
6#
發表於 2015-6-7 20:57 | 顯示全部帖子
回復 13# 周大偉


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

TOP

lpk187

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

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
7#
發表於 2015-6-7 21:01 | 顯示全部帖子
回復 13# 周大偉


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

TOP

lpk187

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

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
8#
發表於 2015-6-8 01:35 | 顯示全部帖子
本帖最後由 lpk187 於 2015-6-8 01:37 編輯

回復 16# 周大偉


  我已經加到14樓的程式中了，對照一下，你應該就知道了
"X" 只是一個變數名稱，而它對照的只是Sheets("提取單").Range("AJ1")的內容

TOP

lpk187

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

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
9#
發表於 2015-6-11 22:33 | 顯示全部帖子
回復 19# hong912

你重新執行Workbook_Open試試

TOP

        靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。
返回列表 上一主題