1. vba单元格填充颜色
选择相应的单元格，CTRL+1，填充，其他颜色，自定义，颜色模式，选择RGB 在下面分别输入RGB（分别为红色绿色蓝色）的值，确定。
这种方法每组值都要重新设置一下。
感觉高手用VBA来做会更简单。
2. excel vba 设置单元格颜色
Sub test()Range("a1:a50").Borders.Color = RGB(1, 224, 123)End Sub这样就好了！
3. vba改变图形填充颜色
试了好久，可以实现但是比较丑。估计VBA可以做得更好些我的方法：右击单元格，填充里设置单元格背景色（比如蓝色）选择条件格式里的实心数据条，根据自己的想法设置成绿色(我设置的是0~100为绿色），下面我贴图的是单元格值是20
4. vba给单元格填充颜色
if 区域内容=A1 thenrange(“H17:N26”).Font.Color = 29range(“H17:N26”).Interior.ColorIndex =6elserange(“H17:N26”).Interior.ColorIndex =xlnoneend if
假如E1是区域内容的单元格 Sub a() If Range("E1") = Range("A1") Then Range("H17:N26").Font.Color = vbMagenta Range("H17:N26").Interior.ColorIndex = 6 Else Range("H17:N26").Interior.ColorIndex = xlNone End If End Sub
我试过可以的，没什么问题，你再试试。
5. vba单元格填充颜色代码
1/8在Excel表格表格的菜单栏上面点击【开发工具】，【Visual Basic】打开VBA编辑器。
2/8在VBA编辑器的菜单栏上面点击【插入】，【模块】。
3/8在代码框里面输入一下代码：
Sub MatchIput()
Dim i, j, m, k As Long '数据类型定义
Dim msg, style, title, ans
On Error Resume Next '如果运行过程中出错，则忽略
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表
Set mysheet2 = ThisWorkbook.Worksheets("Sheet2") '定义工作表
msg = "该用户信息已经存在，是否替换？"
style = vbYesNoCancel + vbDefaultButton3 '显示 “是” “否” “取消”三个按钮
title = "温馨提示"
m = Application.WorksheetFunction.Match(mysheet1.Cells(2, 2), mysheet2.Range("A1:A1000"), 0)
'计算单元格所在的位置
If m >= 1 Then '如果数据表里面已经存在，则弹出提示窗口，然后进行选择
ans = MsgBox(msg, style, title) '弹出提示
If ans = vbYes Then '如果选择“是”，则原来表格里面的数据将会被替换
For j = 1 To 4 '填充该单元格所在位置的1-4列
mysheet2.Cells(m, j) = mysheet1.Cells(j + 1, 2)
Next
End If
If ans = vbNo Then '如果选择“否”，则在原来表格里面找到空白的单元格写入
For k = 2 To 1000
If mysheet2.Cells(k, 1) = "" Then
For j = 1 To 4
mysheet2.Cells(k, j) = mysheet1.Cells(j + 1, 2)
Next
Exit For
End If
Next
End If
Else '如果不存在，则在原来数据表格里面找到一行空白进行填充
For k = 2 To 1000
If mysheet2.Cells(k, 1) = "" Then
For j = 1 To 4
mysheet2.Cells(k, j) = mysheet1.Cells(j + 1, 2)
Next
Exit For
End If
Next
End If
End Sub
4/8回到Sheet1工作表界面，点击菜单栏上面的【插入】，在形状里面选择“矩形”插入到表格上面，然后填充所需的颜色、文字。
5/8在已经绘制后的矩形图上面单击右键，选择“指定宏”。
6/8在“指定宏”对话框里面选择已经编写的VBA名称，如：MatchIput。
7/8在要录入信息的区域录入信息，然后点击“录入”即可录入信息。
8/8如果录入的信息（姓名）在原来的表格在原来表格里面已经存在，则会弹出提示信息，之后进行选择。
如果选择“是”则执行替换原来的信息；如果选择“否”，则会新增一行信息；如果选择“取消”，则不会录入信息。
6. vba单元格填充颜色的对应代码
我这是自动找到最后一行的，符合你的要求，请试试。
Private Sub CommandButton1_Click()Dim row_last As IntegerDim temp1 As IntegerSelection.SpecialCells(xlCellTypeLastCell).Selectflag = FalseDo While flag = False If ActiveCell.Row = 1 Then Exit Do End If Selection.End(xlToLeft).Select temp1 = IsEmpty(ActiveCell.Value) Selection.End(xlToRight).Select temp2 = IsEmpty(ActiveCell.Value) If temp1 = True And temp2 = True Then Selection.Offset(-1, 0).Select Else flag = True Exit Do End IfLoopSelection.End(xlToLeft).Selectrow_last = ActiveCell.RowRange(Cells(1, 1), Cells(row_last, 1)).Select Selection.PrintOut Copies:=1End Sub
7. vba给单元格填充颜色数值
一、查找法
首先我们要选择想要统计的数据区域，然后按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
这两个函数的参数都是一样的
第一参数：统计颜色的单元格
第二参数：要统计的数据区域
使用方法如下动图
8. excel vba 填充颜色
这个可以，在查找替换里解决，但一次只能处理一个颜色
07版可以查找单元格的格式，如填充为蓝色，替换成文字“张三”+格式“蓝色”
其他的逐一处理
如果想自动填充，只能VBA
- 相关评论
- 我要评论
-
