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

蓝天堂

Venchia's Blog

 
 
 

日志

 
 

excel的颜色值  

2007-03-20 02:21:52|  分类: 天堂武馆 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

以前只知道怎么取得excel的背景颜色值,以为字体颜色也很容易呢

哪想到用了才知道麻烦

背景只需要定义好某单元格的名称,比如AA=GET.CELL(63,Sheet1!A1)

这样就能取得A1的背景颜色地址了,用的是相对地址

在需要的地方输入公式=AA,就能得到颜色值了

字体也是看了下面这篇文章才知道的


这个自定义函数就是得到颜色编号的函数。可分别得到字体颜色编号和底色编号。

Function ColorIndexOfCell(Rng As Range, _
    Optional OfText As Boolean, _
    Optional DefaultAsIndex As Boolean = True) As Integer

Dim C As Long
If OfText = True Then
    C = Rng.Font.ColorIndex
Else
    C = Rng.Interior.ColorIndex
End If

If (C < 0) And (DefaultAsIndex = True) Then
    If OfText = True Then
        C = GetBlack(Rng.Worksheet.Parent)
    Else
        C = GetWhite(Rng.Worksheet.Parent)
    End If
End If

ColorIndexOfCell = C

End Function


Function GetWhite(WB As Workbook) As Long
    Dim Ndx As Long
    For Ndx = 1 To 56
        If WB.Colors(Ndx) = &HFFFFFF Then
            GetWhite = Ndx
            Exit Function
        End If
    Next Ndx
    GetWhite = 0
End Function

Function GetBlack(WB As Workbook) As Long
    Dim Ndx As Long
    For Ndx = 1 To 56
        If WB.Colors(Ndx) = 0& Then
            GetBlack = Ndx
            Exit Function
        End If
    Next Ndx
    GetBlack = 0
End Function


函数用法(假设有颜色的单元格是A1)

(1)单元格底色

=ColorIndexOfCell(A1,FALSE,TRUE)

(2) 单元个字体颜色

=ColorIndexOfCell(A1,TRUE,TRUE)

其他单元格的颜色编号Copy以下公式即可。

  评论这张
 
阅读(1905)| 评论(0)
推荐 转载

历史上的今天

评论

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

页脚

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