標題: 新盈再表181120:中股bug
mikeon88
管理員
Rank: 9Rank: 9Rank: 9


UID 1
精華 0
積分 0
帖子 15462
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 4666
用戶失蹤天數 3

118.169.173.15
發表於 2017-3-21 19:31  資料 主頁 文集 私人訊息 
澳股ABC改好了,
謝謝宥聰桑發現bug,
請自行下載。

頂部
mikeon88
管理員
Rank: 9Rank: 9Rank: 9


UID 1
精華 0
積分 0
帖子 15462
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 4666
用戶失蹤天數 3

118.169.173.15
發表於 2017-3-21 20:12  資料 主頁 文集 私人訊息 
market watch 居然把股價分成4種情況:
GO、Closed、After Hours、Premarket
頂部
mikeon88
管理員
Rank: 9Rank: 9Rank: 9


UID 1
精華 0
積分 0
帖子 15462
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 4666
用戶失蹤天數 3

118.169.173.15
發表於 2017-3-21 21:30  資料 主頁 文集 私人訊息 
連台股元大、玉山證網頁也在作怪,
都修好了。
頂部
Jamescctungus
同學




UID 46844
精華 0
積分 0
帖子 192
閱讀權限 99
註冊 2015-7-6
用戶註冊天數 1571
用戶失蹤天數 203

106.104.75.81
發表於 2017-3-21 21:41  資料 私人訊息 
PFE (Pfizer)在不同的f版之間按了好幾次都跑不出股價, 請問其他同學可以在最後一版幫忙檢查看看嗎. 謝謝
頂部
Trytrylook (Jay)
同學



UID 49198
精華 0
積分 0
帖子 75
閱讀權限 99
註冊 2015-8-21
用戶註冊天數 1525
用戶失蹤天數 350
來自 Area 51

36.238.204.206
發表於 2017-3-21 21:45  資料 私人訊息 
我按 CAT, IBM, V, LMT, JPM也有相同的問題

[ 本帖最後由 Trytrylook 於 2017-3-21 21:47 編輯 ]
頂部
mikeon88
管理員
Rank: 9Rank: 9Rank: 9


UID 1
精華 0
積分 0
帖子 15462
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 4666
用戶失蹤天數 3

118.169.173.15
發表於 2017-3-21 21:50  資料 主頁 文集 私人訊息 
market watch 居然把股價分成5種情況:
GO、Closed、After Hours、Premarket、Open
已修好,
請重新下載

盈再表若出現錯誤,請先由原網址重新下載。
又不行,再來反映。
頂部
mikeon88
管理員
Rank: 9Rank: 9Rank: 9


UID 1
精華 0
積分 0
帖子 15462
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 4666
用戶失蹤天數 3

118.169.173.15
發表於 2017-3-21 22:23  資料 主頁 文集 私人訊息 
不必比較前後版哪個可用,
只要看最新版本即可。
頂部
Jamescctungus
同學




UID 46844
精華 0
積分 0
帖子 192
閱讀權限 99
註冊 2015-7-6
用戶註冊天數 1571
用戶失蹤天數 203

106.104.75.81
發表於 2017-3-21 22:38  資料 私人訊息 
股息列都空白 (BZQIY, INTHY), 但其ˊ實有配息
頂部
mikeon88
管理員
Rank: 9Rank: 9Rank: 9


UID 1
精華 0
積分 0
帖子 15462
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 4666
用戶失蹤天數 3

118.169.173.15
發表於 2017-3-21 23:18  資料 主頁 文集 私人訊息 
改好了,公式滑掉了
謝謝James童桑發現bug
請重新下載



頂部
mikeon88
管理員
Rank: 9Rank: 9Rank: 9


UID 1
精華 0
積分 0
帖子 15462
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 4666
用戶失蹤天數 3

118.169.173.15
發表於 2017-3-21 23:33  資料 主頁 文集 私人訊息 
我們巴菲特班真是優秀,領先全台在投資全世界,
連BZQIY這什麼公司也有同學在看

宥聰桑說:只有我們巴菲特班有能力去討論各國的個股
頂部
Jamescctungus
同學




