- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
回復 9# blue2263 - Sub 選股與同產業()
- Dim 代碼別 As String, 產業別 As Range
-
- 代碼別 = InputBox("請輸入您欲篩選之股票代碼 (Stock No.)" & vbCrLf & "(例如：1101、1203、1234、或 1439 等) ", "基本資料") ' 彈出輸入視窗
- If 代碼別 = "" Then Exit Sub
-
- With Sheets("對手同產業")
- .AutoFilterMode = False ' 取消自動篩選 (回復原始篩選前內容)
- Set 產業別 = Sheets("對手同產業").[B:B].Find(代碼別, , , 1)
- If Not 產業別 Is Nothing Then
- .Range("A1").AutoFilter FIELD:=6, Criteria1:=產業別.Offset(, 4).Value ' 自動篩選
- End If
- End With
-
- With Sheets("選股報表")
- .AutoFilterMode = False ' 取消自動篩選 (回復原始篩選前內容)
- Set 產業別 = Sheets("選股報表").[A:A].Find(代碼別, , , 1)
- If Not 產業別 Is Nothing Then
- .Range("A1").AutoFilter FIELD:=4, Criteria1:=產業別.Offset(, 3).Value ' 自動篩選
- End If
- End With
- End Sub
|
|
發表於 2016-7-12 12:29
| 
