学生会部门游玩策划书:高亮显示当前行
来源:百度文库 编辑:中财网 时间:2024/04/29 10:55:28
高亮显示当前行 - Excel VBA程序开发 - Excel Home论坛
用条件格式设置高亮显示当前行,难的是如何确定当前行。用VBA就很简单,鼠标右击工作表标签,选择“查看代码”,将下面的代码粘贴到VBE窗口中:
代码:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ThisWorkbook.Names.Add "XM", Target
End Sub
这几行代码的作用是,当选择新的单元格时,将这个单元格(或者区域)定义为名称“XM”,在条件格式设置中可以引用这个名称。如下面的附件,将代码粘贴完成后,返回工作表中,选择A4:I15,点击菜单“格式—条件格式”,设置:
公式1:=(A4<>"")*(A4=XM)
(如果A4不为空,并且A4等于XM)
公式2:=ROW()=ROW(XM)
(如果当前的行号等于XM的行号)
用代码定义名称,我们需要它的即时更新,鼠标点到什么,这个名称“XM”就更新什么。
例如,当鼠标点击F7单元格,XM便等于F7,ROW(XM)=7,设置条件格式的区域中,凡是Row()等于7(说白了就是第7行)的单元格便显示背景色。
用手工定义也可得到相同的效果,可以试试。然后比较一下,用代码的好处是什么。
当选中B6单元格时有不一样的情况出现,是因为区域中设置了两个条件格式,它符合第一个条件便显示第一种格式,符合第二个条件便显示第二个格式。
点击菜单“格式—条件格式”可看清楚。
初学有一个问题?能否把 高亮显示单元格 做成 自动起动的宏,让用户的鼠标单击工作表的某一个单元格后,相应的行和列都显示一种 或者 两种背景色!
直接用VBA设置背景色,做法如下:鼠标右键点击工作表标签,选择“查看代码”,将下面代码粘贴到光标处:
代码:
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 '设置当前列颜色
Rng.EntireRow.Interior.ColorIndex = 36 '设置当前行颜色
End Sub
其中40、36为颜色索引号,不同的数值代表不同的颜色,对应索引如下:如果工作簿中的每张工作表都有相同效果,应该怎么做?按Alt+F11打开VBE编辑器,在工程管理器中双击模块“ThisWorkbook”,将下面的代码粘贴到光标处:
代码:
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 '设置当前列颜色
Rng.EntireRow.Interior.ColorIndex = 36 '设置当前行颜色
End Sub
使用了这个代码后,表中的“复制”和“拷贝”功能就被禁止了,不知有无办法可以解决?可在代码第二行(清除颜色之前就行)插入一行代码:
If Application.CutCopyMode Then Exit Sub ’如果处于选取状态则退出程序
代码:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Application.CutCopyMode Then Exit Sub '如果处于选取状态则退出程序
Dim Rng As Range
Set Rng = Target.Range("a1")
Cells.Interior.ColorIndex = 0 '清除所有背景色
Rng.EntireColumn.Interior.ColorIndex = 40 '设置当前列颜色
Rng.EntireRow.Interior.ColorIndex = 36 '设置当前行颜色
End Sub
Source Insight中如何高亮显示当前行?
DaTaGridView怎么获得当前行?
臣宜披坚执锐,当矢石,启前行。
vi中查看当前行的命令是什么?
怎样获取DataGrid控件当前行第一列的值?
5、Dreamweaver删除表格当前行的快捷操作是( )。
C++读取文件时,如何返回当前行
什么是高亮显示
VS2005下,gidview里当前行编辑状态下,更新按钮的代码怎么写?
VS2005下,gidview里当前行编辑状态下,更新按钮的代码怎么写?
delphi 中要改变dbgrid当前行的颜色怎么实现?
delphi 中要改变dbgrid当前行的颜色怎么实现?
()然前行
VB 语法高亮显示
一个巴掌拍不响(猜网络电脑词语)A当前行,声卡B汉卡,通道C单击,声卡D操作,语句
临别举步语凝噎(猜网络电脑词语)A单击,声卡B当前行,声卡C汉卡,通道D显卡,通道
翻译这两句:臣宜被坚执锐,当矢石,启前行;武帝异其文,拜军为谒者给事中。
VS2005下,gidview里当前行编辑状态下,怎么获取该行某列的值啊?
在DOS下,要在当前行逐个字符地完全复制上次输入的DOS命令,应按功能键(( ) )。
当一个人在孤单中前行,那么他是怎样一个人呢?他的心态又是如何地呢?
当显示器分辨率调的太高,无法显示怎么调回去?
如何关闭笔记本高亮显示
如何高亮显示搜索结果?
征途前行好用吗?