选择区域求和的问题

cgx5871

G列=PRODUCT(C4:F4)
需求:
鼠标框选区域,    区域部分,  行相乘, 列相加.
比如:  框选C5:F7
逐行, C5xD5xE5xF5
得出G5:G7的累加之和.

目的:  实时显示出Target的行乘积,  列之和添加筛选后,  可见单元格计算.

看见星光

示例中SUMPRODUCT计算的是求和，不是乘积。

zhangzhang

=SUMPRODUCT(C5:C7,D5:D7,E5:E7,F5:F7)

cgx5871

看见星光 发表于 2018-7-18 11:17
示例中SUMPRODUCT计算的是求和，不是乘积。

谢谢提醒. 已修改

cgx5871

zhangzhang 发表于 2018-7-18 11:22
=SUMPRODUCT(C5:C7,D5:D7,E5:E7,F5:F7)

我要VBA   公式我懂VBA要怎么从Traget取出C5:C7,D5:D7,E5:E7,F5:F7

zhangzhang

cgx5871 发表于 2018-7-18 11:24
我要VBA   公式我懂VBA要怎么从Traget取出C5:C7,D5:D7,E5:E7,F5:F7

自定义函数
Public Function MySum(Rng As Range) As Double
Dim Arr
Dim Tmp As Double
Dim i As Long, j As Long

Arr = Rng

For i = 1 To UBound(Arr)
    Tmp = 1
    For j = 1 To UBound(Arr, 2)
        Tmp = Tmp * Arr(i, j)
    Next j
    MySum = MySum + Tmp
Next i


End Function

cgx5871

zhangzhang 发表于 2018-7-18 12:23
自定义函数
Public Function MySum(Rng As Range) As Double
Dim Arr

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Dim rng As Range
   
3.     Application.EnableEvents = False
   
4.     Set rng = Target.SpecialCells(xlCellTypeVisible)
   
5.     Application.EnableEvents = True
   
6.     Call MySum(rng)
   
7. End Sub
   

复制代码

1. Public Function MySum(rng As Range) As Double
   
2.     Dim Arr
   
3.     Dim Tmp As Double
   
4.     Dim i As Long, j As Long
   
5.     Arr = rng
   
6.    
   
7.     For i = 1 To UBound(Arr)
   
8.         Tmp = 1
   
9.         For j = 1 To UBound(Arr, 2)
   
10.             Tmp = Tmp * Arr(i, j)
    
11.         Next j
    
12.         MySum = MySum + Tmp
    
13.     Next i
    
14. End Function

复制代码

测试了一下,  会出错.
增加一项,  筛选后的可见单元格计算.
附件已重新上传,  求帮助.==========

如果用Area, 分别取出,  再用SumProduct计算, 会不会更方便一点?

zhangzhang

cgx5871 发表于 2018-7-18 12:37
测试了一下,  会出错.
增加一项,  筛选后的可见单元格计算.
附件已重新上传,  求帮助.======== ...

选择的范围必须是数值，不能有文本。