麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 請問有什麼方法可以在excel上自動更新目前所有上市櫃股票收盤價 [打印本頁]

作者: peter460191 時間: 2011-6-30 11:41 標題: 請問有什麼方法可以在excel上自動更新目前所有上市櫃股票收盤價

請問有什麼方法可以在excel上自動更新目前所有上市櫃股票收盤價。

作者: vvcvc 時間: 2011-6-30 23:45

本帖最後由 vvcvc 於 2011-6-30 23:46 編輯

資料→匯入外部資料→新增Web查詢
但只能一支一支慢慢加
試過投資組合會失敗

作者: liu5201 時間: 2011-7-3 10:24

盤後收盤資料
資料→匯入外部資料→新增Web查詢
→在新增web查詢[視窗]輸入網頁http://www.sinotrade.com.tw/today_stock_price.htm
盤中自動更新以vvcvc方式即可  在新增web查詢[視窗]輸入網頁在新增web查詢[視窗]輸入網頁例台積電2330:    http://tw.stock.yahoo.com/q/q?s=2330
小弟自製範例檔:包含1.當日收盤行情
                                    2.個股日本益比、殖利率及股價淨值比
                                    3.當日盤後交易明細
                                    4.當日外資/投信/自營商買賣超個股明細

作者: liu5201 時間: 2011-7-3 10:30

補範例檔[attach]6901[/attach]

作者: GBKEE 時間: 2011-7-4 09:08

本帖最後由 GBKEE 於 2011-7-4 13:28 編輯

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

Sub 金融股() '
' Macro3 Macro
' liujerkun 在 2011/1/20 錄製的巨集'
If ActiveSheet.FilterMode Then Selection.AutoFilter '取消自動篩選
Selection.AutoFilter Field:=1, Criteria1:=">2800", Operator:=xlAnd, _
Criteria2:="<2900"
Range("J2").Select
End Sub
Sub 電子股() '
' Macro3 Macro
' liujerkun 在 2011/1/20 錄製的巨集
'
If ActiveSheet.FilterMode Then Selection.AutoFilter '取消自動篩選
Selection.AutoFilter Field:=1, Criteria1:=">2300", Operator:=xlAnd, _
Criteria2:="<2500", VisibleDropDown:=False
Range("J1").Select
End Sub
Sub 顯示全部() '
' Macro6 Macro
' liujerkun 在 2011/1/20 錄製的巨集
If ActiveSheet.FilterMode Then Selection.AutoFilter '取消自動篩選
Selection.AutoFilter Field:=1
Range("N1").Select
End Sub

複製代碼

作者: liu5201 時間: 2011-7-6 10:32

回復 5# GBKEE

感謝GBKEE之提醒與方案
:handshake

作者: peter460191 時間: 2011-7-11 21:51

本帖最後由 peter460191 於 2011-10-20 10:02 編輯

回復 4# liu5201

liu5201抱歉我還沒有權限下載您的附檔，方便mail給我嗎?
非常謝謝您!

作者: peter460191 時間: 2011-7-11 22:01

本帖最後由 peter460191 於 2011-7-13 16:44 編輯

回復 5# GBKEE

致:GBKEE版主

請教您有自動更新全部上市櫃公司股價的的VBA語法嗎?
之前曾經用過交易所的外部連結,但自從交易所改版之後就無法更新資料了,
請問您有方法可以連結交易所網站的股價資訊嗎?

作者: GBKEE 時間: 2011-7-12 07:41

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

作者: peter460191 時間: 2011-7-13 10:40

回復 11# GBKEE

謝謝版主,附件檔案已編輯過，但無效，請版主幫幫忙!

連結網址： http://mis.twse.com.tw/stock_category.html
在『A6儲存格』已有匯入外部資料，但無法顯示資料，以前可以但改版之後就不行用了

作者: GBKEE 時間: 2011-7-13 13:24

本帖最後由 GBKEE 於 2011-7-13 13:27 編輯

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

作者: peter460191 時間: 2011-7-13 14:43

回復 13# GBKEE

非常謝謝GBKEE 版主

作者: jsleee 時間: 2011-9-6 21:38

以下的程式碼提供參考......

Sub 成交資訊取得()
Application.ScreenUpdating = False
DATE_REQ = CDate(InputBox("請輸入交易日期, 格式 2011/9/6", , Format(Now(), "yyyy/m/d")))

