VBA：引用两个表格的单元格颜色和字体颜色

最新推荐文章于 2024-02-21 14:06:54 发布

King_HEQ

最新推荐文章于 2024-02-21 14:06:54 发布

阅读量1.8k

点赞数

分类专栏： VBA+EXCEL Excel使用技巧

本文链接：https://blog.csdn.net/bosney/article/details/115623198

版权

VBA+EXCEL 同时被 2 个专栏收录

14 篇文章 4 订阅

订阅专栏

Excel使用技巧

5 篇文章 0 订阅

订阅专栏

这篇博客介绍了如何在Excel中通过VBA编写自定义宏，以实现对单元格颜色和字体颜色的匹配。当需要根据颜色进行数据管理，例如红色代表最紧急，黄色为紧急，绿色表示OK时，VLOOKUP函数无法满足需求。作者提供了一个名为Subaa()的宏，该宏遍历指定范围，将“submit2”工作表中颜色信息复制到“submit”工作表对应单元格，从而实现颜色管理功能。

摘要由CSDN通过智能技术生成

我们有的时候需要引用单元格的颜色和字体的颜色。

Vlookup显然是无法满足要求的。

那么我们就自己写一个吧，这个比较简单，但是却比较实用，尤其是公司的数据很多时候是需要使用颜色管理的。

如：最紧急的红色Highlighted，紧急的黄色Highlighted，已经Ok的用Green。

两个表格同一列的相同单元格值（这里假设都是第一列做作类似Vlookup的引用），那么以下模块适用：

Sub aa()


Dim i, j, k As Integer
Dim aRange, Irange As Range

k = Sheets("submit2").Range("A65536").End(xlUp).Row
Set Irange = Sheets("submit2").Range("A2:A" & k)
For i = 2 To Sheets("submit").UsedRange.Rows.Count
    For Each aRange In Irange
    If aRange = Sheets("submit").Cells(i, 1) Then
    Sheets("submit").Cells(i, 1).Interior.Color = aRange.Interior.Color
    Sheets("submit").Cells(i, 1).Font.Color = aRange.Font.Color
    Exit For
    End If
    Next aRange
Next i

End Sub