主题：甜哥帮我一下

甜哥，连续忙了好多天，天天在实验室，都没有时间消化你给我的东西

这是最近才整理的数据，不会做，也没有时间看帮助文件，你帮我一下吧。先谢您了

这是一个筛选培养基和温度的正交试验，我用excel算了一下，计算方法以下：

1.算每行的平均值=均值

2.算每列的平均=平均群落

3.（每行均值/平均群落）的和/15=温落比

4.找出最大的温落比，从左向右依次排列，>0.8以上的值，在数字右上角上标**，并在“显著性描述”中填入“极显著”字样。

如果没有表达清楚，您看不明白，请给我留言，或者把数学公式传给您。麻烦您了。再次谢谢您了

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目6.table

 

此主题相关图片如下：图片1.png

谢谢甜哥，道理我知道，只是得段时间要记录和处理的数据量很多，我想让你帮帮我，闲下来，才有时间学

靠excel很难短时间完成，帮我把这个完成，工作上马上能用到

模仿写的，似懂非懂。不能运行

Dim l As new List(Of String)
Dim t As Table = Tables("脱毒马铃薯培养基15x14正交试验数据")
For Each dc As Col In t.Cols
    If dc.Caption.StartsWith("培养皿_") Then
        l.add(dc.name)
    End If
Next
        Dim sum1 As Double = 0
        Dim count1 As Double = 0
        For Each c As Col In t.Cols
            If c.name.StartsWith("培养皿_") Then
                sum1 += t.Compute("sum(" & l(i) & ")")
                count1 += 1
        msgbox( sum1 / count1)
    End If
Next

甜哥你好！

温落比大的列，按大小值排在最左边，也是一种排序，温落比>0.8，就在这个数值上边标记**

像这样

此主题相关图片如下：qq图片20181210143310.png

甜哥，没有结果

楼上的朋友，我看了你的帖子，我好像目前用不上，收藏了，闲下来好好琢磨，谢你的帮助了

甜哥，看了半天没有看懂，平均群落好像算不出来，在论坛里找了一个，有一点近似，也是您帮写的

试着自己弄了一会，还是用不上，目前的情况只是移动列，没有数值

从字符串“”到类型“Double”的转换无效。

第一段代码可以算出值，但是也的弹出“从字符串“”到类型“Double”的转换无效。”

第一段填了一段蓝色部分

If c.name.StartsWith("培养皿_") Then
                sum1 += r(c.name)
                count1 += 1
            End If
        Next
        r("均值") = Math.Round( sum1 / count1,4)
    End If
Next