yyyymm = Year(DATE_REQ) & Format(Month(DATE_REQ), "00")
yyyymmdd = Year(DATE_REQ) & Format(Month(DATE_REQ), "00") & Format(Day(DATE_REQ), "00")
yyymmdd = Year(DATE_REQ) - 1911 & "/" & Format(Month(DATE_REQ), "00") & "/" & Format(Day(DATE_REQ), "00")
Application.DisplayAlerts = False
Cells.Select
Selection.ClearContents
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;http://www.twse.com.tw/ch/trading/exchange/MI_INDEX/genpage/Report" & yyyymm & "/A112" & yyyymmdd & "ALLBUT0999_1.php?select2=ALLBUT0999&chk_date=" & yyymmdd & "" _
      , Destination:=Range("A1"))
      .Name = "04"
      .FieldNames = True
      .RowNumbers = False
      .FillAdjacentFormulas = False
      .PreserveFormatting = True
      .RefreshOnFileOpen = False
      .BackgroundQuery = True
      .RefreshStyle = xlInsertDeleteCells
      .SavePassword = False
      .SaveData = True
      .AdjustColumnWidth = True
      .RefreshPeriod = 0
      .WebSelectionType = xlSpecifiedTables
      .WebFormatting = xlWebFormattingNone
      .WebTables = "10"
      .WebPreFormattedTextToColumns = True
      .WebConsecutiveDelimitersAsOne = True
      .WebSingleBlockTextImport = False
      .WebDisableDateRecognition = False
      .WebDisableRedirections = False
      .Refresh BackgroundQuery:=False
End With
Columns("A:A").ColumnWidth = 9.63
Rows("4:4").Select
Selection.Delete Shift:=xlUp
Range("C4").Select
end sub

作者: peter460191 時間: 2011-9-8 14:33

回復 16# jsleee

感謝 jsleee
按照所提供的程式真的可以用耶!
但好像只有上市的，如果想要上市加上櫃、興櫃及可轉債(CB)要如何修改,謝謝您的指導。

作者: jsleee 時間: 2011-9-8 22:12

興櫃的程式碼如下：

Sub 興櫃()
On Error Resume Next
Cells.Select
Selection.QueryTable.Delete
Selection.ClearContents
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;http://nweb.gretai.org.tw/emgstk/ch/emgstk.htm", Destination:=Range( _
      "$A$1"))
      .Name = "emgstk_1"
      .FieldNames = True
      .RowNumbers = False
      .FillAdjacentFormulas = False
      .PreserveFormatting = True
      .RefreshOnFileOpen = False
      .BackgroundQuery = True
      .RefreshStyle = xlInsertDeleteCells
      .SavePassword = False
      .SaveData = True
      .AdjustColumnWidth = True
      .RefreshPeriod = 0
      .WebSelectionType = xlEntirePage
      .WebFormatting = xlWebFormattingNone
      .WebPreFormattedTextToColumns = True
      .WebConsecutiveDelimitersAsOne = True
      .WebSingleBlockTextImport = False
      .WebDisableDateRecognition = False
      .WebDisableRedirections = False
      .Refresh BackgroundQuery:=False
End With
Columns("A:A").ColumnWidth = 15.88
Columns("B:B").ColumnWidth = 13.13
End Sub

作者: jsleee 時間: 2011-9-8 22:26

可轉債的部分參考如下：

Sub 可轉債()
Application.ScreenUpdating = False
DATE_REQ = CDate(InputBox("請輸入交易日期, 格式 2011/9/6", , Format(Now(), "yyyy/m/d")))

yyyymmdd = Year(DATE_REQ) & Format(Month(DATE_REQ), "00") & Format(Day(DATE_REQ), "00")
Application.DisplayAlerts = False

