2个回答
展开全部
对所有 非白 填充颜色单元格求和：
Function mySum(Area As Range)
Dim i&
With Area
For i = 1 To .Count
If .Cells(i).Interior.Color <> &HFFFFFF And IsNumeric(.Cells(i)) Then _
mySum = mySum + .Cells(i)
Next i
End With
End Function
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
AiPPT
2024-09-06 广告
随着AI技术的飞速发展，如今市面上涌现了许多实用易操作的AI生成工具1、简介：AiPPT: 这款AI工具智能理解用户输入的主题，提供“AI智能生成”和“导入本地大纲”的选项，生成的PPT内容丰富多样，可自由编辑和添加元素，图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
展开全部
你只要选择单元格区域，它会给你统计出来。
Sub 颜色单元格求和()
Dim rg As Range
Dim r0, c0 As Long '初始行列
Dim rc, cc As Long '区域数行列数统计
Dim r, c As Long '行列数循环
Dim s As Integer
DoEvents
Set rg = Application.InputBox("请用鼠标选择数据单元格或者键入单元格地址", "提示", Type:=8)
rg.Select
rc = Selection.Rows.Count
cc = Selection.Columns.Count
r0 = Selection.Row
c0 = Selection.Column
For r = r0 To r0 + rc - 1
For c = c0 To c0 + cc - 1
If Cells(r, c).Interior.ColorIndex <> -4142 Then
s = s + Cells(r, c)
End If
Next c
Next r
MsgBox "你选择的区域有背景颜色的单元格的和为： " & s, vbInformation
End Sub
Sub 颜色单元格求和()
Dim rg As Range
Dim r0, c0 As Long '初始行列
Dim rc, cc As Long '区域数行列数统计
Dim r, c As Long '行列数循环
Dim s As Integer
DoEvents
Set rg = Application.InputBox("请用鼠标选择数据单元格或者键入单元格地址", "提示", Type:=8)
rg.Select
rc = Selection.Rows.Count
cc = Selection.Columns.Count
r0 = Selection.Row
c0 = Selection.Column
For r = r0 To r0 + rc - 1
For c = c0 To c0 + cc - 1
If Cells(r, c).Interior.ColorIndex <> -4142 Then
s = s + Cells(r, c)
End If
Next c
Next r
MsgBox "你选择的区域有背景颜色的单元格的和为： " & s, vbInformation
End Sub
更多追问追答
追问
非常感谢你的帮助，可是这个编程我应该怎么运用到表格里？
追答
你只要把程序复制到宏编辑器里面然后运行下就可以了。步骤看附件。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
