技術標籤：excel根據rgb自動填充顏色

很多時候，您是否有過在WORD裡面重複製作某種資料的工作。比如給定了合同模板，需要根據不同合同內容製作出不同的合同，但模板是一樣的。一般情況下就是老老實實的一份一份的去填寫(還不保證不會有錯誤)。那麼有沒有可以自動生完成的辦法呢？答案是肯定有，不然我在這嗶嗶啥呢！接下來言歸正傳。在此上個大招，接下來就以合同為例：

1、製作合同模板檔案，把合同變數部分用特殊變數替換。圖示如下：

2、在EXCEL裡面新增合同主要內容資料，圖示如下：

3、在EXCEL裡面新增一個Active X按鈕控制元件，根據自身需要修改其屬性。

4、.在按鈕控制元件下寫如下程式碼，並將該EXCEL檔案另存為XLSM：

 Private Sub cmd_makedoc_Click()On Error GoTo Err_cmdExportToWord_Click Dim objApp As Object 'Word.Application Dim objDoc As Object 'Word.Document Dim strTemplates As String '模板檔案路徑名 Dim strFileName As String '將資料匯出到此檔案 Dim i As Integer Dim contact_NO As String Dim side_A As String Dim side_B As String i = ActiveCell.Row contact_NO = Cells(i, 1) side_A = Cells(i, 2) side_B = Cells(i, 3)  With Application.FileDialog(msoFileDialogFilePicker) .Filters.Add "word檔案