[已解决]请问哪位大神帮着看看这个，如何求区间平均分。万分感谢。

lion118

请问哪位大侠帮着看看这个，如何求区间平均分。万分感谢。 求区间平均分.rar (39.11 KB, 下载次数: 14)

2016-2-16 20:43 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2016-2-16 22:24

1. Sub Macro1()
   
2. On Error Resume Next
   
3. Dim arr, brr, d, i&
   
4. Set d = CreateObject("scripting.dictionary")
   
5. arr = Range("a2:a" & Range("a65536").End(xlUp).Row)
   
6. ReDim brr(1 To UBound(arr), 1 To 2)
   
7. For i = 1 To UBound(arr)
   
8.     d(arr(i, 1)) = d(arr(i, 1)) + 1
   
9. Next
   
10. For i = 1 To d.Count
    
11.     x = Application.Large(d.keys, i)
    
12.     n = n + d(x): pm = n - d(x) + 1
    
13.     brr(pm, 1) = x
    
14.     brr(pm, 2) = d(x)
    
15. Next
    
16. qj = InputBox("请输入求平均分区间(如3-5)")
    
17. y = Split(qj, "-")
    
18. For i = y(0) To y(1)
    
19.     m = m + brr(i, 1) * brr(i, 2)
    
20.     s = s + brr(i, 2)
    
21. Next
    
22. MsgBox m / s
    
23. End Sub

复制代码

跳转到最佳答案楼层

雪舞子

1. Sub 按钮1_Click()
   
2.     Dim r, num, i%
   
3.     r = Application.InputBox("请鼠标圈选求平均分区域：", Type:=8)
   
4.     If IsArray(r) Then
   
5.         For i = 1 To UBound(r)
   
6.             num = num + r(i, 1)
   
7.         Next
   
8.         r = num / (i - 1)
   
9.     End If
   
10.     MsgBox "平均分：" & r
    
11. End Sub

复制代码

求区间平均分.rar (41.46 KB, 下载次数: 5)

2016-2-16 21:55 上传

点击文件名下载附件

lion118

雪舞子 发表于 2016-2-16 21:55

谢谢，我不想用鼠标圈，只想在对话框输入，输入结果到sheet2，请问该怎么实现，谢谢。

雪舞子

lion118 发表于 2016-2-16 22:02
谢谢，我不想用鼠标圈，只想在对话框输入，输入结果到sheet2，请问该怎么实现，谢谢。

1. Sub 按钮1_Click()
   
2.     Dim r, num, i%
   
3.     r = Application.InputBox("请输入求平均分区域：", , "10-20", Type:=2)
   
4.     If TypeName(r) = "Boolean" Then Exit Sub
   
5.     If r Like "*-*" Then
   
6.         For i = Split(r, "-")(0) To Split(r, "-")(1)
   
7.             num = num + Val(Cells(i, 1))
   
8.         Next
   
9.         r = num / (i - 1)
   
10.     Else
    
11.         r = Val(Cells(r, 1))
    
12.     End If
    
13.     Sheet2.Range("a2") = r
    
14.     Sheet2.Activate
    
15. End Sub

复制代码

求区间平均分.rar (42.31 KB, 下载次数: 4)

2016-2-16 22:17 上传

点击文件名下载附件

dsmch

1. Sub Macro1()
   
2. On Error Resume Next
   
3. Dim arr, brr, d, i&
   
4. Set d = CreateObject("scripting.dictionary")
   
5. arr = Range("a2:a" & Range("a65536").End(xlUp).Row)
   
6. ReDim brr(1 To UBound(arr), 1 To 2)
   
7. For i = 1 To UBound(arr)
   
8.     d(arr(i, 1)) = d(arr(i, 1)) + 1
   
9. Next
   
10. For i = 1 To d.Count
    
11.     x = Application.Large(d.keys, i)
    
12.     n = n + d(x): pm = n - d(x) + 1
    
13.     brr(pm, 1) = x
    
14.     brr(pm, 2) = d(x)
    
15. Next
    
16. qj = InputBox("请输入求平均分区间(如3-5)")
    
17. y = Split(qj, "-")
    
18. For i = y(0) To y(1)
    
19.     m = m + brr(i, 1) * brr(i, 2)
    
20.     s = s + brr(i, 2)
    
21. Next
    
22. MsgBox m / s
    
23. End Sub

复制代码

dsmch

如果用rank函数增加一列排名，就简单多了

lion118

雪舞子 发表于 2016-2-16 22:17

谢谢，但是您的还是不对。我要求的平均分是不排序的。

lion118

dsmch 发表于 2016-2-16 22:28
如果用rank函数增加一列排名，就简单多了

您好，验证是对的，我想让结果输入到sheet2中，谢谢。

dsmch

………………

lion118

dsmch 发表于 2016-2-17 12:59
………………

您好，我还有个问题请教一下，麻烦能不能看看，谢谢。 统计个数工具.rar (14.46 KB, 下载次数: 3)

2016-2-17 20:30 上传

点击文件名下载附件