足球游戏_中国足彩网￥体育资讯$

代码如下:

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