Question

已知RGB，有没有快速在word或者excel的某个格里快速填充该颜色的方法？

最近要做个小任务，有很多RGB数据，需要在格子里填充上对应的颜色，如果用那个填充的工具一个一个设太慢了，有没有根据RGB的值可以直接填充的操作或者函数之类。
如果方法确实有用，我会再补分的~
非常感谢大家~

Answer 1

以Excel 2010为例，解决方案如下：

一、编写如下VBA代码：
Sub 填充颜色()
Dim R As Integer, G As Integer, B As Integer
R = InputBox("请输入R值：", "输入颜色", 0)
G = InputBox("请输入G值：", "输入颜色", 0)
B = InputBox("请输入B值：", "输入颜色", 0)

With Selection.Interior
.Color = RGB(R, G, B)
End With
End Sub

二、打开“Excel 选项”对话框，在“自定义快速访问工具栏”选项卡右侧的“从下列位置选择命令”下拉列表框中选择“宏”选项，在下方列表框中选择“填充颜色”选项，点“添加”按钮将其加入到快速访问工具栏中。

三、选择要设置颜色的单元格，在快速访问工具栏中点添加的按钮，然后依次输入你的RGB值并按回车，输入完成就完成了。

如果有用，请加点分再采纳，谢谢。

追问

那个编写的代码要怎么用呢？我对VBA完全不懂。“宏”选项的下方列表里面没有“填充颜色”这个选项，是不是就是这个代码没有和Excel关联呢？谢谢哈~麻烦了……

追答

宏里面没有选项，是因为你没还创建这个代码。

以上代码复制后粘贴到记事本中（为了清除网页复制时带的格式），然后再从记事本中复制，在Excel中按【Alt+F11】键，双击左侧的“ThisWorkbook”选项，然后在右侧粘贴代码。

代码粘贴后再去Excel 选项中设置，“宏”选项下就会有个 ThisWorkbook 填充颜色 选项

追问

嗯，这样果然可以了。非常感谢~能再麻烦问一下有没有可能在一个单元格里面调函数比如=color(R,G,B)，把RBG弄成单元格地址，这样才可以利用函数复制的功能，大批量的做。因为我的数据特别的多，如果这样一点一点的输，工作量还是特别大。真是麻烦您了……无论如何，我会多补点分的=v=

追答

呃，这个功能好像Excel没有哦

单元格里面只能使用公式（公式中可以包含函数），但是单元格中的公式只能返回单元格的值，没办法设置单元格的格式

Answer 2

最好用VBA来解决吧

Answer 3

Answer 4

弄一小段VBA就可以了，VBA的使用方法在网上找点资料看看。

Answer 5

当然有函数了，网上很多的。搜一下啦，自己动手毕竟来的真是牢固一些。