摘要： 有时候，我们需要某些颜色对应的十六进制代码，可能是需要设计网站，也可能是需要开发Web应用。 在Excel中，我们可以通过“填充颜色——更多颜色”在单元格中插...
有时候，我们需要某些颜色对应的十六进制代码，可能是需要设计网站，也可能是需要开发Web应用。
在Excel中，我们可以通过“填充颜色——更多颜色”在单元格中插入各种各样的背景色，如下图1所示。
图1
然而，这些自定义的颜色只有GRB值，如果想要其相应的十六进制代码，其实可以使用VBA来获取。如下图2所示，选取带有背景色的单元格区域，运行代码，则会在相应背景色单元格右侧相邻单元格中输入对应颜色的十六进制代码。
图2
代码如下：
‘确定颜色的十六进制代码
Sub ColorHexCode()
‘变量声明
Dim rng As Range
Dim strHexCode As String
‘确保选择了单元格区域
If TypeName(Selection) <>”Range” Then Exit Sub
‘遍历所选区域的每个单元格
excel数据透视表如何创建导航工作表
当工作簿中的工作表不多时，我们只需要单击底部的工作表名到达想要操作的工作表。然而，当有很多工作表时，要找到想要的工作表就需要边单击滚动按钮边查找工作表，这可能要花点时间了。 其实，我们可以创建一个导航工作表，将工作簿中的所有工作表名称都放置到导航工作表中，并设置到工作表的链接，这样，我们只需要单击工作表名称，即可到达
For Each rng In Selection.Cells
‘确保单元格中填充有背景色
If rng.Interior.ColorIndex <>xlNone Then
‘获取十六进制值
strHexCode = Right(“000000″ & Hex(rng.Interior.Color), 6)
‘反转十六进制值
strHexCode = Right(strHexCode, 2)& Mid(strHexCode, 3, 2) & Left(strHexCode, 2)
‘添加#号并将值显示在相邻的右侧单元格
rng.Offset(0, 1).Value =”#” & strHexCode
End If
Next rng
‘只选择活动单元格
ActiveCell.Select
End Sub
上述代码的图片版如下：
如何更早地体验到Excel的最新功能？
最近看到Microsoft新推出的XLOOKUP函数被炒得火热，禁不住好奇心，也想体验一下，但怎么也找不到！虽然我装的是Office 365。怎么办呢？捣鼓了半天，终于搞定，有兴趣的朋友慢慢往下看。 在Office最终推出一项新功能前，会利用“Office预览体验计划”来向公众用户测试，根据用户反馈或收集的数据来进行
