12
返回列表 上一主題 發帖

[原創] 以關鍵字篩選多個sheets的資料

sunnyso

帖子
605 
主題
92 
精華
0 
積分
648 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
50 
性別
男 
來自
macau 
註冊時間
2013-4-5 
最後登錄
2019-2-10 

熱烈參與勳章好學求知勳章
11# 跳轉到 »
發表於 2013-5-12 22:32 | 只看該作者
本帖最後由 sunnyso 於 2013-5-12 22:34 編輯
Cells.ClearContent並不會觸動 worksheet_change
sunnyso 發表於 2013-5-12 22:25

回復 7# c_c_lai

對不起沒有寫完就按錯鍵
Cells.ClearContent並不會觸動 worksheet_change
用Cells(4,1)=“”, 來觸動更有效率.
謝謝.
ss

TOP

sunnyso

帖子
605 
主題
92 
精華
0 
積分
648 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
50 
性別
男 
來自
macau 
註冊時間
2013-4-5 
最後登錄
2019-2-10 

熱烈參與勳章好學求知勳章
12#
發表於 2013-5-12 23:10 | 只看該作者
回復 9# GBKEE

感謝GBKEE大大的code, 效率更高
有一點小小的地方，就是如果datasheet(i) 的A欄最後一列假如因爲輸入錯誤為空白會出錯
如果把
    Cells(Rows.Count, "A").End(xlUp).Row
改爲
    UsedRange.Rows.Count
好像可以避免。不知道這樣改妥當嗎？
ss

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
13#
發表於 2013-5-13 06:54 | 只看該作者
本帖最後由 c_c_lai 於 2013-5-13 07:01 編輯
Cells.ClearContent並不會觸動 worksheet_change
sunnyso 發表於 2013-5-12 22:25

你寫的內容真的很不錯，也蠻有構思的。 GBKEE 的補充也蠻具體實用。
不好意是、補充一下我指的是紅色的 Cells(4, 1) = ""，而非   
Cells.ClearContent，因為在一開始所有內容均被清除掉了，
之後當  Cells(4, 1) 、 Cells(4, 2)、 Cells(4,3)、 Cells(4, 4)、
或者是 Cells(4, 5) 內容中有所任何一組異動時，便會觸發
worksheet_change()。

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
14#
發表於 2013-6-21 13:18 | 只看該作者
回復 1# sunnyso


    挺妙的東西，的確是有創意的想法
字典兩各字 還真難理解

TOP

        靜思自在 : 盡多少本份，就得多少本事。
12
返回列表 上一主題