电竞比分网-中国电竞赛事及体育赛事平台

搜索
分享

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

 昵稱7446312 2011-08-04

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

如果希望以某種方式突出顯示活動單元格或者指定的單元格區(qū)域，從而一目了然地獲得某些信息，那么可以高亮顯示活動單元格區(qū)域，如下面的代碼所示。
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2. Cells.Interior.ColorIndex = xlColorIndexNone
  3. Target.Interior.ColorIndex = 8
  4. End Sub
復制代碼
代碼解析：
設置工作表當前選定區(qū)域單元格的內部填充顏色，以高亮顯示選定區(qū)域，如圖1所示。


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

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

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

應用于Interior對象的ColorIndex屬性返回或設置邊框內部的顏色。該顏色可指定為當前調色板中顏色的編號（請參閱技巧11-1中的圖 11 1）或為 XlColorIndex 常量之一：xlColorIndexAutomatic（指定對圖形對象自動填充）、xlColorIndexNone（用于指定無內部填充）。

還可以高亮顯示指定區(qū)域內的行列，如下面的代碼所示。
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2. Dim rng As Range
  3. Cells.Interior.ColorIndex = xlNone
  4. Set rng = Application.Union(Target.EntireColumn, Target.EntireRow)
  5. rng.Interior.ColorIndex = 24
  6. End Sub
復制代碼
代碼解析：
設置工作表當前選定區(qū)域單元格內部填充顏色，高亮顯示活動單元格所在的行列，如圖 2所示。
第4行代碼使用Union方法將所選單元格所在的行、列連接起來成為一個區(qū)域。


圖 2 高亮顯示活動單元格所在的行列

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

    本站是提供個人知識管理的網(wǎng)絡存儲空間，所有內容均由用戶發(fā)布，不代表本站觀點。請注意甄別內容中的聯(lián)系方式、誘導購買等信息，謹防詐騙。如發(fā)現(xiàn)有害或侵權內容，請點擊一鍵舉報。
    轉藏 分享 獻花（0）

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多