c_c_lai

回復 1# blue2263
可參考
Autofilter 方法

c_c_lai

回復 1# blue2263
工作表篩選資料， 試試看！
以產業別、以及市場別等為範例來篩選資料。
公司互動篩選.rar (450.34 KB)

下載次數: 6

2016-7-14 10:44

下載 (40.88 KB)

2016-7-14 10:53

下載 (50.01 KB)

2016-7-14 10:53

c_c_lai

回復 7# blue2263
說真的，你從#5 ~ #7 間的描述，
我看的 "濛颯颯"，你可否從頭到尾
將需求用圖示以及說明描述一次？

下載 (37.28 KB)

2016-7-28 09:30

c_c_lai

回復 9# blue2263
這是不是你要的結果？

下載 (147.95 KB)

2016-7-29 08:37

下載 (80.18 KB)

2016-7-29 08:37

公司互動篩選.rar (1.3 MB)

下載次數: 7

2016-7-29 08:38

c_c_lai

回復 9# blue2263

1. Sub 選股與同產業()
   
2.     Dim 代碼別 As String, 產業別 As Range
   
3.    
   
4.     代碼別 = InputBox("請輸入您欲篩選之股票代碼 (Stock No.)" & vbCrLf & "(例如：1101、1203、1234、或 1439 等) ", "基本資料")     '  彈出輸入視窗
   
5.     If 代碼別 = "" Then Exit Sub
   
6.    
   
7.     With Sheets("對手同產業")
   
8.         .AutoFilterMode = False                              '  取消自動篩選  (回復原始篩選前內容)
   
9.         Set 產業別 = Sheets("對手同產業").[B:B].Find(代碼別, , , 1)
   
10.         If Not 產業別 Is Nothing Then
    
11.             .Range("A1").AutoFilter FIELD:=6, Criteria1:=產業別.Offset(, 4).Value '  自動篩選
    
12.         End If
    
13.     End With
    
14.      
    
15.     With Sheets("選股報表")
    
16.         .AutoFilterMode = False                              '  取消自動篩選  (回復原始篩選前內容)
    
17.         Set 產業別 = Sheets("選股報表").[A:A].Find(代碼別, , , 1)
    
18.         If Not 產業別 Is Nothing Then
    
19.             .Range("A1").AutoFilter FIELD:=4, Criteria1:=產業別.Offset(, 3).Value  '  自動篩選
    
20.         End If
    
21.     End With
    
22. End Sub

複製代碼

c_c_lai

回復 12# blue2263
你希望的結果
是這樣麼？

下載 (92.59 KB)

2016-7-30 10:13

c_c_lai

回復 14# blue2263
你的意思是否如此？

下載 (111.29 KB)

2016-8-2 09:22

下載 (60.31 KB)

2016-8-2 09:22