请教：在那里能找到RGB(0,0,0)代码对应的颜色？

phyphy

请教：在那里能找到RGB( )代码对应的颜色？例如：RGB(255,0,0)代表红色；RGB(0,0,0)代表黑色。其它颜色呢？

taller

以下是引用phyphy在2004-7-4 8:53:00的发言： 请教：在那里能找到RGB( )代码对应的颜色？例如：RGB(255,0,0)代表红色；RGB(0,0,0)代表黑色。其它颜色呢？

ovxyz

你可以打开一个幻灯片。

让后在背景颜色里面可以看到每个颜色的rpg。

taller

To Emily:

你给的链接我这里打不开.

关于回复,我有同样的问题,我每次开很多个帖子,看完了再回复时,有些帖子就会回复失败,需要重新刷新页面,不知道是不是和升级后的验证码有关系,短信也存在这个问题,如果回复短信的页面打开一段比较长的时间再回复,就会失败,重新刷新时,验证码已经变了,我去问问Kevin

taller

谢谢

jack.zhou

为你提供全面的采集颜色信息http://www3.skycn.com/soft/15026.html

Emily

.

Sub colors56()
'57 colors, 0 to 56
  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual   'pre XL97 xlManual
Dim i As Long
Dim str0 As String, str As String
For i = 0 To 56
  Cells(i + 1, 1).Interior.ColorIndex = i
  Cells(i + 1, 1).Value = "[Color " & i & "]"
  Cells(i + 1, 2).Font.ColorIndex = i
  Cells(i + 1, 2).Value = "[Color " & i & "]"
  str0 = Right("000000" & Hex(Cells(i + 1, 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 + 1, 3) = "#" & str & "#" & str & ""
  Cells(i + 1, 4).Formula = "=Hex2dec(""" & Right(str0, 2) & """)"
  Cells(i + 1, 5).Formula = "=Hex2dec(""" & Mid(str0, 3, 2) & """)"
  Cells(i + 1, 6).Formula = "=Hex2dec(""" & Left(str0, 2) & """)"
  Cells(i + 1, 7) = "[Color " & i & ")"
Next i
done:
  Application.Calculation = xlCalculationAutomatic  'pre XL97 xlAutomatic
  Application.ScreenUpdating = True
End Sub

.

jQwJO2wq.zip (21.69 KB, 下载次数: 59)

2004-7-4 10:40 上传

点击文件名下载附件

[此贴子已经被作者于2004-7-4 10:38:01编辑过]

Emily

以下是引用phyphy在2004-7-4 8:53:00的发言： 请教：在那里能找到RGB( )代码对应的颜色？例如：RGB(255,0,0)代表红色；RGB(0,0,0)代表黑色。其它颜色呢？

http://www.geocities.com/davemcritchie/excel/colors.htm

連結內有 56 個 Excel 顏色的 RGB

ps 這論壇的回覆有問題，第一次很多時都不成功

[em06]

[此贴子已经被作者于2004-7-4 9:47:43编辑过]

shuiyuan

在VBA帮助里可以找到部分，见下面数据

颜色		红色值		绿色值		兰色值
黑色	0		0		0
兰色	0		0		255
绿色	0		255		0
青色	0		255		255
红色	255		0		0
洋红色	255		0		255
黄色	255		255		0
白色	255		255		255