UID 46844
精華 0
積分 0
帖子 192
閱讀權限 99
註冊 2015-7-6
用戶註冊天數 1571
用戶失蹤天數 203

106.104.75.81
發表於 2017-3-22 00:34  資料 私人訊息 
這是巴班電信股的名單股。只是不瞭解為何今天預期報酬率怎麼掉得這麼低,去年觀察時預期報酬率還有15%,ROE明明還有60,也還掉不多。PEr也還在12倍左右,居然ROE報酬率已經頂了?
頂部
mikeon88
管理員
Rank: 9Rank: 9Rank: 9


UID 1
精華 0
積分 0
帖子 15462
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 4666
用戶失蹤天數 3

118.160.18.237
發表於 2017-3-22 08:49  資料 主頁 文集 私人訊息 
盈再表1703g:修改IRR
謝謝James童桑發現bug
已寄給大家

頂部
Joe
同學




UID 2
精華 0
積分 0
帖子 2090
閱讀權限 99
註冊 2011-3-16
用戶註冊天數 3143
用戶失蹤天數 324

114.76.0.231
發表於 2017-3-22 09:09  資料 私人訊息 
Michael 辛苦了
也感謝同學認真按盈再表幫忙除錯
頂部
mikeon88
管理員
Rank: 9Rank: 9Rank: 9


UID 1
精華 0
積分 0
帖子 15462
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 4666
用戶失蹤天數 3

118.160.18.237
發表於 2017-3-22 16:43  資料 主頁 文集 私人訊息 
On Mar 22, 2017, at 4:26 PM, 方家晟  wrote:

Micheal您好,
又冒昧地打擾您了。在討論區看到幾位留言表示重新下載檔案仍有錯誤,結果多是因為沒有確實下載到最新版,提供一個不是很要緊的解決方案(會增加EXCEL負擔),或許可以避免使用者疏忽版本號的問題:

1.需要先將這個Function完整地放在模組內
已知〈請重新下載盈再表1703g:修改 IRR〉文章的網址,若文章網址有變動則必需要修改。而另一個必要條件是文章標題"盈再表"&"1703g"&":"用詞用字結構需一致,即版本號夾在"盈再表"和":"之間,否則會出錯。
Function 檢查版本()
  Dim title As String
  ' 取得網頁資料
  With CreateObject("Microsoft.XMLHTTP")
    .Open "POST", "http://mikeon88.freebbs.tw/viewthread.php?tid=42772", False
    .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=big5"
    .send
    title = .responsebody
  End With
  ' 處理文字編碼
  With CreateObject("ADODB.Stream")
      .Type = 2
      .Open
      .Writetext title
      .Position = 0
      .Charset = "BIG5"
      .Position = 2
  ' 取得文章標題
      title = Split(Split(.ReadText, "</title>", , vbTextCompare)(0), "<title>", , vbTextCompare)(1)
      .Close
  End With
  ' 將文章標題切割出"營再表"之後、":"之前的版本號
  title = Split(Split(title, "盈再表", , vbTextCompare)(1), ":", , vbTextCompare)(0)
  ' 檢查這個EXCEL檔名內是否有最新版本號
  If InStr(1, ThisWorkbook.Name, title) = 0 Then
    檢查版本 = "請更新至:" & title
  Else
    檢查版本 = "最新版本"
  End If
End Function

2.找一個需要啟動檢查版本的地方放置這句,透過對話窗格告知版本
MsgBox 檢查版本

通常可能會在開啟時做這個動作,例如放在ThisWorkbook內觸發:
Private Sub Workbook_Open()
  MsgBox 檢查版本
End Sub

如果認為已經是最新版本則不需要通知,需要改成這三句:
Dim 版本 As String
版本 = 檢查版本

If 版本 <> "最新版本" then MsgBox 版本
(非學員) 方家晟




頂部
mikeon88
管理員
Rank: 9Rank: 9Rank: 9


UID 1
精華 0
積分 0
帖子 15462
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 4666
用戶失蹤天數 3

118.160.18.237
發表於 2017-3-22 16:44  資料 主頁 文集 私人訊息 
謝謝方桑教導,來研究一下
為答謝方桑幫忙,寄了一份盈再表給他

討論區越來越像許願池,
來這裡許願就有貴人相助。
頂部