GBKEE

回復 4# liu5201
如在附檔所有排行欄位中指定篩選的條件後會造以後的[ 金融股].[電子股].[全部選示],無法顯示
附檔的VBA 須修改如下

1. Sub 金融股() '
   
2. ' Macro3 Macro
   
3. ' liujerkun 在 2011/1/20 錄製的巨集'
   
4.    
   
5.    If ActiveSheet.FilterMode Then Selection.AutoFilter  '取消自動篩選
   
6.     Selection.AutoFilter Field:=1, Criteria1:=">2800", Operator:=xlAnd, _
   
7.         Criteria2:="<2900"
   
8.     Range("J2").Select
   
9. End Sub
   
10. Sub 電子股() '
    
11. ' Macro3 Macro
    
12. ' liujerkun 在 2011/1/20 錄製的巨集
    
13. '
    
14.     If ActiveSheet.FilterMode Then Selection.AutoFilter  '取消自動篩選
    
15.     Selection.AutoFilter Field:=1, Criteria1:=">2300", Operator:=xlAnd, _
    
16.         Criteria2:="<2500", VisibleDropDown:=False
    
17.     Range("J1").Select
    
18. End Sub
    
19. Sub 顯示全部() '
    
20. ' Macro6 Macro
    
21. ' liujerkun 在 2011/1/20 錄製的巨集
    
22.     If ActiveSheet.FilterMode Then Selection.AutoFilter  '取消自動篩選
    
23.     Selection.AutoFilter Field:=1
    
24.     Range("N1").Select
    
25. End Sub

複製代碼

GBKEE

回復 10# peter460191
請問您有方法可以連結交易所網站的股價資訊嗎?
A:請你找到連結交易所股價資訊的網站,附上所需求的範例檔案討論.
這裡是一般區 , VBA語法在 程式區有專門的討論

GBKEE

回復 12# peter460191
你的問題已在 http://forum.twbts.com/thread-3704-1-1.html 討論過
我的能力只能幫你匯入文字