Calcular rendimientos y otros datos con Visual Basic

Hola Amigos:

En este tutorial enseñaremos cómo calcular rendimientos y datos como el mínimo, máximo, media y desviación estándar de una serie de precios en bolsa de empresas hipotéticas. A continuación vemos el código utilizado y en los dos siguientes videos podemos encontrar la explicación. 

A continuación el código. No olviden visitar el canal en YouTube en  https://www.youtube.com/channel/UCFwYsItkc0MIRP7GTF8YZLw y suscribirse.

Saludos!!

'Sacar rendimientos minimo maximo desviacion estandar media

'sacando rendimientos

Private Sub Botón4_AlHacerClic()

For j = 2 To 6

Hoja2.Cells(1, j) = Hoja1.Cells(1, j) + " Rendimientos "

Next

For a = 2 To 6

For i = 3 To 67

Hoja2.Cells(i, a) = ((Hoja1.Cells(i, a) / Hoja1.Cells(i - 1, a)) - 1)

Next

Next

'Dibujando las celdas

For i = 2 To 6

Hoja2.Cells(2, i + 6).Interior.Color = RGB(26, 116, 28)

Hoja2.Cells(4, i + 6).Interior.Color = RGB(26, 116, 28)

Hoja2.Cells(6, i + 6).Interior.Color = RGB(26, 116, 28)

Hoja2.Cells(8, i + 6).Interior.Color = RGB(26, 116, 28)

Hoja2.Cells(3, i + 6).Interior.Color = RGB(110, 11, 400)

Hoja2.Cells(5, i + 6).Interior.Color = RGB(100, 11, 400)

Hoja2.Cells(7, i + 6).Interior.Color = RGB(100, 11, 400)

Hoja2.Cells(9, i + 6).Interior.Color = RGB(100, 11, 400)

Next

'Calculando minimo, maximo, desviacion estendar y media

For i = 2 To 6

Hoja2.Cells(2, i + 6) = Hoja1.Cells(1, i) + " Minimo "

Hoja2.Cells(4, i + 6) = Hoja1.Cells(1, i) + " Maximo "

Hoja2.Cells(6, i + 6) = Hoja1.Cells(1, i) + " Media "

Hoja2.Cells(8, i + 6) = Hoja1.Cells(1, i) + " Desviacion Estandar "

Hoja2.Cells(3, i + 6) = WorksheetFunction.Min(Range(Hoja1.Cells(2, i), Hoja1.Cells(67, i)))

Hoja2.Cells(5, i + 6) = WorksheetFunction.Max(Range(Hoja1.Cells(2, i), Hoja1.Cells(67, i)))

Hoja2.Cells(7, i + 6) = WorksheetFunction.Sum(Range(Hoja1.Cells(2, i), Hoja1.Cells(67, i)))

Hoja2.Cells(9, i + 6) = WorksheetFunction.StDev(Range(Hoja1.Cells(2, i), Hoja1.Cells(67, i)))

Next

End Sub