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

  

   

    

     

    
    

     

      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
     
    
   

    

     

    
    

     
 
     
    
  
 

文章来源: blog.csdn.net，作者：AI视觉网奇，版权归原作者所有，如需转载，请联系作者。

原文链接：blog.csdn.net/jacke121/article/details/120599856