[已解决]复制粘贴有问题了，咋弄？

fxgg72

如题，见附件。
谢谢各位大侠老师的帮助！！！




在保护工作表下从一表复制粘贴另一表高亮显示中的条件格式会没有了，咋调整？.rar (13.05 KB, 下载次数: 2)

2017-5-2 07:31 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

砂海

2017-5-2 14:26

这样 不需要 提前设置 条件格式 , 事件程序中 自行设定.
======================================

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Row > 1200 Or Target.Column > 14 Then Exit Sub

    On Error Resume Next
    Cells.FormatConditions.Delete
    With Range("A1").Offset(0, Target.Column - 1).Resize(Target.Row, 1).FormatConditions
                                           ' 现在 是丁字形 , 根据需要 把 蓝字 再 +100 , 或者把蓝字 改写为固定值 .
        .Delete
        .Add xlExpression, , "TRUE"
        .Item(1).Interior.ColorIndex = 28
        
    End With
   
    With Range("A1").Offset(Target.Row - 1, 0).Resize(1, 10).FormatConditions
        .Delete
        .Add xlExpression, , "TRUE"
        .Item(1).Interior.ColorIndex = 22
        
    End With
   
End Sub

跳转到最佳答案楼层

砂海

用多了条件格式 , 会卡 ,你 非要 用这么多 条件格式么 ?

===========================
已经用 事件了 , 可以直接 得到 这个区域 , 不用全部单元格都设定 .

另 参见 , "聚光灯" , 本站搜索就可以.

fxgg72

砂海 发表于 2017-5-2 08:31
用多了条件格式 , 会卡 ,你 非要 用这么多 条件格式么 ?

===========================

就是用条件格式+VBA代码实现行+列的高亮显示，也是从本站论坛上的老师处得来的。

fxgg72

砂海 发表于 2017-5-2 08:31
用多了条件格式 , 会卡 ,你 非要 用这么多 条件格式么 ?

===========================

您就根据我的问题，解答一下怎么处理掉这个问题，要不我会糊涂的。
谢谢老师！

砂海

这样 不需要 提前设置 条件格式 , 事件程序中 自行设定.
======================================

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Row > 1200 Or Target.Column > 14 Then Exit Sub

    On Error Resume Next
    Cells.FormatConditions.Delete
    With Range("A1").Offset(0, Target.Column - 1).Resize(Target.Row, 1).FormatConditions
                                           ' 现在 是丁字形 , 根据需要 把 蓝字 再 +100 , 或者把蓝字 改写为固定值 .
        .Delete
        .Add xlExpression, , "TRUE"
        .Item(1).Interior.ColorIndex = 28
        
    End With
   
    With Range("A1").Offset(Target.Row - 1, 0).Resize(1, 10).FormatConditions
        .Delete
        .Add xlExpression, , "TRUE"
        .Item(1).Interior.ColorIndex = 22
        
    End With
   
End Sub