返回列表 上一主題 發帖

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

回復  sunnyso


    改成這樣好用多了

表頭我設好字型與顏色,只要一執行VBA後就會被清除? 有辦法不 ...
ML089 發表於 2013-5-11 16:19


1. 在AA欄設計表頭的字型與顏色等 (VBA Sheet)
2. 添加VBA OR篩選,在關鍵字前加#
3. 添加非VBA方法,當中沒有使用陣列和陣列函數(如small, min等),以及盡量避免使用IF函數(因此篩選後的資料順序是3個sheets交錯)。以免資料增加會令計算過長。

請指教。


search record by keyword - Sonny.rar (37.13 KB)
ss

TOP

回復 3# sunnyso


    改成這樣好用多了

表頭我設好字型與顏色,只要一執行VBA後就會被清除? 有辦法不被清除嗎?
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

回復  sunnyso

寫的不錯,構想也不錯

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

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


[1] 在 For Each sh In all_datasheets的Next 前加入, "Cells(dst_row, 1).Resize(src_rows, clmn1) = tmp_data" 即可

[2] 若要用OR 就要改動多一些代碼, 過兩天改一下放上來.
  1.     For Each sh In all_datasheets
  2. ......
  3. ......
  4.         Cells(dst_row, 1).Resize(src_rows, clmn1) = tmp_data
  5.     Next
複製代碼
ss

TOP

回復 1# sunnyso

寫的不錯,構想也不錯

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

目前一列關鍵字的關係式是 AND,是否能多幾列為 OR
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

        靜思自在 : 忘功不忘過,忘怨不忘恩。
返回列表 上一主題