下面我正在尝试编写一个脚本,其目标是为几个不同的数字列计算一些摘要统计信息。我已经得到了一些帮助,直到“需要帮助下面”标记。但除此之外,我对如何计算简单统计数据(总和,平均值,标准差,变异系数)感到惊讶。我知道VB有这些统计数据的脚本,我已将其包含在我的代码中,但我想我需要做一些额外的声明或其他事情。建议非常感谢。感谢。
Sub TOAinput()
Const n As Integer = 648
Dim stratum(n), hybrid(n), acres(n), hhsz(n), offinc(n)
Dim s1 As Integer
Dim s2 As Integer
Dim i As Integer
For i = 1 To n
stratum(i) = Worksheets("hhid level").Cells(i + 1, 2).Value
Next i
s1 = 0
s2 = 0
For i = 1 To n
If stratum(i) = 1 Then
s1 = s1 + 1
Else:
s2 = s2 + 1
End If
Next i
Dim acres1(), hhsz1(), offinc1(), acres2(), hhsz2(), offinc2()
ReDim acres1(s1), hhsz1(s1), offinc1(s1), acres2(s2), hhsz2(s2), offinc2(s2)
'data infiles: acres, hh size, off-farm income,
For i = 1 To n
acres(i) = Worksheets("hhid level").Cells(i + 1, 4).Value
hhsz(i) = Worksheets("hhid level").Cells(i + 1, 5).Value
offinc(i) = Worksheets("hhid level").Cells(i + 1, 6).Value
Next i
s1 = 0
s2 = 0
For i = 1 To n
If stratum(i) = 1 Then
s1 = s1 + 1
acres1(s1) = acres(i)
hhsz1(s1) = hhsz(i)
offinc1(s1) = offinc(i)
Else:
s2 = s2 + 1
acres2(s2) = acres(i)
hhsz2(s2) = hhsz(i)
offinc2(s2) = offinc(i)
End If
Next i
'****************************
'Need help below
'****************************
Dim sumac1, sumac2, mhhsz1, mhhsz2, cvhhsz1, cvhhsz2
sumac1 = Sum(acres1)
sumac2 = Sum(acres2)
mhhsz1 = Average(hhsz1)
mhhsz2 = Average(hhsz2)
cvhhsz1 = StDev(hhsz1) / Average(hhsz1)
cvhhsz2 = StDev(hhsz2) / Average(hhsz2)
End Sub
答案 0 :(得分:0)
Sum,Average和StdDev是工作表函数,不能直接在VBA中使用。
尝试
MyInteger = Application.WorksheetFunction.Sum(MyIntegerArray)
如果Nick Sabbe建议你在细胞中放置公式是不合适的。