wps表格用vba制作編号遞增-tft每日頭條

操作大數據的時候行列太多找數據不好找，總容易看走眼。用WPS的都知道，在右下角可以開啟聚光燈，就是你選中一個單元格他對應的行和列都會有着重顔色。

WPS比較簡單，我們先來介紹下WPS聚光燈的開啟步驟

首先打開wps表格，再也頁面右下角底部信息欄中找到聚光燈的開啟按鈕，WPS中叫做閱讀模式，單擊即可打開。點擊後面小箭頭可以選擇顔色，具體如圖：

wps表格用vba制作編号遞增（EXCEL和wps表格聚光燈的幾種做法）1

wpS的聚光燈設置方法

EXCEL默認是沒有這個功能的隻能通過條件格式或者VBA來實現，其實還可以通過插件來實現，不過我這裡就不介紹了。

首先我們介紹通過條件格式實現EXCEL聚光燈效果，公式及具體操作如下：

公式：=(cell("row")=row()) (cell("col")=column())

具體操作：選中數據區域（就是你所有數據所在的區域），我這裡沒有數據，直接選擇整個表格，然後點擊開始——條件格式——新建規則，選擇使用公式确定要設置格式的單元格，在為符合此公式的值設置格式下粘貼上面的公式，然後再格式中給他一個顔色即可，具體操作如圖：

wps表格用vba制作編号遞增（EXCEL和wps表格聚光燈的幾種做法）2

設置條件格式

噗~，是不是發現了，你點了聚光燈不跟着你的鼠标走，哈哈哈，這個就是條件格式的弊端，你需要按F9從新計算（類似于刷新的效果），你每操作一步就需要按一下。沒什麼實用性。

下面來看用VBA的方法：

代碼：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With Target

.Parent.Cells.Interior.ColorIndex = xlNone

.EntireRow.Interior.Color = vbGreen

.EntireColumn.Interior.Color = vbCyan

.Interior.Color = vbRed

End With

End Sub

具體操作：在工作表名稱上右擊（你也可以通過開發工具來插入代碼，不過這個默認沒放在工具欄裡你找不到的話還是按照我這個來吧），右擊之後點擊查看代碼，在彈出來的代碼框裡粘貼代碼，關閉代碼框即可，具體操作如圖：

wps表格用vba制作編号遞增（EXCEL和wps表格聚光燈的幾種做法）3

設置VBA

VBA的實用性還是蠻高的，而且代碼比較簡單好操作。不過顔色不好操作，沒辦法手選。如果你覺得顔色不好看，可以繼續往下看。

VBA代碼中：

.EntireRow.Interior.Color = vbGreen 為行顔色，vbGreen為色值

.EntireColumn.Interior.Color = vbCyan 為列顔色，vbCyan為色值

.Interior.Color = vbRed 為選中單元格顔色，vbRed為色值

色值可以用以下方式表示

第一種：&H000000FF&，網上有很多對照表，也可以通過excel中的調色表來找（如下圖）

wps表格用vba制作編号遞增（EXCEL和wps表格聚光燈的幾種做法）4

查找色标色号

第二種：RGB(255, 0, 0)，這種網上也有對照表也可以通過excel中的調色表來找（如上圖）

第三種：vbred 就是目前我們默認使用的色值，下面附一份常用的顔色vbBlack &H0 黑色

vbRed &HFF 紅色

vbGreen &HFF00 綠色

vbYellow &HFFFF 黃色

vbBlue &HFF0000 蘭色

vbMagenta &HFF00FF 洋紅

vbCyan &HFFFF00 青色

vbWhite &HFFFFFF 白色

注意直接輸前面的英文就好了，後面是對應的16進制顔色和中文描述！

好了今天的分享就到這裡，喜歡的話幫忙點贊轉發關注一下吧（有點貪心），謝謝大家！有不懂的也可以在評論區給我留言哦！