注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

信息 灵感 创新

I? =Information,Inspiration,Innovation

 
 
 

日志

 
 
关于我

we are 5. Mathematics, Computation, Programming, Engineering, and Making fun of life.

网易考拉推荐

用VBA显示C#预定义颜色  

2013-09-13 14:57:30|  分类: Office |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

最近想看看C#里面的预定义颜色都是啥样子,虽然对于这个枚举的RGB值我都知道,但是想象不出来具体的颜色,就做了个VBA的程序,让EXCEL自动完成,效果还不错:

Sub FillColors()
   Dim ws As Worksheet
   Dim rg As Range
   Dim s As String
   Dim r, g, b As String
   
   Set ws = ThisWorkbook.Worksheets(1)
   For i = 2 To 141 Step 1
       Set rg = ws.Cells(i, 2)
       s = rg.Text
       r = Mid(s, 2, 2)
       g = Mid(s, 4, 2)
       b = Mid(s, 6, 2)
       Set rg = ws.Cells(i, 3)
       rg.Interior.Color = RGB(HexToDec(r), HexToDec(g), HexToDec(b))
   Next
   Set rg = Nothing
   Set ws = Nothing
   
End Sub

Private Function HexToDec(ByVal strHex As String) As Long
   On Error GoTo ErrorHandle
   Dim Tmp As Long
   Dim s As String
   s = "&H" & strHex
   Tmp = Val(s)
   HexToDec = Tmp
   Exit Function
ErrorHandle:
       HexToDec = -1
End Function

这个是效果图:

2013年09月13日 - Lemniscate - 信息,灵感,创新

 看起来还蛮有意思的,大家没事可以测试一下打印机的效果,黑白打印机自觉绕行。

做好的PDF文档下载地址,来自百度网盘:http://pan.baidu.com/share/link?shareid=2795727553&uk=2281996888
  评论这张
 
阅读(411)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2016