股票：建構股票系統

 自己最近也在思考用簡單的概念表達自己的股票收集資料範圍，就整理成如下圖了

簡單來說，分成三個部分，收集資料範圍、定期更新、寫入資料庫

有資料收集當然也要有輸出部分，所以在整理成如下圖。

根據條件查詢，系統自動分析基本面情況並做出EPS預測；也根據每日交易情況做技術資料分析、股價走勢分析與集保分析；小編寫的好簡單，至於怎做那可就是長篇大論了。

因為有商業避免，所以打上自己的浮水印，請勿轉載。

股權分散表：3/5，1000張連減3周整理

 隨便整理整理：

股票：外資連5買(3/5為止)

 

隨便整理的，當分享。

股票：外資+投信連5賣(3/5為止)

 隨便整理的。

VBA：插入註解；RANGE.COMMENT

最近在練習寫儲存格註解，改成副程式，免得占用程式碼版面。

先來MSDN一下，註解是RANGE的屬性之一 ，MSDN的說明。

小編寫的副程式有3個參數要設定，分別是"SHEET_NAME, RANGE_TARGET, Str_COMMENT"。

SHEET_NAME：工作表表名

RANGE_TARGET：儲存格位置，如A1、A2不可以用CELLS位置控制

Str_COMMENT：要註解的內容

透過WITH~END WITH做物件引用，然後若判定有註解則先刪除，在寫入新的註解。

VBA：作二維條碼(GOOGLE 大神 版 QRCODE)

再做成這個作品之前，也翻過網路相當多的文章，大多以ACCESS的元件做成Qr Code的條碼圖案(條碼標籤；也有人這樣稱呼)，所以各位網友若你是單機使用，現在可以考慮離開此頁面了，因為筆者此一作品需要存取網路資源的才可以做成Qr Code的條碼圖案。

一、目的：

我自己上課教學使用範例。

二、系統分析：

輸入：轉換為條碼原始資料，在此以逗號方式做區分。

處理：透過google 線上api做處理

輸出：對應條碼原始資料之Qr Code條碼

三、作品實現：

表單與相關欄位設計：

sheet1：於a1儲存格 作標題"資料輸入(以逗號作分割)："，於b1儲存格作輸入資料的欄位。

a.建立一個ACTIVEX 命令按鈕，並使用Click作物件觸發，增加如c 的程式碼。

b.物件：CommandButton，建立在工作表表名sheet1

c.VBA 程式碼：主要以Pictures.Insert方法從網路插入條碼圖案

Private Sub CommandButton1_Click()

     Dim p As Object    

     Picture_Link = "https://chart.googleapis.com/chart?chs=250x250&cht=qr&chl=" 

 '250*250為條碼圖案尺寸大小     

     Target_Cell = Sheets("SHEET1").Range("B1")  

     Set p = Sheets("SHEET1").Pictures.Insert(Picture_Link & Target_Cell ) 

     Set p = Nothing        

End Sub

股票：109年Q3~Q1EPS總和大於108年的公司