[求助]几个单元格求和！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]几个单元格求和！

共有7112人关注过本帖树形打印复制链接主题：[求助]几个单元格求和！

sadfox

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：292 积分：1864 威望：0 精华：0 注册：2013/3/16 21:31:00

[求助]几个单元格求和！ 发帖心情

Post By：2013/4/14 16:57:00 [显示全部帖子]

表A第一列第3行的值=第5列第5行+5列第6行+5列第7行+第6列第4行的和

求大神帮忙写下代码！帮忙里找不到这样的列子！

[此贴子已经被作者于2013-4-14 16:57:16编辑过]

sadfox

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：292 积分：1864 威望：0 精华：0 注册：2013/3/16 21:31:00

Post By：2013/4/14 17:30:00 [显示全部帖子]

求大神帮忙写下，实在不会！

sadfox

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：292 积分：1864 威望：0 精华：0 注册：2013/3/16 21:31:00

Post By：2013/4/14 19:21:00 [显示全部帖子]

Select Case e.DataCol.Name
    Case "单价"
        For i As Integer = 6 To 15
            e.DataTable.DataRows(4)("亏损") = e.DataTable.Compute("Sum(DataRows(i)(单价)")
        Next
End Select

求单价7行到16行的和值，请问为什么不行呢？

sadfox

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：292 积分：1864 威望：0 精华：0 注册：2013/3/16 21:31:00

Post By：2013/4/14 20:59:00 [显示全部帖子]

哎！我还以为能简便点呢！

sadfox

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：292 积分：1864 威望：0 精华：0 注册：2013/3/16 21:31:00

Post By：2013/4/14 21:40:00 [显示全部帖子]

以下是引用jianjingmaoyi在2013-4-14 21:00:00的发言：
仿右下角计算：

If Forms("窗口1").Opened Then

Dim Sum,Average,Count As Double

With CurrentTable

Sum = CurrentTable.Aggregate(AggregateEnum.Sum, .TopRow, .LeftCol, .BottomRow, .RightCol)

Average = CurrentTable.Aggregate(AggregateEnum.Average, .TopRow, .LeftCol, .BottomRow, .RightCol)

Count = CurrentTable.Aggregate(AggregateEnum.Count, .TopRow, .LeftCol, .BottomRow, .RightCol)

End With

Forms("窗口1").Controls("Label1").text =" 累计:" & Cstr(sum) & " 平均:" & Cstr(Average) & " 计数:" & Cstr(Count) & " "

End If

表事件： AfterSelRangeChange

看不懂是什么意思，我是用一个一个+的办法！

下一主题 >> << 上一主题

主题：[求助]几个单元格求和！