方法/步驟分步閱讀

1

/6

首先在開發工具中開啟VBA編輯器

2

/6

在單元格區域當中輸入一些內容作為例子

3

/6

在VBA編輯器中插入模組

4

/6

在模組當中輸入如下程式碼，然後執行

Sub adc()

On Error Resume Next '出錯繼續執行後面的程式碼

'Worksheets("Sheet1").Range("A1").Font.ColorIndex = 3

'Selection.Font.ColorIndex = 5

'Range("A1:A11").Select '選擇輔助的區域

'Selection.Copy '複製

'Range("A13").Select '選擇貼上的第一個單元格

'ActiveSheet.Paste '貼上

'Selection.Font.ColorIndex = 5 '字的顏色號為3 紅色

Selection.Interior.ColorIndex = 44 ' 背景的顏色為3 紅色

'Selection.Font.Color = RGB(0, 255, 0) '字的顏色綠色

'Selection.Interior.Color = RGB(0, 0, 255) '背景的顏色藍色

End Sub

5

/6

或者

Sub adc()

On Error Resume Next '出錯繼續執行後面的程式碼

'Worksheets("Sheet1").Range("A1").Font.ColorIndex = 3

'Selection.Font.ColorIndex = 5

'Range("A1:A11").Select '選擇輔助的區域

'Selection.Copy '複製

'Range("A13").Select '選擇貼上的第一個單元格

'ActiveSheet.Paste '貼上

'Selection.Font.ColorIndex = 5 '字的顏色號為3 紅色

'Selection.Interior.ColorIndex = 44 ' 背景的顏色為3 紅色

'Selection.Font.Color = RGB(0, 255, 0) '字的顏色綠色

Selection.Interior.Color = RGB(0, 0, 255) '背景的顏色藍色

End Sub

6

/6

最後就可以看到我們成功的設定了單元格的背景顏色