Foxtable(狐表)用户栏目专家坐堂 → 单元格计算问题


  共有5671人关注过本帖树形打印复制链接

主题:单元格计算问题

帅哥哟,离线,有人找我吗?
dakongyigang
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:44 积分:355 威望:0 精华:0 注册:2015/2/9 16:15:00
单元格计算问题  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:44 积分:355 威望:0 精华:0 注册:2015/2/9 16:15:00
  发帖心情 Post By:2015/3/3 16:19:00 [只看该作者]

追问下需要依次循环下去,下个七行在(6.2)显示

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/3 16:21:00 [只看该作者]

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

 

 (6.2) 等于哪几行的相加?


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:44 积分:355 威望:0 精华:0 注册:2015/2/9 16:15:00
  发帖心情 Post By:2015/3/3 16:26:00 [只看该作者]

和(6,1)一样,8-14

 回到顶部
帅哥哟,离线,有人找我吗?
dakongyigang
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:44 积分:355 威望:0 精华:0 注册:2015/2/9 16:15:00
  发帖心情 Post By:2015/3/3 16:31:00 [只看该作者]

这个写到哪里甜版,菜鸟问题呵呵,谢谢帮助


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/3 16:31:00 [只看该作者]

单独做一个按钮计算。


 回到顶部
帅哥哟,离线,有人找我吗?
dakongyigang
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:44 积分:355 威望:0 精华:0 注册:2015/2/9 16:15:00
  发帖心情 Post By:2015/3/4 8:31:00 [只看该作者]

命令好使,就是(6,1)到(6,4)全都是这个值,能做个输出按钮单独输出结果么

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/3/4 8:33:00 [只看该作者]

r("第五列") = sum  改为

messagebox.show(sum)

 回到顶部
总数 32 1 2 3 4 下一页