2017年12月12日 星期二

[Excel] 更改儲存格顏色

最近在研究改變Excel儲存格的顏色方法,以下就是我找到的方法,給各位參考唷!

Excel的應用需要加入參考,這方面可以參考:[Excel] 新增/刪除 工作表

程式碼最上面引用
Imports Microsoft.Office.Interop



宣告變數
Dim app As New Excel.Application
Dim worksheet As Excel.Worksheet
Dim workbook As Excel.Workbook


讀取欄位
workbook = app.Workbooks.Open("檔案路徑") '開啟 Excel 檔案
worksheet = workbook.Worksheets("工作表名稱") '選擇要讀取的工作表
worksheet.Cells(1, 1).Interior.Color = RGB(255, 0, 0)'後面就是RGB的顏色碼
workbook.Save() '儲存檔案
workbook.Close() '關閉檔案
app.Quit() '結束操作


RGB顏色碼可以參考以下網站:https://www.w3schools.com/colors/colors_rgb.asp