本帖最后由 美眉鼠眼 于 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（用于指定無內(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方法將所選單元格所在的行,、列連接起來成為一個(gè)區(qū)域。
圖 2 高亮顯示活動(dòng)單元格所在的行列
注意 使用此方法時(shí),，工作表中所有設(shè)置的單元格內(nèi)部填充顏色將會(huì)被清除,。（不包括通過條件格式設(shè)置的單元格內(nèi)部填充顏色），同時(shí)無法在工作表中實(shí)現(xiàn)復(fù)制粘貼功能,。 |
|
|
