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


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

118.160.18.237
發表於 2017-3-22 20:42  資料 主頁 文集 私人訊息 
On Mar 22, 2017, at 7:27 PM, 方家晟  wrote:

Micheal您好,
謝謝分享。之前提到的「每更新10支自動存檔」,建議在存檔這個動作時順便清理一次QueryTable減輕運行的負擔。
方案一
放置在ThisWorkbook內觸發:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Dim ws As Worksheet
  Dim qt As QueryTable

  On Error Resume Next
  For Each ws In ThisWorkbook.Worksheets
    For Each qt In ws.QueryTables
      qt.Delete
    Next
  Next


End Sub

方案二

或是更建議將它變成一個獨立的Function(可減少重複的程式碼)放在模組內,讓不同程序都可以使用:
Function QueryTablesDelete()
  Dim ws As Worksheet
  Dim qt As QueryTable
  On Error Resume Next
  For Each ws In ThisWorkbook.Worksheets
    For Each qt In ws.QueryTables
      qt.Delete
    Next
  Next
End Function

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  QueryTablesDelete

End Sub

只要在儲存前先清除(關閉不儲存則無須清除),那麼就不需要擔心檔案大小變肥、佔資源。
方案三
若在查完一家公司資料之後就清除(則無須放在BeforeSave觸發重覆清除),進一步帶入變數,將Function改成可指定工作表:
Function QueryTablesDelete(ash As String)
  Dim ws As Worksheet
  Dim qt As QueryTable
  If ash = "all" Then
    For Each ws In ThisWorkbook.Worksheets
      For Each qt In ws.QueryTables
        qt.Delete
      Next
    Next
  Else
    For Each qt In Worksheets(ash).QueryTables
      qt.Delete
    Next
  End If
End Function

需將程式碼改成這一句,指定的工作表名稱放置在QueryTablesDelete後面:
例1.清除使用中的工作表內的QueryTables
QueryTablesDelete ActiveSheet.Name

例2.依需求修改,如清除指定"台股"、"美股"、"港股"...工作表內的QueryTables
QueryTablesDelete "台股"
例3.必須且只有一個變數,若不指定工作表,則需以"all"替代,清除所有工作表內的QueryTables
QueryTablesDelete "all"
頂部
mikeon88
管理員
Rank: 9Rank: 9Rank: 9


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

118.160.18.237
發表於 2017-3-22 22:17  資料 主頁 文集 私人訊息 
dropbox新功能可以在分享檔案留言,
請問同學如何把它關掉,不要留言?
叫大家不要留言,卻拼命留言 !!
頂部
vincent5552
同學




UID 67266
精華 0
積分 0
帖子 5
閱讀權限 99
註冊 2017-3-22
用戶註冊天數 764
用戶失蹤天數 140

129.110.241.66
發表於 2017-3-22 23:52  資料 私人訊息 
登入之後 到下載連結頁面 按。。。 就會看到選項了
頂部
mikeon88
管理員
Rank: 9Rank: 9Rank: 9


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

118.160.18.237
發表於 2017-3-23 08:23  資料 主頁 文集 私人訊息 
謝謝,搞定了

問問題請在討論區,不要再用依媚兒了
公開討論大家才可以共同學習,一起進步
頂部
racktsai
同學




UID 15381
精華 0
積分 0
帖子 24
閱讀權限 99
註冊 2014-7-7
用戶註冊天數 1753
用戶失蹤天數 148
來自 Taipei

60.248.153.240
發表於 2017-3-23 13:50  資料 私人訊息 
重新download 最新版

更新美股除了一次可能因為連線中斷出線錯誤外,終於不會更新鎖死了,一次73隻也沒事了
終於不用分10隻10隻更新了


太棒了
頂部
esther
同學




UID 66713
精華 0
積分 0
帖子 8
閱讀權限 99
註冊 2016-12-20
用戶註冊天數 856
用戶失蹤天數 157

36.227.66.129
發表於 2017-3-25 07:47  資料 私人訊息 
Hi Mike, 3/22   最後那個版本我跑不動,已經兩天,我看都沒人在問,不知道我是出了甚麼問題,我連續重新下載三次都是這樣,不知道有人和我一樣嗎?
頂部
esther
同學




UID 66713
精華 0
積分 0
帖子 8
閱讀權限 99
註冊 2016-12-20
用戶註冊天數 856
用戶失蹤天數 157

36.227.66.129
發表於 2017-3-25 09:21  資料 私人訊息 
不好意思,電腦改成簡體版使用,忘記改回來,已經可以了,超不好意思的
頂部
Jamescctungus
同學




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

106.104.80.238
發表於 2017-3-26 18:55  資料 私人訊息 
長江基建 出現 負股息, 請教Michael 桑, 這些資料的來源為何? 或是如何計算出來的 ? 謝謝
頂部
mikeon88
管理員
Rank: 9Rank: 9Rank: 9


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

223.136.1.3
發表於 2017-3-26 19:02  資料 主頁 文集 私人訊息 
Excel的問題,請重按
頂部
Jamescctungus
同學




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

106.104.80.238
發表於 2017-3-26 20:49  資料 私人訊息 


QUOTE:
原帖由 mikeon88 於 2017-3-26 19:02 發表
Excel的問題,請重按

謝謝解惑!
頂部
mikeon88
管理員
Rank: 9Rank: 9Rank: 9


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

118.160.25.122
發表於 2017-3-27 20:56  資料 主頁 文集 私人訊息 
修改BMWYY
請重新下載

頂部
ritawang
同學




UID 3159
精華 0
積分 0
帖子 4
閱讀權限 99
註冊 2014-3-9
用戶註冊天數 1873
用戶失蹤天數 11

106.105.116.81
發表於 2017-3-27 23:57  資料 私人訊息 
請問盈在表查詢美股台股正常.但中股就無法查詢總是顯示"1004"執行階段錯誤.要如何處理?以前都沒問題就最近新版的才出現問題.
頂部
Jamescctungus
同學




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

59.120.236.138
發表於 2017-3-28 13:40  資料 私人訊息 
查詢MBT時發現: 股息有部分為美金,部分為俄幣, 不知這樣會不會影響ROE及預期獲利的計算?
頂部
mikeon88
管理員
Rank: 9Rank: 9Rank: 9


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

114.137.183.68
發表於 2017-3-28 13:49  資料 主頁 文集 私人訊息 
Let me check.
人在烏來。
頂部
Jamescctungus
同學




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

59.120.74.67
發表於 2017-3-28 16:30  資料 私人訊息 
PPC的預期報酬率也有點兒怪, ROE 很高, PEr也在12左右, 但NPV報酬率只剩1%.
頂部