Programación VBA ¡por favor explique! ! ! !

Sub ForExample()

Dim x As Range 'Define una variable de tipo celda

Dim T As Integer 'Define una variable de tipo Int

T = 2 'Asignar valor a T

'Recorrer las celdas B2:B6 en la hoja1

Para cada x en ThisWorkbook.Worksheets("Hoja1").Range(" B2: B6")

x.Value = x.Value 0

'Hay un problema al asignar un valor a x, y eventualmente es igual a B6 0

Dim sngAnswer, y, sngAnswer1, fa, fb, f As Single 'Definir variables

sngAnswer = Application.Average(Worksheets("Hoja1").Range(" B2:B72"))

Variable = hoja1 celda B2: promedio de B72

Comentarios

'y = Application.StDev(Worksheets("Hoja1") .Range(" B2:B72"), Hojas de trabajo("Hoja2").Range("B2:B72"))

y = Aplicación.StDev(Hojas de trabajo("Hoja1").Range("B2 :B72") )

setDLV es una función, no incluida en Excel, probablemente esté personalizada

sngAnswer1 = WorksheetFunction.Confidence(0.05, y, 71)

sngAnswer1 Igual a la distribución normal (0.05, y, 71)

'Comentarios

'ThisWorkbook.Worksheets("Sheet1").Cells(5, 2) = "=Confianza (0.05, y, 5)"

f devuelve el coeficiente de correlación momento-producto de Pearson

f = WorksheetFunction.Pearson(Worksheets("Sheet1").Range("B2：B6 " ), Worksheets("Sheet1").Range("c2:c6"))

masbox muestra resultados relacionados

MsgBox "El promedio para este rango es " amp; sngAnswer amp ; Chr(10) amp; "Relacionado:" amp; f amp; Chr(10) amp; "desviación estándar: " y

MsgBox "(" amp; sngAnswer - sngAnswer1; " " amp; sngAnswer sngAnswer1 amp; ")"

'MsgBox "Desviación estándar:" amp; y

'Worksheets("Nombre de la hoja de trabajo").Cells(3, 2) = WorksheetFunction.Nombre de la función (parámetro de función)

End Sub