工作表中高亮显示行和列【已解决】

liangdx

在大全的示例，第47章里面的第二个示例。我发现有一个缺陷。就是写入代码之后。无法再使用“粘贴”功能。不知各位有没有磁到过。

我在使用“复制”之后，再移到其他单元格上进行粘贴时发现无法使用。请大家验证。不知大家有没有更好的办法。

"2.工作表中高亮显示行和列"

[此贴子已经被taller于2008-2-26 11:38:48编辑过]

liangdx

没有人出现这样的问题吗？

ychexcel

http://club.excelhome.net/viewthread.php?tid=271188&replyID=&skin=0

taller

感谢您购买《大全》。由于书中提供的只是示例，所以实际应用时可能会有问题，可以进一步优化代码。请测试。原来上传的文件错误，下面代码可以大致解决复制粘贴的问题，遗漏问题是：如果复制后，在粘贴之前，选中其他单元格不会高亮显示，直到粘贴之后才可以恢复高亮显示效果。

根本原因在于任何改变被复制单元格区域的操作，都会使得原来在剪贴板中的复制失效。楼主可以测试一下：选中A1:A5，CTRL+C复制，A1:A5区域出现虚线框，选中A1改变单元格的底色，虚线框将消失。

 Private Sub Worksheet_Change(ByVal Target As Range)
    If Application.CutCopyMode Then
        Application.CutCopyMode = False
        SetColor Target
    End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Application.CutCopyMode Then
        Exit Sub
    Else
        SetColor Target
    End If
End Sub
Private Sub SetColor(ByVal Target As Range)
        With Target
        '清除工作表单元格的背景色
        .Parent.Cells.Interior.ColorIndex = xlNone
        '设置选中区域所在行的背景色
        .EntireRow.Interior.Color = vbCyan
        '设置选中区域所在列的背景色
        .EntireColumn.Interior.Color = vbCyan
    End With
End Sub

[此贴子已经被作者于2008-2-26 23:36:26编辑过]

liangdx

taller版主的附件跟大全的例子一樣。不能進行複製。不過ychexcel所提到的應該就是原因所在。只是不知有沒有辦法去解決呢？

taller

抱歉，上传文件错误，已经修改。

原因与3楼帖子不同，请见4楼分析。

欢迎大家指正，或者提供更好的解决方法。

秦关明月

是 啊 ，有 时候一些奇怪的 问题总会出现，让人 不 知所措，谢谢。

gvntw

调出剪贴板，可以直接粘贴。

liangdx

感谢TALLER已经解决得很完美了。不错。多谢！

suntze

其實還有一點就是，如果我的標題行本來就有背景色的話，那就會被去掉~~~~[em06]所以我覺得還不夠完美！！