1. vba改变图形填充颜色

查找里就可以设置单元格格式；vba定位更方便:可以使用for语句循环，然后根据单元格格式处理，比如：dim c as rangefor each c in selection If c.Interior.Color = vbYellow Then ‘这里是填充颜色。。。。

End Ifnext

2. vb设置excel单元格颜色

shift＋空格键，全角切换成半角

3. vba 无填充颜色的color值

一、查找法

首先我们要选择想要统计的数据区域，然后按Ctrl+F调出查找的窗口，然后点击选项，点击格式选择从单元格选取格式，鼠标就会变成一个小吸管的样子，我们直接吸取想要统计颜色的单元格，然后点击全部查找，紧接着按Ctrl+a选择查找到的全部数据，在工作表右下角的状态栏就会显示该颜色的个数及求和

二、宏表函数法

有可能会问到宏表函数是什么，宏表函数可以说是vba的前身，但是随着vba的出现，宏表函数已经被逐渐的取代，但是现在仍然可以使用，只不过只能通过定义名称来使用

在这里我们需要用到的宏表函数是GET.CELL，他的参数一共有两个

第一参数：type_num，单元格中的信息，会根据输入的代码返回不同的单元的信息

第二参数： Reference，单元格范围

我们想要获取单元格的单色信息，就需要将GET.CELL函数的第一参数设置为63.因为代码63返回的是单元色的颜色信息

宏表函数的使用必须先对其定义名称，首选我们点击公式，点击定义名称，将名称设置为颜色，然后输入公式=GET.CELL(63,Sheet1!B2)，在这里Sheet1是表格的名称，B2是统计区域的第一个单元格，设置完后点击确定

然后我们直接输入等于颜色，然后向下填充数据，就会根据不同的颜色返回不同的结果，黄色的结果为6.绿色的结果为10

最后我们使用sumif函数和countif函数进行求与计数即可

求和公式：=SUMIF(C2:C18,6,B2:B18)

计数公式：=COUNTIF(C2:C18,6)

三、使用vba自定义函数

1.根据颜色求和代码

Function SumColor(col As Range, sumrange As Range) As Long

Dim icell As Range

Application.Volatile

For Each icell In sumrange

If icell.Interior.ColorIndex = col.Interior.ColorIndex Then

SumColor = Application.Sum(icell) + SumColor

End If

Next icell

End Function

2.根据颜色计数代码

Function CountColor(ary1 As Range, ary2 As Range)

Application.Volatile

For Each i In ary2

If i.Interior.ColorIndex = ary1.Interior.ColorIndex Then

CountColor = CountColor + 1

End If

Next

End Function

想要使用这两个代码，我们就必须先将其粘贴进vba中，首先我们点击开发工具，选择visual basic，进入vba的编辑界面，然后点击插入，选择模块，将代码粘贴进去即可

在这里我们自定了了两个函数,根据颜色求和的函数名称是SumColor，根据颜色计数的函数名称是CountColor

这两个函数的参数都是一样的

第一参数：统计颜色的单元格

第二参数：要统计的数据区域

使用方法如下动图

4. vba给单元格填充颜色

1.A列填充了几种颜色，用VBA将其全部改为无颜色填充。

2.Alt+F11，输入代码。

3.F5执行代码。

5. vb填充样式怎么设置

可以利用VBA实现选择单元格后底色变化。软件版本：office2007方法如下：

1.Alt+F11，打开VBE界面，输入如下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range) '单元格选择变化时触发事件Cells.Interior.ColorIndex = xlNone '将所有单元格填充颜色设置为无色Target.Interior.Color = vbRed '将当前选中的单元格底色填充为红色End Sub2.返回Excel，选择任意单元格都会变成红色：

6. excel vba 填充颜色

举个简单的例子 Sub 填充A1单元格所在行为红色() Dim r r = Range("A1").Row Rows(r).Interior.ColorIndex = 3 End Sub 已上传附件，点击按钮即可验证

7. vba填充

比如数据在A列加一辅助列输入公式 =A1*1 下拉填充公式, 复制这一列结果,选中A列---右键---选择性粘贴--值,删去辅助列. 或在一单元格输入一个1,复制这个1, 选定文本数值区域,右键---选择性粘贴---乘,删去单元格里的1前面有撇号的用辅助列输入公式 =RIGHT(A1,LEN(A1)-1)*1 下拉填充公式, 复制这一列结果,选中A列---右键---选择性粘贴--值,删去辅助列.