Basicamente, eu fiz um programa que recebeu uma lista de números de um arquivo .csv e entradas em uma planilha em células a2:aXXX. Então estou tentando contar os números, encontrar a média e o desvio-padrão deles.
Aqui está o meu código:
Dim I, nd As Integer
Dim w(1000) As Double
Dim m As Variant
Dim sd As Variant
Dim n As Variant
Dim binsize As Double
Dim intervalo As Double
Dim bincount As Double
Abra o "F:\ME 232A\weights.csv" para a entrada como # 1
nd = -1
Fazer
Se EOF(1), em seguida, sair
nd = nd + 1
Entrada # 1, w(nd)
Loop
Fechar # 1
Sheets("Sheet1").Selecione
Células (2, 1).Selecione
Para I = 0 Até nd
ActiveCell.Value = w(i)
ActiveCell.Offset (1, 0).Selecione
Seguinte eu
n = Application.WorksheetFunction.CountIf_
(range("a2:a1000"), "> 0")
m = Application.WorksheetFunction.Average_
(range("a2:a1000"))
SD = Application.WorksheetFunction.StDev_
(range("a2:a1000"))
Eu continuo recebendo erro de compilação: matriz de espera, onde ele destaca o "intervalo". Geralmente o "intervalo" automaticamente é suposto para ser "Range" mas ele sempre muda a "gama" com um "r" minúsculo quando estou a edição do código.
Ajuda é muito apreciada.