Kevin

虫虫的痕迹!!!
随笔 - 47, 文章 - 0, 评论 - 9, 阅读 - 11万
  首页  :: 新随笔  :: 订阅 订阅  :: 管理
< 2025年1月 >
29 30 31 1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31 1
2 3 4 5 6 7 8

代码如下(添加到对应sheet中!):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim i As Long
    i = 1
    Do Until Range("A" & i).Value = ""
        '情况一   START   当前单元格的上面一个单元格中的数据在列A中是否有相同的——(单元格失去焦点时自动检测,因为默认敲回车时焦点会移到下面一个单元格)
        'If Split(ActiveCell.Address, "$")(2) = 1 Then Exit Sub
        'If Range(Split(ActiveCell.Address, "$")(1) & (Split(ActiveCell.Address, "$")(2)) - 1).Value = Range("A" & i).Value And ActiveCell.Column <> 1 Then
        '    Range("A" & i).Interior.Color = RGB(200, 160, 35)
        '    Range(Split(ActiveCell.Address, "$")(1) & (Split(ActiveCell.Address, "$")(2)) - 1).Interior.Color = vbRed
        'End If
        '情况一   END
        '情况二   START   当前选中的单元格中的数据在列A中是否有相同的
        If ActiveCell.Value = Range("A" & i).Value And ActiveCell.Column <> 1 Then
            Range("A" & i).Interior.Color = RGB(200, 160, 35)
            ActiveCell.Interior.Color = vbRed
        End If
        '情况二   END
        i = i + 1
    Loop
End Sub

编辑推荐:
· 现代计算机视觉入门之:什么是图片特征编码
· .NET 9 new features-C#13新的锁类型和语义
· Linux系统下SQL Server数据库镜像配置全流程详解
· 现代计算机视觉入门之:什么是视频
· 你所不知道的 C/C++ 宏知识
阅读排行:
· 不到万不得已,千万不要去外包
· C# WebAPI 插件热插拔(持续更新中)
· 会议真的有必要吗?我们产品开发9年了,但从来没开过会
· 【译】我们最喜欢的2024年的 Visual Studio 新功能
· 如何打造一个高并发系统?
点击右上角即可分享
微信分享提示