On Error Resume Next
Cells.Select
Selection.QueryTable.Delete
Selection.ClearContents
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;http://www.otc.org.tw/ch/inc/js/ReportCSV.php?NAME=/ch/bond_trading_info/bonds_info/daily/data/rsta0113." & yyyymmdd & "-C.csv&SHOW=1&LEVEL=4" _
      , Destination:=Range("$A$1"))
      .Name = "rsta0113." & yyyymmdd & "-C.csv&SHOW=1&LEVEL=4_1"
      .FieldNames = True
      .RowNumbers = False
      .FillAdjacentFormulas = False
      .PreserveFormatting = True
      .RefreshOnFileOpen = False
      .BackgroundQuery = True
      .RefreshStyle = xlInsertDeleteCells
      .SavePassword = False
      .SaveData = True
      .AdjustColumnWidth = True
      .RefreshPeriod = 0
      .WebSelectionType = xlEntirePage
      .WebFormatting = xlWebFormattingNone
      .WebPreFormattedTextToColumns = True
      .WebConsecutiveDelimitersAsOne = True
      .WebSingleBlockTextImport = False
      .WebDisableDateRecognition = False
      .WebDisableRedirections = False
      .Refresh BackgroundQuery:=False
End With
Columns("A:A").ColumnWidth = 17.75
End Sub

作者: jsleee 時間: 2011-9-8 22:37

上櫃的部分如下：

Sub 上櫃()
Application.ScreenUpdating = False
DATE_REQ = CDate(InputBox("請輸入交易日期, 格式 2011/9/6", , Format(Now(), "yyyy/m/d")))

yyymmdd = Year(DATE_REQ) - 1911 & Format(Month(DATE_REQ), "00") & Format(Day(DATE_REQ), "00")
Application.DisplayAlerts = False
On Error Resume Next
Cells.Select
Selection.QueryTable.Delete
Selection.ClearContents
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;http://www.otc.org.tw/ch/stock/aftertrading/DAILY_CLOSE_quotes/RSTA3104_" & yyymmdd & ".html" _
      , Destination:=Range("$A$1"))
      .Name = "RSTA3104_" & yyymmdd & ""
      .FieldNames = True
      .RowNumbers = False
      .FillAdjacentFormulas = False
      .PreserveFormatting = True
      .RefreshOnFileOpen = False
      .BackgroundQuery = True
      .RefreshStyle = xlInsertDeleteCells
      .SavePassword = False
      .SaveData = True
      .AdjustColumnWidth = True
      .RefreshPeriod = 0
      .WebSelectionType = xlEntirePage
      .WebFormatting = xlWebFormattingNone
      .WebPreFormattedTextToColumns = True
      .WebConsecutiveDelimitersAsOne = True
      .WebSingleBlockTextImport = False
      .WebDisableDateRecognition = False
      .WebDisableRedirections = False
      .Refresh BackgroundQuery:=False
End With
Columns("A:A").ColumnWidth = 7
End Sub

作者: peter460191 時間: 2011-9-13 17:25

回復 21# jsleee

非常感謝 jsleee
真的非常謝謝你，我會花一點時間好好研究研究。

作者: peter460191 時間: 2011-9-15 11:57

本帖最後由 peter460191 於 2011-9-16 13:38 編輯

回復 18# peter460191

再請教 jsleee 前輩

我把全部的程式放在一起，但只會出現一種，想請問要如何讓它同時出現，另外變更日期，除了透過巨集執行外，還有更快或更方便的方法嗎 !請問有方法讓檔案開啟就自動執行最新的日期嗎?
請jsleee 前輩指導一下，再一次感謝您!

作者: jsleee 時間: 2011-9-17 09:43

回復 25# peter460191

試試看以下的程式碼：但請先在你的 Excel 工作表建立三個工作表，名稱分別為 "上櫃"、"可轉債"、"興櫃"，否則程式會出錯....

Sub 上櫃_可轉債_興櫃()
'上櫃
Application.ScreenUpdating = False
Sheets("上櫃").Select
DATE_REQ = CDate(Format(Now(), "yyyy/m/d"))

PPP1: yyymmdd = Year(DATE_REQ) - 1911 & Format(Month(DATE_REQ), "00") & Format(Day(DATE_REQ), "00")
Application.DisplayAlerts = False
On Error Resume Next
Cells.Select
Selection.QueryTable.Delete
Selection.ClearContents
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;http://www.otc.org.tw/ch/stock/aftertrading/DAILY_CLOSE_quotes/RSTA3104_" & yyymmdd & ".html" _
      , Destination:=Range("$A$1"))
      .Name = "RSTA3104_" & yyymmdd & ""
      .FieldNames = True
      .RowNumbers = False
      .FillAdjacentFormulas = False
      .PreserveFormatting = True
      .RefreshOnFileOpen = False
      .BackgroundQuery = True
      .RefreshStyle = xlInsertDeleteCells
      .SavePassword = False
      .SaveData = True
      .AdjustColumnWidth = True
      .RefreshPeriod = 0
      .WebSelectionType = xlEntirePage
      .WebFormatting = xlWebFormattingNone
      .WebPreFormattedTextToColumns = True
      .WebConsecutiveDelimitersAsOne = True
      .WebSingleBlockTextImport = False
      .WebDisableDateRecognition = False
      .WebDisableRedirections = False
      .Refresh BackgroundQuery:=False
