股票：集保庫存變化(9/11)

不作為投資理財參考

整理資料下載

資料分類：根據公開觀測站營收資料的產業分類

股票+VBA：模擬未來營收

 營收直接影響一間公司EPS表現，所以要重視；一點想法記錄

圖1.模擬1

若月增率有3%，則起來年增率還可以走強3個月，累積忘了算 XD

圖2.模擬2

看起來年增率還可以走強1個月

圖3.模擬3

最壞打算：9月份開始則開始走滑

正在想程式應該怎寫，然後來估算未來EPS變化。

流程想法：營收資料收集>模擬方法選擇>未來表現估計>EPS估計

前幾天朋友分享一張有趣的照片:

分享也幫助他人享受。

P.S版權屬於原作者歐。

股票：外資投信持股變化(9/10~8/14)

   整理很辛苦，引用請備註出處。

勿作為投資理財參考

VBA：application.ontime+TimeValue 使用與取消、設定間隔時間自動執行

 application.ontime基本MDSN解說

基本功能就是讓使用者可以設定一個時間點，自動執行某一程序。

TimeValue  ：

    字串轉換時間，以 0:00:00 (12:00:00 A.M.) 到 23:59:59 (11:59:59 P.M.) (含) 的時間表示轉換。

基本語法：

Application.OnTime 時間,程序名稱 P.S 程序名稱前後要加上雙引號 單純執行一次： 現在時間往後+10秒後執行TEST程序 RUN_TIME=TimeValue(NOW())+TimeValue("00:00:10") Application.OnTime RUN_TIME,"TEST" 取消： Application.OnTime RUN_TIME,"TEST",FALSE

連續固定間隔時間執行：

圖1.概念

SUB A()

    RUN_TIME=TimeValue(NOW())+TimeValue("00:00:10")

    Application.OnTime RUN_TIME,"TEST"

END SUB

SUB TEST

    DEBUG.PRINT NOW()

    CALL A

END SUB

解說執行a程序後，自目前時間後10秒執行test程序；執行test程序後，再次呼叫a程序做下次定時自動執行設定。

連續固定間隔時間執行，怎取消?

小編測試很多次，但總有不給力的時候。

但以下這方法可以參考參考。

宣告一個全域變數的陣列，很來存放每次執行的時間；以及設定一個步進值控制陣列位置

dim time_array(2000) as string

time_array_add=0

SUB A()

    RUN_TIME=TimeValue(NOW())+TimeValue("00:00:10")

    Application.OnTime RUN_TIME,"TEST"

    '每次執行後就存放時間在陣列內

    time_array(time_array_add)=RUN_TIME

    time_array_add=time_array_add+1

END SUB

SUB TEST

    DEBUG.PRINT NOW()

    CALL A

END SUB

'取消則透過for迴圈取消所有設定過的時間，一勞永逸。

SUB canel_time

    on error resume next

    for i=0 to time_array_add

         Application.OnTime RUN_TIME(i),"TEST",false

    next 

END SUB

股票：集保庫存變化(9/4)

一切盡在不言中，不作為投資理財參考

整理資料下載

資料分類：根據公開觀測站營收資料的產業分類

特別整理光電業在檔案內：

股票：外資投信持股變化(9/4~8/14)

  整理很辛苦，引用請備註出處。

以上周8/14作基數，以9/4號外資與投信持股，去減去8/14持股，其數字變化如下圖。

股票：營收數字連6正成長產業別整理(110/07)

 都9月分了才在分享，慢半拍。

不作為投資理財殘考歐