[已解决]自动计算方根并按公式生成抽样量问题

sdwffw

Book1.zip (7.46 KB, 下载次数: 10)

2014-6-20 12:44 上传

点击文件名下载附件
问题见附件表二、表三，想用VBA实现，请老师指教，十分感谢。

最佳答案

月排行榜 / 总排行榜

grf1973

2014-6-20 13:52

请看附件。由于sheet2的合计项连着表，因此在“计算样本”代码中未用Currentregion定义数组，直接写入了数据区域。

跳转到最佳答案楼层

grf1973

1. Sub 按钮3_单击()   '生成方根
   
2.     arr = Sheet1.[a1].CurrentRegion
   
3.     brr = arr
   
4.     For i = 2 To UBound(arr)
   
5.         For j = 2 To UBound(arr, 2)
   
6.             If arr(i, j) > 0 Then brr(i, j) = Sqr(arr(i, j)): s = s + brr(i, j)
   
7.         Next
   
8.     Next
   
9.     Sheet2.[a1].Resize(UBound(brr), UBound(brr, 2)) = brr
   
10.     Sheet2.[s7] = s
    
11. End Sub
    

复制代码

grf1973

1. Sub 按钮2_单击()    '计算样本
   
2.     n = InputBox("请输入总样本量（N）")
   
3.     arr = Sheet2.[a1:q30]
   
4.     brr = arr
   
5.     s = Sheet2.[s7]
   
6.     For i = 2 To UBound(arr)
   
7.         For j = 2 To UBound(arr, 2)
   
8.             If arr(i, j) > 0 Then brr(i, j) = Val(n) * arr(i, j) / s
   
9.         Next
   
10.     Next
    
11.     Sheet3.[a1].Resize(UBound(brr), UBound(brr, 2)) = brr
    
12. End Sub
    

复制代码

grf1973

请看附件。由于sheet2的合计项连着表，因此在“计算样本”代码中未用Currentregion定义数组，直接写入了数据区域。

sdwffw

grf1973 发表于 2014-6-20 13:44

自动计算方根问题完美解决，感谢老师。不过，我在“样本量”表中也提了个问题，烦请老师一并看看。

sdwffw

grf1973 发表于 2014-6-20 13:52
请看附件。由于sheet2的合计项连着表，因此在“计算样本”代码中未用Currentregion定义数组，直接写入了数据 ...

感谢老师！！

大灰狼1976

“样本量”表的问题回答如下，但是美中不足的是空单元格全部显示为0了
仅作参考

1. Sub 按钮2_单击()
   
2. Dim n&
   
3. n = InputBox("请输入总样本量（N）")
   
4. [b2:q30] = Sheets(2).Evaluate("b2:q30*" & n & "/" & Sheets(2).[s7])
   
5. End Sub

复制代码