End With
On Error GoTo 0
Columns("A:A").ColumnWidth = 7
If Cells(1, "A") = "" Then
      DATE_REQ = DATE_REQ - 1
      GoTo PPP1
End If

Sheets("可轉債").Select
yyyymmdd = Year(DATE_REQ) & Format(Month(DATE_REQ), "00") & Format(Day(DATE_REQ), "00")
On Error Resume Next
Cells.Select
Selection.QueryTable.Delete
Selection.ClearContents
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;http://www.otc.org.tw/ch/inc/js/ReportCSV.php?NAME=/ch/bond_trading_info/bonds_info/daily/data/rsta0113." & yyyymmdd & "-C.csv&SHOW=1&LEVEL=4" _
      , Destination:=Range("$A$1"))
      .Name = "rsta0113." & yyyymmdd & "-C.csv&SHOW=1&LEVEL=4_1"
      .FieldNames = True
      .RowNumbers = False
      .FillAdjacentFormulas = False
      .PreserveFormatting = True
      .RefreshOnFileOpen = False
      .BackgroundQuery = True
      .RefreshStyle = xlInsertDeleteCells
      .SavePassword = False
      .SaveData = True
      .AdjustColumnWidth = True
      .RefreshPeriod = 0
      .WebSelectionType = xlEntirePage
      .WebFormatting = xlWebFormattingNone
      .WebPreFormattedTextToColumns = True
      .WebConsecutiveDelimitersAsOne = True
      .WebSingleBlockTextImport = False
      .WebDisableDateRecognition = False
      .WebDisableRedirections = False
      .Refresh BackgroundQuery:=False
End With
On Error GoTo 0
Columns("A:A").ColumnWidth = 17.75

'興櫃
Sheets("興櫃").Select
Cells.Select
On Error Resume Next
Selection.QueryTable.Delete
Selection.ClearContents
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;http://nweb.gretai.org.tw/emgstk/ch/emgstk.htm", Destination:=Range( _
      "$A$1"))
      .Name = "emgstk_1"
      .FieldNames = True
      .RowNumbers = False
      .FillAdjacentFormulas = False
      .PreserveFormatting = True
      .RefreshOnFileOpen = False
      .BackgroundQuery = True
      .RefreshStyle = xlInsertDeleteCells
      .SavePassword = False
      .SaveData = True
      .AdjustColumnWidth = True
      .RefreshPeriod = 0
      .WebSelectionType = xlEntirePage
      .WebFormatting = xlWebFormattingNone
      .WebPreFormattedTextToColumns = True
      .WebConsecutiveDelimitersAsOne = True
      .WebSingleBlockTextImport = False
      .WebDisableDateRecognition = False
      .WebDisableRedirections = False
      .Refresh BackgroundQuery:=False
End With
On Error GoTo 0
Columns("A:A").ColumnWidth = 15.88
Columns("B:B").ColumnWidth = 13.13

End Sub

作者: peter460191 時間: 2011-9-19 12:11

回復 20# jsleee

請問 jsleee 及各位達人

我把程式放上去後,會出現錯誤訊息,程式就卡住了,[attach]7876[/attach][attach]7876[/attach][attach]7876[/attach][attach]7876[/attach][attach]7876[/attach]
有附上檔案附件,請幫我看一下,我應該從那部份修正,謝謝您!

作者: jsleee 時間: 2011-9-19 21:40

回復 21# peter460191

很抱歉，我還沒有權限下載檔案....
請將錯誤畫面擷取貼上來.....
這樣才有辦法知道你的問題點

作者: peter460191 時間: 2011-9-21 11:08

回復 22# jsleee

[attach]7896[/attach]
麻煩前輩指導。

作者: jsleee 時間: 2011-9-21 21:58

