软件:excel
版本:office365
小弟想要弄一个能一样本t检定和投报率的vba程式
有时候可以用有时候又不能用
但不晓得为什么会一直有bug
每次说错的地方都不同
小弟改过一些地方 t=av/(std/a^0.5) 那行会出现型态不符合
Private Sub CommandButton1_Click()
Set r1 = Range(Me.RefEdit1)
Set out_put = Range(Me.RefEdit2)
r = out_put.Row
c = out_put.Column
av = Application.Average(r1)
Sum = Application.Sum(r1)
std = Application.StDev([r1])
roi = (Sum) / 10.1
a = WorksheetFunction.Count(r1)
t = av / (std / a ^ 0.5)
p = 1 - WorksheetFunction.T_Dist(t, a - 1, 1)
Min = WorksheetFunction.Min(r1)
Max = WorksheetFunction.Max(r1)
Cells(r, c) = "Average"
Cells(r, c + 1) = av
Cells(r + 1, c) = "ROI"
Cells(r + 1, c + 1) = roi
Cells(r + 2, c + 1) = std
Cells(r + 2, c) = "s"
Cells(r + 3, c + 1) = t
Cells(r + 3, c) = "t"
Cells(r + 4, c + 1) = p
Cells(r + 4, c) = "p-value"
Cells(r + 5, c + 1) = Min
Cells(r + 5, c) = "Min"
Cells(r + 6, c + 1) = Max
Cells(r + 6, c) = "Max"
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 123.205.64.45
※ 文章网址: https://www.ptt.cc/bbs/Office/M.1545128276.A.4DE.html
※ 编辑: raymond5566 (123.205.64.45), 12/18/2018 22:04:49