以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  单元格计算问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64850)
--  作者：dakongyigang
--  发布时间：2015/3/3 16:14:00
--  单元格计算问题
请问狐表能实现(1)、比如第四列1-7行单元格与第五列1-7行单元格实现坐标【（4,1）*（5,1）】+ 【（4,2）*（5,2）】 +...+  【（4,7）*（5,7）】=第六列第一个单元格，即在（6.1）输出么?
（2）、第7列（7，1）显示第五列的最小值。两个问题谢谢
--  作者：dakongyigang
--  发布时间：2015/3/3 16:19:00
--  
追问下需要依次循环下去，下个七行在（6.2）显示
--  作者：有点甜
--  发布时间：2015/3/3 16:21:00
--  

 呃，肯定可以，不过需要用代码计算。

 

 (6.2) 等于哪几行的相加？
--  作者：有点甜
--  发布时间：2015/3/3 16:25:00
--  
Dim t As Table = Tables("表B")
For i As Integer = 0 To t.Rows.Count - 7
    Dim r As Row = t.Rows(i)
    Dim sum As Double = 0
    For j As Integer = i To i+6
        sum += val(t.Rows(j)("第三列")) * val(t.Rows(j)("第四列"))
    Next
    r("第五列") = sum
Next
--  作者：dakongyigang
--  发布时间：2015/3/3 16:26:00
--  
和（6,1）一样，8-14
--  作者：dakongyigang
--  发布时间：2015/3/3 16:31:00
--  

这个写到哪里甜版，菜鸟问题呵呵，谢谢帮助
--  作者：有点甜
--  发布时间：2015/3/3 16:31:00
--  
Dim t As Table = Tables("表B")
For i As Integer = 0 To t.Rows.Count - 7
    Dim r As Row = t.Rows(i)
    Dim sum As Double = 0
    For j As Integer = i*7 To i*7+6
        If j < t.Rows.Count - 1 Then
            sum += val(t.Rows(j)("第三列")) * val(t.Rows(j)("第四列"))
        End If
    Next
    r("第五列") = sum
Next
--  作者：有点甜
--  发布时间：2015/3/3 16:31:00
--  

单独做一个按钮计算。
--  作者：dakongyigang
--  发布时间：2015/3/4 8:31:00
--  
命令好使，就是（6,1）到（6,4）全都是这个值，能做个输出按钮单独输出结果么
--  作者：Bin
--  发布时间：2015/3/4 8:33:00
--  
r("第五列") = sum  改为

messagebox.show(sum)