回復 23# peter460191

抱歉，我反覆測試，還是遇不到你的問題點.....
再過幾天，也許我的點數夠了，就可以下載你的檔案測試了.....

作者: peter460191 時間: 2011-9-22 12:09

回復 24# jsleee

謝謝您!我也快要可以有下載的權限了 !屆時再麻煩您指正了!

作者: jsleee 時間: 2011-9-24 21:43

回復 21# peter460191

請將總表內的程式碼移到模組中，即可.....
請參考附件....

作者: peter460191 時間: 2011-9-26 10:25

謝謝 jsleee

我還須加一下油!
待我可以下載之後再研究看看。

作者: peter460191 時間: 2011-9-26 10:53

回復 26# jsleee

再請問 jsleee

1.下載附檔測試後，遇到一個問題，就是『上市』部份無法更新，我將上市的程式合併放進去總表裏，可是無法執行，請問要如何合併進去。
2.另外，有法子讓檔案開啟時，就自動更新所有的四個工作表，且將四個工作表合併在另一張工作表嗎?

非常謝謝您的指導!

作者: jsleee 時間: 2011-9-26 22:34

回復 28# peter460191

麻煩把你合併後的檔案放上來，我確認看看.....
另外，四個表要合併有困難，因為欄位不太一樣，如何合併？這個部分要麻煩你先想看看，合併的結果要長甚麼樣子

作者: peter460191 時間: 2011-9-28 12:33

回復 29# jsleee

麻煩您了!
[attach]7959[/attach]

另如果只合併四個工作表中的『代號』,『股名』及『收盤價』等三欄資料可行嗎?

謝謝您!

作者: jsleee 時間: 2011-9-28 22:01

回復 30# peter460191

請問可轉債的等價、議價各代表甚麼含意？
因為要將資料合併，在可轉債的部分，同一項代號有些收市會同時有等價、議價兩筆，
請問要抓哪一筆？

作者: peter460191 時間: 2011-9-29 13:26

回復 31# jsleee

不好意思!可轉債比較特殊
可用『明日參價』等同它的當日之『收盤價』
謝謝您!

作者: jsleee 時間: 2011-9-29 22:20

回復 32# peter460191

試試看這個檔案吧....

作者: peter460191 時間: 2011-9-30 10:30

回復 33# jsleee

jsleee 達人您好：

感謝您的修改，我執行檔案的時候出現下列錯誤訊息，不知道那裡有問題，我有檢查過巨集安全性是設定在『低』，還是不能執行，請您幫我檢查看看。謝謝您 !

[attach]8045[/attach][attach]8046[/attach]

作者: jsleee 時間: 2011-9-30 22:05

回復 34# peter460191

抱歉，因最近正在測試 2010版本，昨日的某些部份使用 2010版本錄製，出現一些問題
剛剛已經改為 2003版本，我剛剛測試OK，你再看看......

作者: peter460191 時間: 2011-10-3 15:54

本帖最後由 peter460191 於 2011-10-3 16:07 編輯

回復 35# jsleee

jsleee 不好意思!前幾天比較忙所以這麼晚回覆，程式已可以執行了，真是厲害，非常謝謝你，
可以再跟您請教，1.這個程式有辦法讓它開啟時，就自動更新嗎(自動去執行『總表』那個按鈕)。
                  2.想要把上市、上櫃、興櫃及可轉債等四個工作表隱藏，但這樣就無法執行了。
                  3.另外如要把『總表』那個按鈕，挪到『彙整』工作表要如何做？

非常謝謝您!

作者: jsleee 時間: 2011-10-3 21:36

回復 36# peter460191

1. 只要將巨集名稱改為 auto_open 即可
2. 可以用錄製巨集的方式將工作表隱藏 & 將工作表逐一取消隱藏，然後將錄製的程式碼加入即可....
3. 就將該按鈕剪下然後到彙整工作表貼上即可
試試看附件檔案.....

> 可以再跟您請教，1.這個程式有辦法讓它開啟時，就自動更新嗎(自動去執行『總表』那個按鈕)。
> 2.想要把上市、上櫃、興櫃及可轉債等四個工作表隱藏，但這樣就無法執行了。
> 3.另外如要把『總表』那個按鈕，挪到『彙整』工作表要如何做？

作者: peter460191 時間: 2011-10-4 13:19

