excel表内对按单元格颜色内的数值自动求和

发布网友发布时间：2022-04-23 08:58

共4个回答

热心网友时间：2022-06-18 17:36

用下面的代码，检测到C3至Z93任何一个单元格发生数据更新，就会自动对该列进行计算，

结果显示在同一列的94行单元格里。

Private Sub Worksheet_Change(ByVal Target As Range)
    x = Target.Row 'x是有数据更新的单元格的行序号
    y = Target.Column 'y是有数据更新的单元格的列序号
    If x >= 3 And x <= 93 And y >= 3 And y <= 26 Then '如果x是第3至93行，y是第3至26列，那么
        Dim i As Integer
        s = 0 '变量s初始化
        For i = 3 To 93 '遍历3至93
            If Cells(i, y).Interior.ColorIndex <> xlNone Then '如果y列i行单元格颜色不等于无色
                s = s + Cells(i, y) '，那么把该单元格的数值累加给s
            End If
        Next '返回进入下一次For循环
        Cells(94, y) = s '最后给y列94行单元格输出结果：等于s
    End If
End Sub

热心网友时间：2022-06-18 17:37

Excel公式做不到，需要用到VBA。

热心网友时间：2022-06-18 17:37

求和颜色单元格的内容

热心网友时间：2022-06-18 17:38

写代码可以实现呢