高亮显示活动单元格所在行与列【过往优秀作品展示】

tangqi08130409

好方法，试试

xinyun724

谢谢分享，学习了

MrQer

太神啦, 小弟又學會了一個小技巧 ^^

excel366214

这个不错。赞一个

梦梦2358

这个代码一样可以实现，自动修改批注和高亮显示活动单元格所在行与列
Dim ydtext As String '原单元格值
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.CutCopyMode <> False Then
Application.CutCopyMode = False
Call ColorBand(Target)
End If
If Target.Cells.Count = 1 Then
Dim mycom As Comment
Dim ybzstr As String '原标注值
'------------------判断是否添加了批注
Set mycom = Target.Comment
If mycom Is Nothing Then Target.AddComment
'------------------编辑批注内容
ybzstr = Target.Comment.Text
Target.Comment.Text Text:=ybzstr & Chr(10) & Format(Now(), "yyyy-mm-dd hh:mm") & " 原内容: " & ydtext & "修改为: " & Target.Formula
Target.Comment.Shape.TextFrame.AutoSize = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count = 1 Then
If Target = "" Then
ydtext = "空"
Else
ydtext = Target.Text
End If
End If
If Application.CutCopyMode = False Then
Call ColorBand(Target)
Else
Exit Sub
End If
End Sub
Private Sub ColorBand(ByVal rngTarget As Range)
With rngTarget.Parent
.Cells.Interior.ColorIndex = 0
.Columns(rngTarget.Column).Cells.Interior.ColorIndex = 34
.Rows(rngTarget.Row).Cells.Interior.ColorIndex = 34
End With
End Sub

一路福云

先顶楼主，
但是楼主的方法 选择多个单元格提示错误。
楼上的哥哥的方法，把我以前的单元格颜色全清空了。

各位老大，再给个好办法吧？

z215572630

会模拟操作啦

oylw

记得祝老师还讲过一个，好像这个简单一些！！！

sellyxian

这个高亮功能很实用，可惜的是使用了以后，撤销键的功能就失效了，按键变成了灰色的，老师有什么法子解决这个问题吗？因为有时候还是需要撤销操作的哦

wjytjh

请问老师，我按老师的操作后，只有选择的区域第一行有颜色（一直有颜色），然后点击其他行没任何反应，不知什么情况？