持分求教macro

banana4apple

Macro 小白，学校出来再也没用过了，在这里虚心求教.....
一个表格，1列是客户名字，1个客户会有多行。再一列是金额，金额是有不同颜色highlighted以表示不同类别。现需要用macro做一个公式，可以计算出各个客户各种颜色下的和。

下面是我凑的，不对，因为重复计算了。可是完全不懂怎么改。求指正。。


Function Sumifclientcolor(rClient As Range, rClientRange As Range, rColor As Range, rSumRange As Range)

    Dim rCell1 As Range
   
    Dim rCell2 As Range

    Dim lCol As Long

    Dim vResult





    lCol = rColor.Interior.ColorIndex


      
        For Each rCell1 In rSumRange

            If rCell1.Interior.ColorIndex = lCol Then
           
            For Each rCell2 In rClientRange
            If rCell2.Value = rClient Then
            vResult = WorksheetFunction.SUM(rCell1, vResult)


            End If
            Next rCell2
            End If

        Next rCell1


   Sumifclientcolor = vResult

End Function

newSYDer

楼主要按客户和颜色排序先

一条大鱼

在金额后面再加一列，表示金额的类别。然后用Pivot Table就行了。

cangaru

Function SumByColor(CellColor As Range, sumRange As Range)
Dim cSum As Long
Dim ColIndex As Integer
ColIndex = CellColor.Interior.ColorIndex
For Each cl In sumRange
  If cl.Interior.ColorIndex = ColIndex Then
    cSum = WorksheetFunction.Sum(cl, cSum)
  End If
Next cl
SumByColor = cSum
End Function

banana4apple

一条大鱼 发表于 2016-8-10 17:04
在金额后面再加一列，表示金额的类别。然后用Pivot Table就行了。

问题是会有很多列，而且同一行会有不同的颜色，也就是类别会不同。

banana4apple

cangaru 发表于 2016-8-10 17:30
Function SumByColor(CellColor As Range, sumRange As Range)
Dim cSum As Long
Dim ColIndex As Integer

谢谢，我去试试！

一条大鱼

banana4apple 发表于 2016-8-10 17:59
问题是会有很多列，而且同一行会有不同的颜色，也就是类别会不同。

我觉得这个思路不错, give a name to colour then use countif.

http://stackoverflow.com/questio ... the-color-of-a-cell