Excel 通過VBA高亮選擇單元格的行列

2021-08-28 21:17:59 字數 966 閱讀 9376

wps有乙個比較有意思的功能叫十字游標,就是可以亮顯選擇單元格的行列,資料量比較多的時候可以方便檢視資料,可惜excel原生並沒有類似的功能,網上搜尋了一下,發現可以通過vba完成類似的功能,便嘗試了一下。

思路是通過vba獲得選擇區域的行與列,在行列中新增條件格式,通過條件格式改變行與列單元格的填充。當選擇區域發生更改的時候,清除掉單元格的條件格式,重複取得行列,新增條件格式的步驟。

美中不足的是因為是使用條件格式來進行高亮的,啟用時**就不能使用條件格式功能了,因為每次更改選區時都會觸發清除條件格式的命令。

vba**:

private sub worksheet_selectionchange(byval target as range)

cells.formatconditions.delete '清除條件格式

for each row in target.rows '遍歷選擇的行

with row.entirerow.formatconditions '行通過條件格式改變填充

.add xlexpression, , "true"

.item(1).interior.color = rgb(217, 217, 217)

end with

next

for each col in target.columns '遍歷選擇的列

with col.entirecolumn.formatconditions '列通過條件格式改變填充

VBA之EXCEL刪除和設定單元格行高等

刪除sheet1 上的單元格區域 a1 d10,並將其餘單元格左移以填補被刪除單元格的位置 sheet1.range a1 d10 delete shift xlshifttoleft 刪除指定行 range 1 1 delete 刪除指定列 columns 5 delete 刪除當前行 activ...

excel中使用VBA將單元格的內容轉為多行

功能實現 將sheet1中a1單元格的值拆分後 顯示到sheet2的a列中 private sub worksheet change byval target as range 只有a1單元格的值改變才會執行 if target.address a 1 then 定義變數 dim x as inte...

Excel選中單元格時自動高亮所在行列

excel 高亮 單元格 選中單元格 工作表 右鍵,檢視 vba 編輯器中,選擇 worksheet 在worksheet selectionchange函式中新增如下 最後整個函式如下 private sub worksheet selectionchange byval target as ra...