楊老師課堂之Excel VBA 程序開發第七講表格數據高亮顯示

  課件下載 ：           

方式1：本節課件下載地址：  密碼：

方式2：或點擊此處下載

    效果圖：

1.在模塊1中寫入下列代碼：

Sub gys()

Cells.Interior.Pattern = xlNone
Selection.EntireRow.Interior.Color = 65535  ' 選擇的區域整行的底紋的內部顏色是 

End Sub

2.在sheet1中選擇通用下拉列表中的WorkSheet  右側選擇SelectionChange，寫入下列代碼:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)' 鼠標放在哪裏，選中哪裏


Call gys'調用改顏色 的sub 代碼



End Sub