回復 37# jsleee

非常謝謝 jsleee 的幫忙，已經可用了!
將好好研究您的程式內容，冀希能像你們那樣精進，
再一次感謝您不厭其煩的幫忙，謝謝您!

作者: jsleee 時間: 2011-10-4 21:24

回復 38# peter460191

不用客氣，論壇本來就是大家互相交流的園地
我也從這裡學到不少...
有能力幫助別人，也是一種快樂！

作者: peter460191 時間: 2011-10-5 09:46

回復 39# jsleee

的確這個論壇可學的人及東西太多了，將繼續努力。
再一次謝謝您!

作者: peter460191 時間: 2011-10-7 10:00

[attach]8150[/attach]回復 37# jsleee

請教 jsleee

我想複製另一個手動的版本，照您所說的將巨集名稱 auto_open 改為彙整，但好像無法執行，可以請教一下除了改上述名稱外，還需改那些程式，謝謝您!

作者: jsleee 時間: 2011-10-7 22:12

回復 41# peter460191

>> 我想複製另一個手動的版本，照您所說的將巨集名稱 auto_open 改為彙整，但好像無法執行，可以請教一下除了改上述名稱外，還需改那些程式，謝謝您!

  我想您可能看錯了....
  如果要讓巨集於檔案開啟時自動執行，則巨集名稱須設定為 auto_open
  並將該巨集放在模組中，存檔後開啟即可自動執行

作者: Hsieh 時間: 2011-10-8 17:58

本帖最後由 Hsieh 於 2011-10-8 18:00 編輯

回復 41# peter460191

按右鍵
重新指定巨集
[attach]8200[/attach]
[attach]8201[/attach]

作者: peter460191 時間: 2011-10-11 08:44

回復 42# jsleee

謝謝 jsleee 說明，我再試試看。

作者: peter460191 時間: 2011-10-11 08:49

回復 43# Hsieh

謝謝 Hsieh 版主
照您的方法的確可執行，但可以跟您請教，為什麼我更改名稱後按執行巨集卻無效，而照您的方法重新指定巨集就可以，這差別在那裡，謝謝您!

作者: Hsieh 時間: 2011-10-11 09:16

回復 45# peter460191
假如你改名字以後
你沒去告訴別人你改名字
那別人永遠不會認識你的新名字不是嗎?

作者: peter460191 時間: 2011-10-12 12:51

回復 46# Hsieh

非常謝謝 Hsieh 版主：
原來如此，了解了!又增長一智。

作者: polokin 時間: 2011-11-1 02:06

找這個檔案好久了..
一路上開板大一直更新...深感佩服
不知有緣可以一同分享與我

作者: 傘蜥蜴 時間: 2011-11-1 17:49

我也正好想找這個檔案~
不過沒有下載權限
殘念......

作者: a2305577 時間: 2011-11-4 16:19

沒有權限下載,方便mail給我嗎?真想趕快目睹程式效果
希望幫幫忙大大

作者: peter460191 時間: 2011-12-21 11:41

回復 48# polokin

感謝大家對這個程式有興趣，因尚有部份功能在修改中，待修改完成後，會放在上面供大家分享。

作者: peter460191 時間: 2011-12-21 11:42

回復 49# 傘蜥蜴

感謝大家對這個程式有興趣，因尚有部份功能在修改中，待修改完成後，會放在上面供大家分享。

作者: peter460191 時間: 2011-12-21 11:42

回復 50# a2305577

感謝大家對這個程式有興趣，因尚有部份功能在修改中，待修改完成後，會放在上面供大家分享。

作者: peter460191 時間: 2011-12-21 13:07

[attach]8875[/attach][attach]8876[/attach]

請教高手達人，我埋頭苦幹了好久，還是找不出方法，想請教各位達人幫忙解惑下列幾項瓶頸點：
1.如何修改擴大『搜尋結果』的範圍，欲向下擴大到10組。
2.『股票更新』鈕是從一個隱藏的工作表中複製過來的，當按下『股票更新』鈕後，會停留在原始隱藏的工作表上，要如何讓它不停留在原始隱藏的工作表上。
3.當按下『股票更新』鈕後，『上櫃』的工作表程式會出現錯誤，抓不到資料，應如何修正。

先感謝大家的幫忙 !
QQQ!(3Q!)( 謝謝!)

