选取任意几个数相乘后再相加，其中有0，如何编函数啊，举例，1，2，1，3，0，4选每三

★此时相逢★ · 发表于 2012-11-2 21:00

选取任意几个数相乘后再相加，其中有0，如何编函数啊，举例，1，2，1，3，0，4六个数选每三个相乘后再相加，如1*2*1+1*2*3.................+3*0*4
如果要是在15个数中选三个，公式是一样的吗？各位高手求助啊，急急急！！！看附件

新建 Microsoft Excel 工作表.rar (273 Bytes, 下载次数: 23)

→友の良杰← · 发表于 2012-11-3 13:27

不明白你要什么效果……

★此时相逢★ · 发表于 2012-11-3 17:47

→友の良杰← 发表于 2012-11-3 13:27
不明白你要什么效果……

新建 Microsoft Excel 工作表.rar (310 Bytes, 下载次数: 15)
感谢回复，我再说明一下啊，发个附件

→友の良杰← · 发表于 2012-11-4 01:07

★此时相逢★ 发表于 2012-11-3 17:47
感谢回复，我再说明一下啊，发个附件

3个数相乘后再相加，需要加几次？3个数是在这些数中随机取吗？还是需要一定的规律？

→友の良杰← · 发表于 2012-11-4 02:46

是这样的效果吗？

→友の良杰← · 发表于 2012-11-4 02:48

本帖最后由 →友の良杰← 于 2012-11-4 14:26 编辑

代码如下：
[code=vb]
Private Sub CommandButton1_Click()
Dim i, j, k, ir, sum, arr() As Integer
Dim Str As String
Dim r, rg As Range
Set rg = Application.InputBox("请选择一个区域", "选择区域", Type:=8)
ReDim arr(rg.Count) As Integer
ir = 0
'判断数据有效性，并初始化数组
For Each r In rg
      If IsNumeric(r.Value) = False Then
         MsgBox ("你的选择有误，请确认选择都为数字！")
         Exit Sub
      End If
      arr(ir) = Val(r.Value)
      ir = ir + 1
Next
'调试数据
'Debug.Print (UBound(arr))
'计算表达式sum = sum + arr(i) * arr(k) * arr(j)
For i = 0 To UBound(arr) - 1
      For j = i + 1 To UBound(arr) - 1
         For k = i + 2 To UBound(arr) - 1
            Str = Str & arr(i) & "*" & arr(j) & "*" & arr(k) & "+"
            sum = sum + arr(i) * arr(k) * arr(j)
            '在立即窗口输出数据
            Debug.Print ("i=" & i & "[" & arr(i) & "],j=" & j & "[" & arr(j) & "],k=" & k & "[" & arr(k) & "],sum=" & sum)
         Next
         i = i + 1
      Next
      i = i + 1
Next
Str = Left(Str, Len(Str) - 1)
MsgBox Str & "=" & sum
End Sub
[/code]

→友の良杰← · 发表于 2012-11-4 02:51

附上源文件

数组计算.rar (12.77 KB, 下载次数: 23)

→友の良杰← · 发表于 2012-11-4 13:29

本帖最后由 →友の良杰← 于 2012-11-4 13:30 编辑

→友の良杰← 发表于 2012-11-4 02:48
代码如下：

[code=vb]Str = Str & arr(i) & "*" & arr(k) & "*" & arr(j) & "+"[/code]

代码中这句话，K和J写反了，正确的如下

[code=vb]
Str = Str & arr(i) & "*" & arr(j) & "*" & arr(k) & "+"
[/code]

★此时相逢★ · 发表于 2012-11-4 23:49

→友の良杰← 发表于 2012-11-4 02:51
附上源文件

兄弟感谢您的回答，您给我的好像有点小问题，我在给您发一个附件，你看看，在帮我写一下，我对宏基本上不懂，告诉我在excle里怎么用这个，谢谢

新建 Microsoft Excel 工作表 (2).rar (5.32 KB, 下载次数: 10)

→友の良杰← · 发表于 2012-11-5 00:33

数组计算.rar (11.86 KB, 下载次数: 28)

[code=vb]
Private Sub CommandButton1_Click()
Dim i, j, k, ir  As Integer
Dim sum, arr() As Double
Dim Str As String
Dim r, rg As Range
Set rg = Application.InputBox("请选择一个区域", "选择区域", Type:=8)
ReDim arr(rg.Count) As Double
ir = 0
'判断数据有效性，并初始化数组
For Each r In rg
      If IsNumeric(r.Value) = False Then
         MsgBox ("你的选择有误，请确认选择都为数字！")
         Exit Sub
      End If
      arr(ir) = Val(r.Value)
      ir = ir + 1
Next
'调试数据
'Debug.Print (UBound(arr))
'计算表达式sum = sum + arr(i) * arr(k) * arr(j)
For i = 0 To UBound(arr) - 1
      For j = i + 1 To UBound(arr) - 1
         For k = i + 2 To UBound(arr) - 1
            Str = Str & arr(i) & "*" & arr(j) & "*" & arr(k) & "+"
            sum = sum + arr(i) * arr(k) * arr(j)
            '在立即窗口输出数据
            Debug.Print ("i=" & i & "[" & arr(i) & "],j=" & j & "[" & arr(j) & "],k=" & k & "[" & arr(k) & "],sum=" & sum)
         Next
         i = i + 1
      Next
      i = i + 1
Next
Str = Left(Str, Len(Str) - 1)
MsgBox Str & "=" & sum
End Sub
[/code]

		自动登录	找回密码
密码			免费注册