Foxtable(狐表)用户栏目专家坐堂 → [求助]列平均值为尺度单元格绘制


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

主题:[求助]列平均值为尺度单元格绘制

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


加好友 发短信
等级:幼狐 帖子:113 积分:974 威望:0 精华:0 注册:2023/6/18 23:26:00
[求助]列平均值为尺度单元格绘制  发帖心情 Post By:2024/8/8 12:18:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:列平均值为尺度单元格绘制.foxdb


当前列单元格值,与当前列平均值对比,绘制单元格样式如下:
当前列单元格值=列平均值
当前列单元格值超列平均值10%
当前列单元格值超列平均值20%
当前列单元格值超列平均值30%
当前列单元格值低列平均值10%
当前列单元格值低列平均值20%
当前列单元格值低列平均值30%

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


加好友 发短信
等级:狐神 帖子:4759 积分:34603 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2024/8/8 12:42:00 [只看该作者]

Select Case e.Col.Name
    Case "第一列", "第二列", "第三列"
        Dim 平均值 As Double = e.Table.Compute ("Avg(" & e.Col.Name & ")")
        If e.Row.IsNull (e.Col) = False Then 
            If e.Row(e.Col) < 平均值 * 0.7 Then
                e.Style = "当前列单元格值低列平均值30%"
            ElseIf e.Row(e.Col) < 平均值 * 0.8 Then
                e.Style = "当前列单元格值低列平均值20%"
            ElseIf e.Row(e.Col) < 平均值 * 0.9 Then
                e.Style = "当前列单元格值低列平均值10%"
            ElseIf e.Row(e.Col) = 平均值 Then
                e.Style = "当前列单元格值=列平均值"
            ElseIf e.Row(e.Col) > 平均值 * 1.1 Then
                e.Style = "当前列单元格值超列平均值10%"
            ElseIf e.Row(e.Col) > 平均值 * 1.2 Then
                e.Style = "当前列单元格值超列平均值20%"
            ElseIf e.Row(e.Col) > 平均值 * 1.3 Then
                e.Style = "当前列单元格值超列平均值30%"
            End If 
        End If 
End Select

 回到顶部