vba根据rgb值显示单元格颜色

最新推荐文章于 2024-12-23 14:53:01 发布

AI算法网奇

最新推荐文章于 2024-12-23 14:53:01 发布

阅读量3.9k

点赞数

分类专栏： win/ubuntu

本文链接：https://blog.csdn.net/jacke121/article/details/120599856

版权

VBA Excel 日期解析 RGB颜色单元格颜色标记

关键词由CSDN通过智能技术生成

win/ubuntu 专栏收录该内容

237 篇文章

订阅专栏

这段代码展示了如何使用VBA在Excel中根据日期字符串（格式如'YYYY-MM-DD'）为单元格填充对应颜色，通过Split函数解析日期并应用RGB颜色。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sub 宏1()


  Dim M  As String
  Dim arrResult() As String


  For i = 1 To 365
  
  M = Cells(i, 1)
  arrResult = VBA.Split(M, "-")
  Cells(i, 2).Interior.Color = RGB(CInt(arrResult(0)), CInt(arrResult(1)), CInt(arrResult(2)))

    
    'For i = LBound(arrResult) To UBound(arrResult)
     '   Debug.Print Trim(arrResult(i))

  
 ' Cells(i, 1).Interior.ColorIndex = i
  Next i

    
  
End Sub