股票：外資投信持股變化(9/25；外資、投信皆增持)

 小編根據1600多檔股票資料，做9/25號本周外資投信持股正成長做分析，如圖；

僅供參考不作為投資理財參考

產業類別：根據公開觀測站的產業分類做分類

      產業             家數

水泥工業             1

食品工業             1

塑膠工業             5

汽車工業             3

電機機械              2

化學工業             3

生技醫療業     2

其他電子業     7

鋼鐵工業             4

橡膠工業             1

通信網路業         5

光電業             5

電腦及週邊設備業 11

半導體業                16

建材營造          2

航運業             4

金融保險業     1

貿易百貨             1

電子零組件業     9

電子通路業     3

資訊服務業     1

電子商務             1

其他                 1

股票：外資投信持股變化(9/25)

僅供參考不作為投資理財參考

資料下載

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

 不作為投資理財參考

整理資料下載

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

台北港好熱的星芒

 中秋還是要記錄一下

某面板相關產業的集保、籌碼與股價走勢

 自己開發的系統整理的資料，謝絕提供原始資料。

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

 不作為投資理財參考

整理資料下載

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

股票：外資投信持股變化(9/17)

不分享你當我塑膠

僅供參考不作為投資理財參考

資料下載

股票：某一產業賓果了!!!

 自己開發的系統，顯示方式，發現可以連成5星，賓果了!!!!

產業資料參考

股票：某驅動IC股的集保庫存紀錄

 僅作為紀錄，不作為投資理財依據

圖1.9/11集保

說明：50.02是241週來最低持股比率。

圖2.持股人數變化

圖3.分級直方圖整理

股票都跑去那裏了????

VBA：集保+籌碼+信用交易 圖表整理 自動化

 這段時間，每周花了不少時間在分享資料給眾多網友們，但近期發現人怪怪的，決定也把這部分寫成自動化，製作快速生成照片的模組，以利分享。

VBA CODE:

流程:

資料行標題判斷>排序資料>設定資料範圍>設備Y軸標籤>產生圖表>設定圖表>輸出圖表>插入照片>刪除檔案

	Sub OUT_DRAW()
	Set OUT = Sheets("OUT") '設定要使用的工作表
	S1 = Sheets("OUT").Range("A2000").End(xlUp).Row
	Set Tag = Sheets("OUT").Range("A1:N" & S1) '標題範圍
	Add = 0
	For Each i In Tag
	If InStr(i.Value, "變化") > 0 Then '標題關鍵字判斷
	TEMP_ADDRESS = Split(i.Address, "$")
	ActiveSheet.Range("A" & "1:" & "N" & S1).Sort Key1:=ActiveSheet.Range(TEMP_ADDRESS(1) & "1"), Order1:=xlDescending, Header:=xlYes, _
	OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
	:=xlStroke, DataOption1:=xlSortNormal '排序
	Set rngSourceData = ActiveSheet.Range(TEMP_ADDRESS(1) & 1 & ":" & TEMP_ADDRESS(1) & S1) '資料來源
	Set rngXValues = ActiveSheet.Range("A2" & ":" & "A" & S1) '標題資料設定
	If Add Mod 2 = 0 Then '產生圖表，位置判斷
	Set MYCHART = OUT.ChartObjects.Add(Left:=OUT.Columns("Q").Left, Width:=640 * 3, Top:=OUT.Rows(1 + (Add) * 24).Top, Height:=480 * 3)
	OUT.Range("Q" & 2 + (Add) * 24).Activate
	LEFT_ADDRESS = OUT.Columns("Q").Left
	TOP_ADDRESS = OUT.Rows(1 + (Add) * 24).Top
	Width_ADDRESS = 640 * 3
	Height_ADDRESS = 480 * 3
	Else
	Set MYCHART = OUT.ChartObjects.Add(Left:=OUT.Columns("AQ").Left, Width:=640 * 3, Top:=OUT.Rows(1 + (Add - 1) * 24).Top, Height:=480 * 3)
	OUT.Range("AQ" & 2 + (Add - 1) * 24).Activate
	LEFT_ADDRESS = OUT.Columns("AQ").Left
	TOP_ADDRESS = OUT.Rows(1 + (Add - 1) * 24).Top
	Width_ADDRESS = 640 * 3
	Height_ADDRESS = 480 * 3
	End If
	With MYCHART.Chart '設定圖表
	.ChartType = xlBarClustered
	.SetSourceData Source:=rngSourceData, PlotBy:=xlColumns
	.HasTitle = True
	.ChartTitle.Text = i
	.SeriesCollection(1).XValues = rngXValues
	.ChartGroups(1).GapWidth = 10
	.Axes(xlCategory).TickLabels.Font.Size = 26
	.Axes(xlCategory).TickLabelSpacing = 1
	.Legend.Delete
	.ChartTitle.Font.Size = 32
	End With
	With MYCHART.Chart
	With .SeriesCollection(1).Format.Fill
	.Visible = msoTrue
	.ForeColor.RGB = RGB(79, 129, 189)
	.Transparency = 0
	MYCHART.Chart.SeriesCollection(1).InvertIfNegative = True
	MYCHART.Chart.SeriesCollection(1).InvertColor = RGB(255, 0, 0)
	.Solid
	End With
	.Export Filename:=ThisWorkbook.Path & "\" & i & ".BMP", Filtername:="BMP" '輸出圖表
	With ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & i & ".BMP") '插入圖表
	.Left = LEFT_ADDRESS
	.Top = TOP_ADDRESS
	.Width = Width_ADDRESS
	.Height = Height_ADDRESS
	End With
	MYCHART.Delete '刪除圖表物件
	Kill ThisWorkbook.Path & "\" & i & ".BMP" '刪除檔案
	End With
	Add = Add + 1
	End If
	Next
	End Sub

view raw gistfile1.txt hosted with ❤ by GitHub

一點小工具分享。

紀錄雜記：CIVIC 9 換耗材

是否跟我一樣不知道怎選耗材，小編最近也在瘋狂找跟比較，發現價差超大，但!!!

似乎副廠中的飛鹿是一個牌子老，且眾所皆知的牌子

經過網路大神資料調查，發現相容的耗材不少歐!!!

自然而然利用一下某平台的99購物解免運，敗一下家摟

圖1.空濾重量

圖2.空濾型號

圖3.不知道品牌的空濾重量(C9用)

圖4.不知道品牌的空濾外包裝(C9用)

小結：原廠換下來的濾芯重量約為259g，提供作參考。

圖5.飛鹿變速箱濾心重量(C9用)

圖6.原廠變速箱濾心重量(C9用)

P.S這顆是好友火力支援的!!!原廠的ㄝ

小結：重量很近似，等4萬公里換2次油後才知道差異 XD。

圖5.飛鹿機油濾心重量(C9用)

沒買原廠的來比較，真怪前面都買這樣多了；哈。其實是店家缺貨。

購物平台商品百百種，提醒還是多看，找可以比較的商品，或是有信譽的，尤其是機油芯，網路上一堆縮缸文實在是......別貪便宜!!!!!

另外還買了2大箱機油跟變速箱油.................99免運免運

股票：產業別營收年增率走勢圖(109/08~110/08)

 分類：按照公開觀測站各產業別營收，整理109/08~110/08 營收年增率走勢。

僅供參考，不作為投資理財依據。 

資料下載

股票：集保庫存變化(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月分了才在分享，慢半拍。

不作為投資理財殘考歐