Скачать или смотреть Excel高級技巧連續報表(4)VBA一次產生大量圖表

Excel一張工作表製作許多趨勢圖，本次範例是一家特產公司在南投各鄉鎮地方特產店銷售連續報表，簡單產生19家店的各類特產趨勢圖。
如果要用excel手動操作，一家一家去新增圖表，真的會很累，不信的話，大家可以試看看。
利用南俠增益集的圖表功能，輕鬆自動化幫您完成。
趕快下載軟體及範例去看看!會大大提升您在職場上效能!更會讓您的Excel如虎添翼!
範例下載 www.skvba.com/1e
軟體下載 https://www.skvba.com/1
最近有極少數的朋友，反映電腦在安裝南俠增益集的時候，發生【佈署資訊清單的憑證或其位置不受信任】
最簡單的解決方法是，將檔案下載到手機，再將手機檔案利用usb線複製，並貼上電腦，再由電腦安裝就OK.
歡迎加入個人FB社團:OutLook自動化
全部影片 https://www.skvba.com
限時免費註冊 https://www.skvba.com/free
本次是利用VBA一次產生大量圖表
VBA範例程式碼:
Sub 自動執行新表圖()
Dim addIn As COMAddIn
Dim sk As Object
'以下引用南俠增益集 ExcelAddIn_SouthKnight 是固定名稱
Set addIn = Application.COMAddIns("ExcelAddIn_SouthKnight")
Set sk = addIn.Object
Dim w1 As Worksheet
Set w1 = Sheets("A類特產")
Dim w2 As Worksheet
Set w2 = Sheets("B類特產")
'呼叫南俠增益集的CtAdd函式參數意義
'參數1: 要建立圖表的工作表名稱
'參數2: 週期欄起始值
'參數3: 週期欄結束值
'參數4: 製表的起始列
'參數5: 製表的結束列
'參數6: 分項工作表欄位值
'參數7: 圖表名稱 ($變數代表分項工作表欄位值，例如南投、中寮....等)
'參數8: 圖表顯示範圍左上角值
'參數9: 圖表顯示範圍右下角值
'參數10: 週期列
'參數11: 週期間隔欄(例如2個產品數值，及一個合計欄，要比較的合計欄位，間隔就是3，
' 又例如連續日報表，要比較的每週三的數值，間隔就是7
'參數12: 競賽欄位值
'參數13: 工作表是否合併型態的布林值
'參數14: 工作表命名 ($變數代表分項工作表欄位值，例如南投、中寮....等)
'參數15: RGB參數,整個圖表區域(ChartArea)色
'參數16: RGB參數,繪圖區塊(ChartPlot)色
'參數17: RGB參數,圖表主題(ChartTitle)文字色
'參數18: RGB參數,圖表主題(ChartTitle)文字背景色
'參數19: 圖表主題字體是否為粗體，布林值
'參數20: 圖表主題字體名稱
'參數21: 圖表主題字體大小

sk.ctadd w1, 5, 32, 3, 102, 1, "$A產品銷售趨勢圖", "B2", "R50", 1, 3, 2, True, "$A圖", RGB(253, 242, 227), RGB(208, 254, 202), RGB(255, 0, 0), RGB(255, 255, 0), True, "標楷體", 20

sk.ctadd w2, 3, 12, 3, 102, 1, "$B產品銷售趨勢圖", "B2", "R50", 1, 1, 2, False, "$B圖", RGB(253, 242, 227), RGB(208, 254, 202), RGB(255, 0, 0), RGB(255, 255, 0), True, "標楷體", 20
MsgBox "OK"
End Sub