Excel VBA Interior.ColorIndex 色彩列表

(转载 原文地址 ：http://blog.csdn.net/dkman803/archive/2007/11/27/1904194.aspx)
使用如下VBA代码取得相应的单元格底色

 

Sub a()
    Range("A1").Select

    For i = 0 To 56 Step 1
        ActiveCell.Interior.ColorIndex = i
        ActiveCell.Offset(0, 1).Value2 = i
        If i Mod 19 = 18 And i <> 0 Then
            ActiveCell.Offset(-18, 2).Select
        Else
            ActiveCell.Offset(1, 0).Select
        End If
    Next
    
End Sub

 

 

结果如下

无色 0 　 19 　 38
　 1 　 20 　 39
白色 2 　 21 　 40
　 3 　 22 　 41
　 4 　 23 　 42
　 5 　 24 　 43
　 6 　 25 　 44
　 7 　 26 　 45
　 8 　 27 　 46
　 9 　 28 　 47
　 10 　 29 　 48
　 11 　 30 　 49
　 12 　 31 　 50
　 13 　 32 　 51
　 14 　 33 　 52
　 15 　 34 　 53
　 16 　 35 　 54
　 17 　 36 　 55
　 18 　 37 　 56

posted @ 2008-05-12 17:02 笑看苍天 阅读(226) 评论(0)  编辑 收藏 网摘 所属分类: Execl

标题  
姓名  
主页
Email (博主才能看到) 
验证码 *  看不清,换一张 [登录][注册]
内容(请不要发表任何与政治相关的内容)  
网站首页

新闻频道

社区

小组

博问

网摘

人才

找找看
  登录  使用高级评论  新用户注册  返回页首  恢复上次提交      
该文被作者在 2008-05-28 16:41 编辑过
Google站内搜索

相关文章:

相关链接:



最新IT新闻:
后“开放”平台时代
李彦宏首次表态竞价排名问题:有错能改善莫大焉
杨致远发表博客解释辞职原因
微软公布免费安全软件计划
《时代》：杨致远被Google玩弄于股掌之间？