精华内容
下载资源
问答
  • 函数作用:将工作表最后一列作为页脚打印在每一面页尾101 '102.函数作用:获取vbproject引用项目.................102 '103.函数作用:移除Excel工作表中的外部数据连接.......103 '104.函数作用:将选择定单元格作成...
  • 155.在指定列寻找含有指定字符串单元格,并将符合条件单元格标为红色,并将对应一列单元格赋值为1 156.清除字符串中的空格 157.查找合并单元格位置 158.阴阳历转换阴阳历生日 159.利用数组Substitute...
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧3 获得指定行、列中的最后个非空单元格 12 技巧4 定位单元格 12 技巧5 查找单元格 12 5-1 使用Find方法 12 5-2 使用Like运算符 12 技巧6 替换单元格内字符串 12 技巧7 复制单元格区域 12 技巧8 仅复制数值到另...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧3 获得指定行、列中的最后个非空单元格 17 技巧4 定位单元格 20 技巧5 查找单元格 21 5-1 使用Find方法 21 5-2 使用Like运算符 25 技巧6 替换单元格内字符串 26 技巧7 复制单元格区域 27 技巧8 仅复制数值到另...
  • EXCEL VBA常用技巧

    2010-02-09 22:28:27
    技巧3 获得指定行、列中的最后个非空单元格 10 技巧4 定位单元格 13 技巧5 查找单元格 14 5-1 使用Find方法 14 5-2 使用Like运算符 18 技巧6 替换单元格内字符串 19 技巧7 复制单元格区域 20 技巧8 仅复制数值到另...
  • 04050引用输入了任何内容最后一列单元格(多行情况之一) 04051引用输入了公式或值最后一列单元格(多行情况之二) 04052引用多个非连续单元格区域集合(Union方法) 04053引用多个非连续单元格区域集合...
  • 中文版Excel.2007高级VBA编程宝典 1/2

    热门讨论 2012-04-06 16:00:16
    本书作者是当之无愧世界级Excel电子表格专家,他为读者倾心打造了这本专著,书汇聚他15年来使用Excel所有经验,涵盖Excel应用和VBA编程涉及方方面面,是经典著作Excel 2003 Power Programming with VBA的...
  • 中文版Excel.2007高级VBA编程宝典 2/2

    热门讨论 2012-04-06 16:41:38
    本书作者是当之无愧世界级Excel电子表格专家,他为读者倾心打造了这本专著,书汇聚他15年来使用Excel所有经验,涵盖Excel应用和VBA编程涉及方方面面,是经典著作Excel 2003 Power Programming with VBA的...
  • VBA 去掉最大值,最小值,求方差

    千次阅读 2015-03-05 10:20:23
    此算法是从一列数据去掉最大数值和最小数值,求出总和,平均值,计算出  在cell填充去掉最大值,最小值, 总和,平均值方差.  算法效率有点低,主要解决业务问题了. Public Sub aver()  Application....

    此算法是从一列数据中去掉最大数值和最小数值,求出总和,平均值,计算出

     在cell中填充去掉的最大值,最小值, 总和,平均值和方差.

      算法效率有点低,主要解决业务问题了.

    Public Sub aver()

        Application.ScreenUpdating = False

        Dim maxCount

        maxCount = 10  //最大行数

       For k = 0 To 12   //最大的列数

            Dim largeIndex

            Dim smallIndex

            Dim largerValue

            Dim smalValue

            Dim index

            Dim tAvgValue

            Dim varianceValue As Double

            index = 0

            'Largervalue And SmallValue

            For Each x In Range(Cells(1, k + 1), Cells(maxCount, k + 1))

                    If index = 0 Then

                        largerValue = x

                        smallValue = x

                        largerIndex = index

                        smallIndex = index

                    End If

                    If x > largerValue Then

                            largerValue = x

                            largerIndex = index

                    End If

                    If x < smallValue Then

                            smallValue = x

                            smallIndex = index

                    End If

                    ‘Debug.Print "largerValue: " & largerValue & "  x:" & x

                    index = index + 1

            Next x

            

            'Sum Value

            Dim sum

            sum = 0

            Dim arr(0 To 7)  //10个数的话,去掉最大,最小就是8的数组

            Dim i

            i = 0

            Dim curIndex

            curIndex = 0

            For Each x In Range(Cells(1, k + 1), Cells(maxCount, k + 1))

              If curIndex = largerIndex Then

              ElseIf curIndex = smallIndex Then

              Else

                    sum = sum + x

                    arr(i) = x

                    i = i + 1

              End If

              

              curIndex = curIndex + 1

            Next x

            tAvgValue = sum / (maxCount - 2)

            

            Dim sum1 As Double

            sum1 = 0

            Dim temp

            For Each y In arr

                If Abs(y) > Abs(tAvgValue) Then

                        temp = Abs(y) - Abs(tAvgValue)

                        sum1 = sum1 + temp * temp

                Else

                        temp = Abs(tAvgValue) - Abs(y)

                        sum1 = sum1 + temp * temp

                End If

            Next y

            varianceValue = Sqr(sum1 / (maxCount - 2))

       'MsgBox " largerValue: " & largerValue & "smallValue:" & smallValue & " the sum is :" & sum & " the Avg is :" & sum / 8

      

       Worksheets("Sheet1").Cells(maxCount + 5, k + 1) = "LargerValue: " & largerValue

       Worksheets("Sheet1").Cells(maxCount + 6, k + 1) = "smallValue: " & smallValue

       Worksheets("Sheet1").Cells(maxCount + 7, k + 1) = "sum: " & sum

       Worksheets("Sheet1").Cells(maxCount + 8, k + 1) = "Avg: " & tAvgValue

       Worksheets("Sheet1").Cells(maxCount + 9, k + 1) = varianceValue

       

       Next k

       Application.ScreenUpdating = True

    End Sub


    展开全文
  • 问题是这样 IDE:visual c++ 2013 community excel:2010 ...比如要得到这个数组第三行第一列的数据要怎么做?要得到这个数组数据要怎么做? 有可能输出为数组吗? 新手菜鸟求大神指点。
  • VBSCRIPT中文手册

    热门讨论 2010-11-12 10:13:06
    Atn 函数 返回数值的反正切。 CBool 函数 返回已被转换为 Boolean 子类型的变体的表达式。 CByte 函数 返回已被转换为字节子类型的变体的表达式。 CCur 函数 返回已被转换为货币子类型的变体的表达式。 CDate ...
  • excel使用

    2012-11-25 17:06:01
    下面给出一个例子:选中一列,然后单击“格式”菜单中的“单元格”命令,在弹出对话框选择“数字”选项卡,在“分类”列表选择“自定义”,然后在“类型”文本框输入“"正数:"($#,##0.00);"负数:"($ #,##...
  • MYSQL中文手册

    2013-03-11 21:21:34
    10.2. MySQL中的字符集校对 10.3. 确定默认字符集校对 10.3.1. 服务器字符集校对 10.3.2. 数据库字符集校对 10.3.3. 表字符集校对 10.3.4. 字符集校对 10.3.5. 字符集校对分配示例 10.3.6. ...
  • 10.2. MySQL中的字符集校对 10.3. 确定默认字符集校对 10.3.1. 服务器字符集校对 10.3.2. 数据库字符集校对 10.3.3. 表字符集校对 10.3.4. 字符集校对 10.3.5. 字符集校对分配示例 10.3.6. 连接字符...
  • MySQL 5.1中文手冊

    2009-12-11 09:43:12
    10.2. MySQL中的字符集校对 10.3. 确定默认字符集校对 10.3.1. 服务器字符集校对 10.3.2. 数据库字符集校对 10.3.3. 表字符集校对 10.3.4. 字符集校对 10.3.5. 字符集校对分配示例 10.3.6. 连接字符...
  • 10.2. MySQL中的字符集校对 10.3. 确定默认字符集校对 10.3.1. 服务器字符集校对 10.3.2. 数据库字符集校对 10.3.3. 表字符集校对 10.3.4. 字符集校对 10.3.5. 字符集校对分配示例 10.3.6. 连接字符...
  • mysql5.1中文手册

    2008-01-09 09:54:20
    在同个数据库创建多个表缺陷 7.5. 优化MySQL服务器 7.5.1. 系统因素启动参数调节 7.5.2. 调节服务器参数 7.5.3. 控制查询优化器性能 7.5.4. 编译链接怎样影响MySQL速度 7.5.5. ...
  • EXCEL 2007 宝典 附光盘文件

    热门讨论 2010-04-02 14:43:05
    cumulative sum.xlsx:一个演示如何计算一个累积和的工作簿。 frequency distribution.xlsx:一个演示创建频率分布四种方法工作簿。 multiple criteria counting.xlsx:一个演示使用多个条件计算公式工作簿...
  • FMLDATA源码

    2014-06-02 15:57:42
    一列是日期/时间,第二列是数值,把第一列转换一下可得: 2007-03-21 0.05 2007-03-22 0.003 2007-03-23 -0.029 2007-03-26 -0.011 2007-03-27 -0.009 2007-03-28 0.005 2007-03-29 0.004 2007-03-30 -0.015 其中...
  • 计算一内存采购平均价格 • 统计各品牌商品销量汇总 • 利用COUNT函数代替SUM 函数统计不重复记录 • 标识零件规格号中的非法数据 • 将中文大写日期转换成日期序列 • 实现按日期客户名查询数据 • 按...
  • 然后逐步介绍创建数据透视表、自定义透视表、查看视图数据、在透视表内进行计算、使用数据透视图等可视化工具、分析数据源、共享数据表、使用分析OLAP数据、在透视表使用宏和VBA等内容,并集中解答了一些常见...
  • 然后逐步介绍创建数据透视表、自定义透视表、查看视图数据、在透视表内进行计算、使用数据透视图等可视化工具、分析数据源、共享数据表、使用分析OLAP数据、在透视表使用宏和VBA等内容,并集中解答了一些常见...
  • 然后逐步介绍创建数据透视表、自定义透视表、查看视图数据、在透视表内进行计算、使用数据透视图等可视化工具、分析数据源、共享数据表、使用分析OLAP数据、在透视表使用宏和VBA等内容,并集中解答了一些常见...
  • 然后逐步介绍创建数据透视表、自定义透视表、查看视图数据、在透视表内进行计算、使用数据透视图等可视化工具、分析数据源、共享数据表、使用分析OLAP数据、在透视表使用宏和VBA等内容,并集中解答了一些常见...
  • vb Script参考文档

    2009-07-28 22:13:02
    Atn 函数 返回数值的反正切。 CBool 函数 返回已被转换为 Boolean 子类型的变体的表达式。 CByte 函数 返回已被转换为字节子类型的变体的表达式。 CCur 函数 返回已被转换为货币子类型的变体的表达式。 CDate ...
  • 【合并与合计】:可以任意指定两列,对其中一列的数据合并同类项,而另一列对应的数值则求合计,合计结果存放在合并区域 【建立图片目录】:对指定文件夹下所有图片(GIF、PNG、JPG,JPEG)建立目录,并批量导入 ...
  • Excel百宝箱

    2012-10-27 17:09:21
    【合并与合计】:可以任意指定两列,对其中一列的数据合并同类项,而另一列对应的数值则求合计,合计结果存放在合并区域 【建立图片目录】:对指定文件夹下所有图片(GIF、PNG、JPG,JPEG)建立目录,并批量导入 ...
  • Excel百宝箱9.0无限制破解版

    热门讨论 2012-02-03 19:05:29
    【合并与合计】:可以任意指定两列,对其中一列的数据合并同类项,而另一列对应的数值则求合计,合计结果存放在合并区域 【建立图片目录】:对指定文件夹下所有图片(GIF、PNG、JPG,JPEG)建立目录,并批量导入 ...
  • 中文版Excel.2007图表宝典 1/2

    热门讨论 2012-04-06 18:49:24
    1.4.2 切换行和列的方向/12 1.4.3 改变图表类型/13 1.4.4 应用图表布局/14 1.4.5 应用图表样式/15 1.4.6 添加删除图表元素/15 1.4.7 格式化图表元素/16 1.5 对图表进行操作/17 1.5.1 移动图表改变图表大小/17 ...

空空如也

空空如也

1 2 3 4 5
收藏数 81
精华内容 32
热门标签
关键字:

vba中计算一列数值的和