作者: mustang 時間: 2011-12-24 18:28

我無法下載可否寄給我

作者: peter460191 時間: 2011-12-29 12:32

回復 55# mustang

目前尚有一點瑕疵，待修正後再放上去供下載分享。

作者: peter460191 時間: 2011-12-29 12:36

回復 39# jsleee

jsleee請問一下

最近更新程式，上櫃的部份會出現錯誤訊息，可以幫我看一下那裡錯誤嗎?
檔案放在 #54
非常謝謝您 !

作者: peter460191 時間: 2011-12-30 10:17

回復 58# zcxzcxz

目前尚有一點瑕疵，待修正後再放上去供下載分享。

作者: dino123 時間: 2012-1-18 18:05

請問一下，
我上櫃的部份，都抓不到資料。
上市，可轉債，興櫃都沒問題。
但上櫃不行。
我是用Excel2003
[attach]9252[/attach]

作者: jdjgpnsgadk1 時間: 2012-1-18 21:22

回復 2# vvcvc
請教一下，匯入後要如何每五分鐘記錄下來現價，感恩

作者: peter460191 時間: 2012-1-31 09:26

回復 60# dino123

目前修改中!

作者: wxwx 時間: 2012-1-31 14:32

回復 10# peter460191

都看不太懂你們寫的真是小學生我

作者: 小靜靜 時間: 2012-2-9 10:26

大家都好厲害喔，可惜我還不能下載。

作者: peter460191 時間: 2012-5-10 10:32

本帖最後由 peter460191 於 2012-5-11 10:10 編輯

各為大大：
經過多位高手幫忙及努力修改，此檔案已有初步具自動更新及查詢的功能，但還是有一點未完成，就是更新時隱藏的工作表會跑出來，先上傳供大家下載使用，如有更好改善方法也請提供參考分享。[attach]10887[/attach][attach]10888[/attach]

作者: freeffly 時間: 2012-5-10 13:23

回復 64# peter460191

看完的感想
1.使用介面很漂亮，不過感覺有點雜，設計的人比較容易上手
2.不知道是不是使用太多圖片，檔案好大
3.搜尋時感覺有點慢

看的出大大花很多心思，挺不錯的東西，不過搜尋有點久

作者: peter460191 時間: 2012-5-10 15:48

回復 65# freeffly

對啊!我也一直在找檔案瘦身的方法，不知您有方法解決嗎？不過目前執行起來應該還蠻順的，因為目前已有多人每日在使用中，並沒有反應速度慢的問題。

作者: freeffly 時間: 2012-5-10 16:31

回復 66# peter460191

我建議你把檔案放在一樓
方便高手看
除非有興趣的人會慢慢看完
否則可能比較少高手有時間去幫你看喔
我的excel學的不扎實
可能你的超連結也是造成檔案過大的原因

你的代碼最好加一句Application.ScreenUpdating = False
應該可以再稍微快一點

作者: peter460191 時間: 2012-5-11 10:08

本帖最後由 peter460191 於 2012-5-11 10:12 編輯

回復 67# freeffly

謝謝您!我在請教高手研究看看!還是您方便指導 ,
另外，再向您請教一下要如何把檔案放在一樓,是指要另外開一帖子嗎?

作者: ju1218 時間: 2012-10-14 19:22

優該不錯可權限不足看不到

作者: finalos2 時間: 2012-11-5 20:45

大家都好厲害喔，可惜目前還不能下載 > <

作者: peter460191 時間: 2013-6-11 09:36

回復 70# finalos2

多多加油囉!剛開始都是這樣地!

作者: kima0713 時間: 2013-10-17 10:17

學習中, 目前還沒有權限下載=.=

作者: yan2463 時間: 2013-11-5 11:02

回復 72# kima0713
很可惜,還無法下載附件學習

作者: changjy 時間: 2013-12-16 15:34

無權下載,殘念~~~

作者: castcasting 時間: 2013-12-19 19:40

來到這真是覺得這邊的高手都好強，我努力學習中!!!

作者: peter460191 時間: 2014-4-21 12:22

回復 75# castcasting

加油啦!
有起步都不算慢!

作者: bioleon69 時間: 2016-9-18 02:46

不好意思,現在似乎沒辦法更新了
不知道各位大大們現在都怎麼使用這份excel了?

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)