返回列表 上一主題 發帖

[分享] Colorindex的使用列表, 網路搜到, 請參閱.

mmxxxx

帖子
61 
主題
7 
精華
0 
積分
72 
點名
0  
作業系統
win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2014-11-4 
最後登錄
2015-9-16 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-11-10 18:17 | 只看該作者

[分享] Colorindex的使用列表, 網路搜到, 請參閱.

本帖最後由 mmxxxx 於 2014-11-10 18:20 編輯

因工作撰寫SPC圖表, 顏色變化可增加顯示效果.ColorIndex的使用.
如下為網路搜到, 感覺不錯, 分享大家.

Sub colors56()
'57 colors, 0 to 56

Dim i As Long
Dim str0 As String, str As String
Cells(1, 1) = "Interior"
Cells(1, 2) = "Font"
Cells(1, 3) = "HTML"
Cells(1, 4) = "RED"
Cells(1, 5) = "GREEN"
Cells(1, 6) = "BLUE"
Cells(1, 7) = "COLOR"


For i = 0 To 56
    Cells(i + 2, 1).Interior.ColorIndex = i  
    Cells(i + 2, 2).Font.ColorIndex = i
    Cells(i + 2, 2).Value = "[Color " & i & "]"
    str0 = Right("000000" & Hex(Cells(i + 2, 1).Interior.Color), 6)
    'Excel shows nibbles in reverse order so make it as RGB
   str = Right(str0, 2) & Mid(str0, 3, 2) & Left(str0, 2)
    'generating 2 columns in the HTML table
   Cells(i + 2, 3) = "#" & str
    Cells(i + 2, 4).Formula = "=Hex2dec(""" & Right(str0, 2) & """)"
    Cells(i + 2, 5).Formula = "=Hex2dec(""" & Mid(str0, 3, 2) & """)"
    Cells(i + 2, 6).Formula = "=Hex2dec(""" & Left(str0, 2) & """)"
    Cells(i + 2, 7) = "[Color " & i & "]"
Next i
End Sub

收藏 分享

mmxxxx

帖子
61 
主題
7 
精華
0 
積分
72 
點名
0  
作業系統
win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2014-11-4 
最後登錄
2015-9-16 
2#
發表於 2014-11-10 18:28 | 只看該作者
補充:
MS Office 2007以上, 顏色變化更多了.
如下, 可自已玩玩看:
Sub change_palette_color
    dim color_index as long
    color_index = 10
    ActiveWorkbook.Colors(color_index) = RGB(128, 128, 128)
End sub

Sub test_color()
For i = 1 To 256
    Cells(i, 1).Interior.Color = RGB(i, i, i)
Next i
End Sub

Sub test_color()
For i = 1 To 256
    Cells(i, 1).Interior.ThemeColor = xlThemeColorAccent1
    Cells(i, 1).Interior.TintAndShade = (i * 2 - 256) / 256
Next i
End Sub

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題