VBA 颜色

chunyu.wu

已于 2024-07-31 12:43:23 修改

阅读量211

点赞数 3

分类专栏： VBA 文章标签： VBA

于 2024-07-31 12:13:43 首次发布

本文链接：https://blog.csdn.net/wuchunyu002/article/details/140819428

版权

VBA 专栏收录该内容

61 篇文章 3 订阅

订阅专栏

1. ColorIndex

1-1. ColorIndex的值是从1到56。

Option Explicit

Const MAX_COL As Long = 8
Const MAX_ROW As Long = 2
Const START_ROW As Long = 2
Const START_COL As Long = 2

Sub Color()
    Dim i As Integer
    Dim intRow As Long, intCol As Long
    
    Cells.Select
    Selection.ClearContents
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    For i = 1 To 56
        intRow = Int((i / MAX_COL) - 0.0000001)
        intCol = IIf(i Mod MAX_COL = 0, MAX_COL, i Mod MAX_COL) + START_COL - 1
        
        'Color
        Cells((intRow * MAX_ROW) + START_ROW, START_COL).Value = "Color"
        Cells((intRow * MAX_ROW) + START_ROW, intCol).Offset(, 1).Interior.colorIndex = i
        '.ColorIndex
        Cells((intRow * MAX_ROW) + START_ROW, START_COL).Offset(1).Value = "Index"
        Cells((intRow * MAX_ROW) + START_ROW, intCol).Offset(1, 1).Value = i
        
    Next i
    
    Range("A1").Select
    
End Sub

1-2. 运行结果如下

2. QBColor

2-1. QBColor的值是从0到15。

Sub sbQBColor()
    Dim i As Long
    
    Cells.Select
    Selection.ClearContents
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    For i = 0 To 15
        Range("B" & i + 2).Value = i
        Range("C" & i + 2).Interior.Color = VBA.QBColor(i)
    Next i
    
    Range("A1").Select
    
End Sub