tft每日頭條

 > 生活

 > wps表格用vba制作編号遞增

wps表格用vba制作編号遞增

生活 更新时间:2024-12-27 21:47:05

操作大數據的時候行列太多找數據不好找,總容易看走眼。用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進制顔色和中文描述!

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

,

更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!

查看全部

相关生活资讯推荐

热门生活资讯推荐

网友关注

Copyright 2023-2024 - www.tftnews.com All Rights Reserved