VBA数组赋值类型不匹配问题

spacegoing · 发表于 2012-5-25 13:50

A = 2Do While A <= O / 2NPeriods = O / AReDim Array1(Int(NPeriods))ReDim Array2(A, NPeriods)ReDim S(Int(NPeriods))ReDim R(Int(NPeriods))RS = 0i = 1Do While i < NPeriodsmaxi = Array2(1, i)mini = Array2(1, i)For N = 1 To AIf Array2(N, i) > maxi Then maxi = Array(N, i)If Array2(N, i) < mini Then mini = Array2(N, i)R(i) = maxi - miniS(i) = Sqr(m / A)RS = RS + R(i) / S(i)i = i + 1Next NLoopO是样本总数，我想把计算出来的maxi和mini赋值到R和S数组中，但是总是提示类型不匹配，请问该如何编程呢？

spacegoing · 发表于 2012-5-25 13:51

A = 2
Do While A <= O / 2
NPeriods = O / A
ReDim Array1(Int(NPeriods))
ReDim Array2(A, NPeriods)
ReDim S(Int(NPeriods))
ReDim R(Int(NPeriods))
RS = 0
i = 1
Do While i < NPeriods
maxi = Array2(1, i)
mini = Array2(1, i)
For N = 1 To A
If Array2(N, i) > maxi Then maxi = Array(N, i)
If Array2(N, i) < mini Then mini = Array2(N, i)
R(i) = maxi - mini
S(i) = Sqr(m / A)
RS = RS + R(i) / S(i)
i = i + 1
Next N
Loop

复制代码

zjcat35 · 发表于 2012-5-25 14:03

你的A=2
跟while A<0/2 冲突,这代码直接没法运行的呀
0/2不知这到底是怎么个意思

spacegoing · 发表于 2012-5-25 14:10

zjcat35 发表于 2012-5-25 14:03
你的A=2
跟while A

哎…… 实在不好意思呵呵，编程的时候用的是O ，是“欧”，不是“0”嘿嘿……

spacegoing · 发表于 2012-5-25 14:11

O是样本总数，我想把计算出来的maxi和mini赋值到R和S数组中，但是总是提示类型不匹配，请问该如何编程呢？

zjcat35 · 发表于 2012-5-25 14:12

但是你这里对O 没有进行赋值,它相当于也还是0
还是你这代码不完整啊

spacegoing · 发表于 2012-5-25 14:17

zjcat35 发表于 2012-5-25 14:12
但是你这里对O 没有进行赋值,它相当于也还是0
还是你这代码不完整啊

嗯，代码是截取的一部分，O是样本总数已经算出来了的哈{:011:}

zjcat35 · 发表于 2012-5-25 14:18

没附件代码还不传完整,你让谁给你答案去!!!!

spacegoing · 发表于 2012-5-25 14:22

zjcat35 发表于 2012-5-25 14:18
没附件代码还不传完整,你让谁给你答案去!!!!

Sub Hurst()
Dim Data()
Dim Array1()
Dim Array2()
Dim R()
Dim S()
Dim Result()
Dim O As Integer
Dim Plot As Integer
Dim NPeriods
Dim PeriodNo
Dim N As Integer
Dim A As Integer
Dim i As Long
Dim m
Dim e
Dim RS
Worksheets("Sheet1").Range("B3").Value = "Hurst="
Do While i < 10000
i = i + 1
If Worksheets("sheet1").Cells(i, 1).Value = 0 Then Exit Do
Loop
O = i - 1
ReDim Data(O)
i = 1
counter = 1
Do While counter < O
Set curCell = Worksheets("Sheet1").Cells(i, 1)
If Application.WorksheetFunction.IsNumber(curCell.Value) Then
Data(counter) = curCell.Value
counter = counter + 1
End If
i = i + 1
Loop
ReDim Result(O / 2, 2)
A = 2
Do While A <= O / 2
NPeriods = O / A
ReDim Array1(Int(NPeriods))
ReDim Array2(A, NPeriods)
ReDim S(Int(NPeriods))
ReDim R(Int(NPeriods))
RS = 0
Do While i < NPeriods
e = 0
For PeriodNo = 1 To A
e = e + Data(PeriodNo + (i - 1) * A)
Next PeriodNo
Array1(i) = e / A
i = i + 1
Loop
i = 1
Do While i < NPeriods
m = 0
e = 0
For PeriodNo = 1 To A
m = m + ((Data(PeriodNo + (i - 1) * A) - Array1(i)) ^ 2)
e = e + (Data(PeriodNo + (i - 1) * A) - Array1(i))
Array2(PeriodNo, i) = e
Next PeriodNo
maxi = Array2(1, i)
mini = Array2(1, i)
For N = 1 To A
If Array2(N, i) > maxi Then maxi = Array(N, i)
If Array2(N, i) < mini Then mini = Array2(N, i)
R(i) = maxi - mini
S(i) = Sqr(m / A)
RS = RS + R(i) / S(i)
i = i + 1
Next N
Loop
Result(A, 1) = Log(A)
Result(A, 2) = Log(RS / NPeriods)
A = A + 1
Loop
sumx = 0
sumy = 0
sumxy = 0
sumxx = 0
Plot = O / 2
For i = 2 To Plot
sumx = sumx + Result(i, 1)
sumy = sumy + Result(i, 2)
sumxy = sumxy + (Result(i, 1) * Result(i, 2))
sumxx = sumxx + (Result(i, 1) * Result(i, 1))
Next i
h = (sumxy - ((sumx * sumy) / Plot)) / (sumxx - ((sumx * sumx) / Plot))
Worksheets("sheet1").Range("c3").Value = h
End Sub

复制代码

新来的不懂规矩，Sorry啊Sorry

无聊的疯子 · 发表于 2012-5-25 18:37

spacegoing 发表于 2012-5-25 14:22
新来的不懂规矩，Sorry啊Sorry

最好连附件一起,不然不知道你的数据格式啊什么的,也不好办哦!

有附件,有代码,问题很好解决的!

		自动登录	找回密码
密码			注册

VBA数组赋值 类型不匹配问题

相关帖子

VBA数组赋值类型不匹配问题