最佳答案 - 由提问者2009-07-10 09:12:50选出
方法:鼠标右选工作簿标签……查看代码……将下面的代码复制其中
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With Target
'清除工作表单元格的背景色
.Parent.Cells.Interior.ColorIndex = xlNone
'设置选中区域所在行的背景色
.EntireRow.Interior.Color = vbCyan
'设置选中区域所在列的背景色
.EntireColumn.Interior.Color = vbCyan
End With
End Sub
提问者对最佳答案的评价
1、此程序,试用无反应。
2、我的意思,光标所到之格已自动“暗”,不需再任何动作;医院收款查账就是如此。
谢谢帮助。
其他回答(1)
-
用填充颜色工具,或者打开工具:格式—单元格-图案,就可以修改底色

qsdqwqd

有问必答








