设值单元格字体和背景色的颜色-实例

最新推荐文章于 2024-07-19 17:45:34 发布

bluelilyabc

最新推荐文章于 2024-07-19 17:45:34 发布

阅读量649

点赞数

分类专栏： VBA笔记笔记文章标签： p2p linq wpf

本文链接：https://blog.csdn.net/bluelilyabc/article/details/122084353

版权

笔记同时被 2 个专栏收录

6 篇文章 0 订阅

订阅专栏

VBA笔记

2 篇文章 0 订阅

订阅专栏

Sub main()
   Dim i,n As Integer
   Dim d, e As String
   Dim c As String 
   For i = 1 To 10
     'get cell's value in 输入sheet. 
       d = Trim(Range("D" & i).Value)
       e = Trim(Range("E" & i).Value)
     'set cell'value
        For n = 5 To 20000 
         c = Trim(Sheets("更新sheet").Range("C" & n).Value)
        'd is 输入key's value
         If c <> "" And c = d Then 
           Sheets("更新sheet").Range("D" & n).Value = e 
           Sheets("更新sheet").Range("D" & n).Interior.ColorIndex = 3  'set color to red
           Sheets("更新sheet").Range("D" & n).Font.ColorIndex = 2     'set fond to white   
         End If 
       Next
   Next
End Sub

Sheets("更新sheet").Range("D" & n).Value

这里的"D" & n是一个动态的cell,即为更新sheet的单元格值.

cells.Interior.ColorIndex = 3 '设值cell的背景色；

cells(1,1).Interior.Color = RGB(0,255,0) '设置为绿色

cells.Font.ColorIndex = 2 '设值cell的字体颜色；

cells(1,1).Font.Color = RGB(0,0,255) '设置为绿色