[已解决]帮忙用VBA进行数据统计并画直方图

酒醒梦已残

统计-直方图.rar (1.22 MB, 下载次数: 41)

2013-8-7 15:56 上传

点击文件名下载附件


要求：下拉选择一种元素，自动计算该元素的最小值，最大值，频数、累积频率和频率。
           其中黄色部分为自定义输入，然后生成直方图。

这个工作薄里有一种元素是我已经做好的结果，由于有10多种元素，麻烦大神帮忙编个VBA帮我提高下效率，谢谢了！！

最佳答案

月排行榜 / 总排行榜

爱疯

2013-8-7 21:15

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x
    If Target.Address = "$B$1" Then
        '列标
        x = Sheet1.Range("1:1").Find(Target).Column
        x = Left(Cells(1, x).Address(0, 0), 1)
        '修改公式
        Application.EnableEvents = False
        [d2].Formula = "=MIN(结果!" & x & ":" & x & ")"
        [F2].Formula = "=MAX(结果!" & x & ":" & x & ")"
        [c4:c28].FormulaArray = "=FREQUENCY(结果!" & x & ":" & x & ",B4:B9999)"
        [e4].Formula = "=C4/COUNT(结果!" & x & ":" & x & ")"
        [e4:e28].FillDown
        Application.EnableEvents = True
    End If
End Sub
(, 下载次数: 32)

上传

点击文件名下载附件



方法1 VBA的方式
我漏改了两个公式，补上了。


方法2  定义名称（推荐）
见14#附件。


两种方法都是修改图表的数据源，来达到改变图表的效果。
显然方法2更方便、简单。

跳转到最佳答案楼层

sliang28

画直方图？你做质量的？{:3912:}
Excel画直方图样子不怎么像啊！minitab画挺简单的{:3912:}
你这个应该用minitab去计算，省好多事{:3912:}

酒醒梦已残

sliang28 发表于 2013-8-6 16:44
画直方图？你做质量的？
Excel画直方图样子不怎么像啊！minitab画挺简单的
你这个应该用 ...

偶像大神{:101:}，我不是做质量的
也没听过minitab{:081:}。
能不能帮我想个办法在EXCLE里做。上次那个VBA很给力，

酒醒梦已残

大神们 顶起来啊

酒醒梦已残

麻烦大神帮忙编个VBA帮我提高下效率，谢谢了！！{:081:}

爱疯

目的是不是：在工作表“统计-直方图”中，只要修改B1的值，图表就发生相应变化？B2根据什么来确定？

酒醒梦已残

爱疯 发表于 2013-8-7 16:41
目的是不是：在工作表“统计-直方图”中，只要修改B1的值，图表就发生相应变化？B2根据什么来确定？

B2是常量，一般为0.1  1 10  100  1000这四个数。

爱疯

目的如6楼所说吗？
每当B1发生改变时，B2跟着变吗？

酒醒梦已残

爱疯 发表于 2013-8-7 16:41
目的是不是：在工作表“统计-直方图”中，只要修改B1的值，图表就发生相应变化？B2根据什么来确定？

是的，只要修改B1的值，图表就发生相应变化。

爱疯

每当B1发生改变时，B2跟着变吗？