版權聲明:本文為部落客原創文章,未經部落客允許不得轉載。 https://blog.csdn.net/kese7952/article/details/80281015
課件下載下傳 :
方式1:本節課件下載下傳位址:
https://pan.baidu.com/s/1D-MvbRcJRoyiA456xsTvMQ密碼:
方式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

作者: 楊校
出處:
https://blog.csdn.net/kese7952分享是快樂的,也見證了個人成長曆程,文章大多都是工作經驗總結以及平時學習積累,基于自身認知不足之處在所難免,也請大家指正,共同進步。
本文版權歸作者所有,歡迎轉載,但未經作者同意必須保留此段聲明,且在文章頁面明顯位置給出, 如有問題, 可郵件([email protected])咨詢。