sunnyso

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

熱烈參與勳章好學求知勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2013-5-10 01:33 | 只看該作者

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

這是使用VBA的方法, 過幾天再做個用函數(不用VBA)的方法

search record by keyword - Sonny_VER1.rar (21.89 KB)

樓主熱帖

ss

freeffly

高中生 Rank: 3 Rank: 3

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

熱烈參與勳章好學求知勳章

14^#

發表於 2013-6-21 13:18 | 只看該作者

回復 1# sunnyso

挺妙的東西，的確是有創意的想法

字典兩各字還真難理解

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

sunnyso

高中生 Rank: 3 Rank: 3

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

sunnyso

高中生 Rank: 3 Rank: 3

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

高中生 Rank: 3 Rank: 3

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

熱烈參與勳章好學求知勳章

10^#

發表於 2013-5-12 22:25 | 只看該作者

回復 sunnyso
Private Sub Worksheet_Activate()
' ....
' ....
Cells.ClearContent ...
c_c_lai 發表於 2013-5-12 19:54

Cells.ClearContent並不會觸動 worksheet_change

ss

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2013-5-12 21:34 | 只看該作者

本帖最後由 GBKEE 於 2013-5-12 21:36 編輯

回復 5# sunnyso
你的程式改用自動篩選試試看

Option Explicit
Private Sub Worksheet_Activate()
Dim Sh As Worksheet, E As Integer
Application.ScreenUpdating = False
Application.EnableEvents = False
AutoFilterMode = False
E = Cells(Rows.Count, "A").End(xlUp).Row
E = IIF(E = 5, 6, E)
Range("A6:E" & E).Clear
For Each Sh In Sheets(Array("DataSheet2", "DataSheet3", "DataSheet3"))
Sh.UsedRange.Offset(1).Copy Cells(Cells(Rows.Count, "A").End(xlUp).Row + 1, "A") '合併資料
Next
E = Cells(Rows.Count, "A").End(xlUp).Row
Range("A5:E" & E).AutoFilter '範圍設立,自動篩選.
For E = 1 To 5
Range("A5").AutoFilter E, , , , False '自動篩選: 取消箭頭
Next
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim M As Variant
Application.EnableEvents = False
If Target.Row = 4 And Target.Column <= 5 Then
M = Split(Target, "#")
If UBound(M) >= 1 Then '
'自動篩選: 在關鍵字詞前加入【#】將以OR來篩選該欄。
Range("A5").AutoFilter Target.Column, "=*" & M(0) & "*", xlOr, "=*" & M(1) & "*"
Else
Range("A5").AutoFilter Target.Column, "=*" & Target & "*"
End If
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) '第4列輸入後返回第4列
Application.EnableEvents = False
If Target.Row = 5 And Target.Column <= 5 Then
Selection.Offset(-1).Select 'Target.Offset(-1).Select
End If
Application.EnableEvents = True
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

sunnyso

高中生 Rank: 3 Rank: 3

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

熱烈參與勳章好學求知勳章

8^#

發表於 2013-5-12 19:54 | 只看該作者

回復 6# ML089

1. 設置表頭格式 (見下圖)

2. 很好的建議, 有時間再作修改

3. 由於某種特殊情況下, 不能使用有巨集的檔案, 所以才設計該方案, 放上來跟大家分享.

ss

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

7^#

發表於 2013-5-12 19:54 | 只看該作者

回復 sunnyso

寫的不錯，構想也不錯

如果一開始沒有篩選關鍵字時，如何改為全部顯示

目前一列關 ...
ML089 發表於 2013-5-11 09:19

回復 3# sunnyso
Private Sub Worksheet_Activate()
' ....
' ....
Cells.ClearContents
' ....
' ....
' ....
Next
'  設定無篩選關鍵字輸入，每次啟動該頁面即顯示全部內容
'  以下Null("")宣告，系統會自動觸發Worksheet_Change()
Cells(4, 1) = ""
Application.ScreenUpdating = True
End Sub

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

6^#

發表於 2013-5-12 06:36 | 只看該作者

回復 5# sunnyso

>1. 在AA欄設計表頭的字型與顏色等 (VBA Sheet)
沒有試成功

>2. 添加VBA OR篩選，在關鍵字前加#
這部分用的有點不順
如能像高階篩選方式比較簡單，同一列為AND，不同列為OR
VBA可以再同一列以 ";" 區分為不同列方式，
例如
小項=早;午，S=A 表示取出 OR(AND(小項=早,S=A), AND(小項=午,S=A))
小項=早;午，S=A;B 表示取出 OR(AND(小項=早,S=A), AND(小項=午,S=B))

>3. 添加非VBA方法，當中沒有使用陣列和陣列函數（如small, min等），以及盡量避免使用IF函數（因此篩選後的資料順序是3個sheets交錯）。以免資料增加會令計算過長。
公式大概只能這樣做，全部先引用過來篩選

以前用巨集練習過此類問題，看你使用VBA來處理所以特別有興趣。如果你累了不用管我的需求。謝謝
以前是分解動作
1. 將各Sheets資料複製再一起
2. 上方預留五行用高級篩選方處理，資料填完後按鈕由巨集來啟動高級篩選(半自動方式)

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP