重生之温馨小日子:当鼠标点到excel单元格时,整行和整列会自动显示颜色

来源:百度文库 编辑:中财网 时间:2024/04/28 07:11:56
这个需要用到代码,方法如下:1.打开需要应用的excel。2.按ALT+F11,会弹出代码编辑框。3.在左边会显示出上下两个类别框里,名字分别是Project-VBAProject和Properties-sheet1(这个sheet几是你当前编辑的表单)(注意:如果什么也新出来的窗口什么也不显示的话,就->视图->工程资源管理器 就会出来了,此时你可以在Project-VBAProject和Properties-sheet1上直接右键查看代码,在里面直接粘贴第六条的代码即可)4.在上面的框边有三个小图标,view code(查看代码),view project(查看项目),toggle folder(打开或折叠文件夹)。5.选择view code,会弹出一个编辑框。6.在编辑框里黏贴下面的语言:Private Sub Worksheet_SelectionChange(ByVal Target As Range)    With Target        '清除工作表单元格的背景色        .Parent.Cells.Interior.ColorIndex = xlNone        '设置选中区域所在行的背景色        .EntireRow.Interior.Color = vbGreen        '设置选中区域所在列的背景色        .EntireColumn.Interior.Color = vbGreen    End WithEnd Sub7. 贴完之后,关闭对话框。关闭编辑框,返回到excel。8.这时候你再点击任意单元格,就会自动出现你要的效果了。备注:上面语言中的汉语不用删除,汉语可以可以帮助你了解该行的意思,同时也不会影响编辑效果。如果对行或列的色彩不满意,可以参考下面的色彩代码,自行修改。vbBlack      黑vbRed        红vbGreen      绿vbYellow     黄vbBlue       蓝vbMagenta    洋红vbCyan       青vbWhite      白上面的办法对已经有填充色的表格是个灾难,它会清楚原有颜色。你也可以试试下面的方法:Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) On Error Resume Next Cells.FormatConditions.Delete With Target.EntireRow.FormatConditions .Delete .Add xlExpression, , "TRUE" .Item(1).Interior.ColorIndex = 7 End With End Sub这个虽然只能显示行不能显示列,但是不会破坏原有填充色。回答完毕,希望是你要的。 
Excel中我合并了单元格的整列,怎样把字输入到中间? Excel在VB代码中如何返回当前单元格的行值和列值? 当EXCEL表格中的两个单元格中的内容要合并到一个单元格中时应该怎么办 excel的单元格的行高和列宽的单为分别是什么 可用厘米来控制么 EXCEL整列加法 怎样把EXCel的单元格,调成精确的正方形 行高=列高 在excel中如何查看一个单元格的行宽和列高,注意不是调整! (填空题)Excel可以对某一列和对某一单元格区域按关键字排序、______、______排序。 选择Excel中的字 点鼠标右键---单元格格式---字体---颜色... "这样子还是打不上,怎么办? 当新建排版单元格时,什么情况下单元格之间或单元格和边界间将自动吸附 用excel合并列单元格,单元格跨在表的分页处,如何处理好? excel中如何对整张单元格进行姓氏排序 excel单元格 excel打开后用鼠标单击单元格,出现的现象和按住SHIFT键单击的现象一样,为啥? office excel单元格的宽度和高度 在EXCEL里面输入文字时怎么才能使的到单元格末自动转行?而不是占有下一个单元格? Excel 利用公式对表格第二列数据进行求和计算,结果存放于第5行第2列的单元格中 怎么表达这个? 鼠标和excel Excel电子文档,选定单元格这个操作被禁用了,就是鼠标点击单元格时不能选中它。请问如何实现? Excel,有没有一条函数公式能起到:当A1单元格不为空时显示B1单元格当前的数据,并保持不变, 怎么让EXCEL表格复制到WORD文件中去不用再调整行高和列宽? EXCEL中的行标志和列标志是什么意思? 一个excel表格有多少行和多少列? Excel里面的行高和列宽是什么单位?