excel vba 高亮顯示當(dāng)前行代碼
更新時(shí)間:2009年07月15日 19:29:52 作者:
用條件格式設(shè)置高亮顯示當(dāng)前行,難的是如何確定當(dāng)前行。用VBA就很簡(jiǎn)單,鼠標(biāo)右擊工作表標(biāo)簽,選擇“查看代碼”,將下面的代碼粘貼到VBE窗口中
代碼:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ThisWorkbook.Names.Add "XM", Target
End Sub
這幾行代碼的作用是,當(dāng)選擇新的單元格時(shí),將這個(gè)單元格(或者區(qū)域)定義為名稱“XM”,在條件格式設(shè)置中可以引用這個(gè)名稱。
如下面的附件,將代碼粘貼完成后,返回工作表中,選擇A4:I15,點(diǎn)擊菜單“格式—條件格式”,設(shè)置:
公式1:=(A4<>"")*(A4=XM)
(如果A4不為空,并且A4等于XM)
公式2:=ROW()=ROW(XM)
(如果當(dāng)前的行號(hào)等于XM的行號(hào))
用代碼定義名稱,我們需要它的即時(shí)更新,鼠標(biāo)點(diǎn)到什么,這個(gè)名稱“XM”就更新什么。
例如,當(dāng)鼠標(biāo)點(diǎn)擊F7單元格,XM便等于F7,ROW(XM)=7,設(shè)置條件格式的區(qū)域中,凡是Row()等于7(說(shuō)白了就是第7行)的單元格便顯示背景色。
用手工定義也可得到相同的效果,可以試試。然后比較一下,用代碼的好處是什么。
當(dāng)選中B6單元格時(shí)有不一樣的情況出現(xiàn),是因?yàn)閰^(qū)域中設(shè)置了兩個(gè)條件格式,它符合第一個(gè)條件便顯示第一種格式,符合第二個(gè)條件便顯示第二個(gè)格式。
點(diǎn)擊菜單“格式—條件格式”可看清楚。
初學(xué)有一個(gè)問(wèn)題?能否把 高亮顯示單元格 做成 自動(dòng)起動(dòng)的宏,讓用戶的鼠標(biāo)單擊工作表的某一個(gè)單元格后,相應(yīng)的行和列都顯示一種 或者 兩種背景色!
直接用VBA設(shè)置背景色,做法如下:
鼠標(biāo)右鍵點(diǎn)擊工作表標(biāo)簽,選擇“查看代碼”,將下面代碼粘貼到光標(biāo)處:
代碼:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range
Set Rng = Target.Range("a1")
Cells.Interior.ColorIndex = 0 '清除所有背景色
Rng.EntireColumn.Interior.ColorIndex = 40 '設(shè)置當(dāng)前列顏色
Rng.EntireRow.Interior.ColorIndex = 36 '設(shè)置當(dāng)前行顏色
End Sub
其中40、36為顏色索引號(hào),不同的數(shù)值代表不同的顏色,對(duì)應(yīng)索引如下:
如果工作簿中的每張工作表都有相同效果,應(yīng)該怎么做?
按Alt+F11打開VBE編輯器,在工程管理器中雙擊模塊“ThisWorkbook”,將下面的代碼粘貼到光標(biāo)處:
代碼:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim Rng As Range
Set Rng = Target.Range("a1")
Cells.Interior.ColorIndex = 0 '清除所有背景色
Rng.EntireColumn.Interior.ColorIndex = 40 '設(shè)置當(dāng)前列顏色
Rng.EntireRow.Interior.ColorIndex = 36 '設(shè)置當(dāng)前行顏色
End Sub
使用了這個(gè)代碼后,表中的“復(fù)制”和“拷貝”功能就被禁止了,不知有無(wú)辦法可以解決?
可在代碼第二行(清除顏色之前就行)插入一行代碼:
If Application.CutCopyMode Then Exit Sub '如果處于選取狀態(tài)則退出程序
代碼:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Application.CutCopyMode Then Exit Sub '如果處于選取狀態(tài)則退出程序
Dim Rng As Range
Set Rng = Target.Range("a1")
Cells.Interior.ColorIndex = 0 '清除所有背景色
Rng.EntireColumn.Interior.ColorIndex = 40 '設(shè)置當(dāng)前列顏色
Rng.EntireRow.Interior.ColorIndex = 36 '設(shè)置當(dāng)前行顏色
End Sub
復(fù)制代碼 代碼如下:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ThisWorkbook.Names.Add "XM", Target
End Sub
這幾行代碼的作用是,當(dāng)選擇新的單元格時(shí),將這個(gè)單元格(或者區(qū)域)定義為名稱“XM”,在條件格式設(shè)置中可以引用這個(gè)名稱。
如下面的附件,將代碼粘貼完成后,返回工作表中,選擇A4:I15,點(diǎn)擊菜單“格式—條件格式”,設(shè)置:
公式1:=(A4<>"")*(A4=XM)
(如果A4不為空,并且A4等于XM)
公式2:=ROW()=ROW(XM)
(如果當(dāng)前的行號(hào)等于XM的行號(hào))
用代碼定義名稱,我們需要它的即時(shí)更新,鼠標(biāo)點(diǎn)到什么,這個(gè)名稱“XM”就更新什么。
例如,當(dāng)鼠標(biāo)點(diǎn)擊F7單元格,XM便等于F7,ROW(XM)=7,設(shè)置條件格式的區(qū)域中,凡是Row()等于7(說(shuō)白了就是第7行)的單元格便顯示背景色。
用手工定義也可得到相同的效果,可以試試。然后比較一下,用代碼的好處是什么。
當(dāng)選中B6單元格時(shí)有不一樣的情況出現(xiàn),是因?yàn)閰^(qū)域中設(shè)置了兩個(gè)條件格式,它符合第一個(gè)條件便顯示第一種格式,符合第二個(gè)條件便顯示第二個(gè)格式。
點(diǎn)擊菜單“格式—條件格式”可看清楚。
初學(xué)有一個(gè)問(wèn)題?能否把 高亮顯示單元格 做成 自動(dòng)起動(dòng)的宏,讓用戶的鼠標(biāo)單擊工作表的某一個(gè)單元格后,相應(yīng)的行和列都顯示一種 或者 兩種背景色!
直接用VBA設(shè)置背景色,做法如下:
鼠標(biāo)右鍵點(diǎn)擊工作表標(biāo)簽,選擇“查看代碼”,將下面代碼粘貼到光標(biāo)處:
代碼:
復(fù)制代碼 代碼如下:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range
Set Rng = Target.Range("a1")
Cells.Interior.ColorIndex = 0 '清除所有背景色
Rng.EntireColumn.Interior.ColorIndex = 40 '設(shè)置當(dāng)前列顏色
Rng.EntireRow.Interior.ColorIndex = 36 '設(shè)置當(dāng)前行顏色
End Sub
其中40、36為顏色索引號(hào),不同的數(shù)值代表不同的顏色,對(duì)應(yīng)索引如下:
如果工作簿中的每張工作表都有相同效果,應(yīng)該怎么做?
按Alt+F11打開VBE編輯器,在工程管理器中雙擊模塊“ThisWorkbook”,將下面的代碼粘貼到光標(biāo)處:
代碼:
復(fù)制代碼 代碼如下:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim Rng As Range
Set Rng = Target.Range("a1")
Cells.Interior.ColorIndex = 0 '清除所有背景色
Rng.EntireColumn.Interior.ColorIndex = 40 '設(shè)置當(dāng)前列顏色
Rng.EntireRow.Interior.ColorIndex = 36 '設(shè)置當(dāng)前行顏色
End Sub
使用了這個(gè)代碼后,表中的“復(fù)制”和“拷貝”功能就被禁止了,不知有無(wú)辦法可以解決?
可在代碼第二行(清除顏色之前就行)插入一行代碼:
If Application.CutCopyMode Then Exit Sub '如果處于選取狀態(tài)則退出程序
代碼:
復(fù)制代碼 代碼如下:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Application.CutCopyMode Then Exit Sub '如果處于選取狀態(tài)則退出程序
Dim Rng As Range
Set Rng = Target.Range("a1")
Cells.Interior.ColorIndex = 0 '清除所有背景色
Rng.EntireColumn.Interior.ColorIndex = 40 '設(shè)置當(dāng)前列顏色
Rng.EntireRow.Interior.ColorIndex = 36 '設(shè)置當(dāng)前行顏色
End Sub
您可能感興趣的文章:
- VBA中操作Excel常用方法總結(jié)
- Excel VBA連接并操作Oracle
- excel vba 限制工作表的滾動(dòng)區(qū)域代碼
- 合并Excel工作薄中成績(jī)表的VBA代碼,非常適合教育一線的朋友
- 用vba實(shí)現(xiàn)將記錄集輸出到Excel模板
- Python + selenium + requests實(shí)現(xiàn)12306全自動(dòng)搶票及驗(yàn)證碼破解加自動(dòng)點(diǎn)擊功能
- python requests包的request()函數(shù)中的參數(shù)-params和data的區(qū)別介紹
- python:解析requests返回的response(json格式)說(shuō)明
- 基于python requests selenium爬取excel vba過(guò)程解析
相關(guān)文章
向數(shù)據(jù)報(bào)表添加一個(gè)合計(jì)字段
在數(shù)據(jù)環(huán)境設(shè)計(jì)器中也可以創(chuàng)建一個(gè)合計(jì)字段,即對(duì)來(lái)自部分的數(shù)據(jù)進(jìn)行合計(jì)的字段。2009-07-07當(dāng)編輯框內(nèi)容改變 對(duì)應(yīng)的單元格也隨著改變vba代碼
當(dāng)編輯框內(nèi)容改變 對(duì)應(yīng)的單元格也隨著改變vba代碼2009-07-07excel vba 限制工作表的滾動(dòng)區(qū)域代碼
如果希望限制工作表中滾動(dòng)的區(qū)域,可以通過(guò)設(shè)置WorkSheet對(duì)象的ScrollArea屬性來(lái)實(shí)現(xiàn)。2009-07-07用vba實(shí)現(xiàn)將記錄集輸出到Excel模板
用vba實(shí)現(xiàn)將記錄集輸出到Excel模板...2007-02-02Excel?VBA按列拆分工作表和工作簿的實(shí)現(xiàn)
表格拆分是常見的數(shù)據(jù)處理,本文主要介紹了Excel?VBA按列拆分工作表和工作簿的實(shí)現(xiàn),文中通過(guò)示例代碼介紹的非常詳細(xì),對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值,需要的朋友們下面隨著小編來(lái)一起學(xué)習(xí)學(xué)習(xí)吧2023-01-01Excel·VBA合并工作簿的實(shí)現(xiàn)示例
本文主要介紹了Excel·VBA合并工作簿的實(shí)現(xiàn)示例,文中通過(guò)示例代碼介紹的非常詳細(xì),對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值,需要的朋友們下面隨著小編來(lái)一起學(xué)習(xí)學(xué)習(xí)吧2023-01-01