Excel VBA實(shí)例教程 #016：高亮顯示單元格區(qū)域

昵稱7446312 2011-08-04

展開(kāi)全文

本帖最后由美眉鼠眼于 2010-6-7 16:19 編輯

如果希望以某種方式突出顯示活動(dòng)單元格或者指定的單元格區(qū)域，從而一目了然地獲得某些信息，那么可以高亮顯示活動(dòng)單元格區(qū)域，如下面的代碼所示。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlColorIndexNone
Target.Interior.ColorIndex = 8
End Sub

復(fù)制代碼

代碼解析：
設(shè)置工作表當(dāng)前選定區(qū)域單元格的內(nèi)部填充顏色，以高亮顯示選定區(qū)域，如圖1所示。

圖 1 高亮顯示選定區(qū)域

第2行代碼將工作表中所有的單元格的內(nèi)部填充顏色設(shè)置為xlColorIndexNone，即取消單元格的內(nèi)部填充顏色。

第3行代碼將工作表中選定單元格的內(nèi)部填充顏色設(shè)置為8。

應(yīng)用于Interior對(duì)象的ColorIndex屬性返回或設(shè)置邊框內(nèi)部的顏色。該顏色可指定為當(dāng)前調(diào)色板中顏色的編號(hào)（請(qǐng)參閱技巧11-1中的圖 11 1）或?yàn)?XlColorIndex 常量之一：xlColorIndexAutomatic（指定對(duì)圖形對(duì)象自動(dòng)填充）、xlColorIndexNone（用于指定無(wú)內(nèi)部填充）。

還可以高亮顯示指定區(qū)域內(nèi)的行列，如下面的代碼所示。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Cells.Interior.ColorIndex = xlNone
Set rng = Application.Union(Target.EntireColumn, Target.EntireRow)
rng.Interior.ColorIndex = 24
End Sub

復(fù)制代碼

代碼解析：
設(shè)置工作表當(dāng)前選定區(qū)域單元格內(nèi)部填充顏色，高亮顯示活動(dòng)單元格所在的行列，如圖 2所示。
第4行代碼使用Union方法將所選單元格所在的行、列連接起來(lái)成為一個(gè)區(qū)域。

圖 2 高亮顯示活動(dòng)單元格所在的行列

注意使用此方法時(shí)，工作表中所有設(shè)置的單元格內(nèi)部填充顏色將會(huì)被清除。（不包括通過(guò)條件格式設(shè)置的單元格內(nèi)部填充顏色），同時(shí)無(wú)法在工作表中實(shí)現(xiàn)復(fù)制粘貼功能。

本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間，所有內(nèi)容均由用戶發(fā)布，不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購(gòu)買等信息，謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊一鍵舉報(bào)。

轉(zhuǎn)藏 分享

QQ空間 QQ好友新浪微博微信

獻(xiàn)花（0） +1

來(lái)自：昵稱7446312 > 《我的文件夾》

舉報(bào)/認(rèn)領(lǐng)