Lluvia

Dispone del siguiente archivo de Excel: lluvia.xlsm

Hoja1

Vamos a generar un poco de lluvia con una macro. De forma aleatoria generamos la posición de una celda dentro del un area, y en ese punto hacemos caer una gota de lluvia representada por un asterisco (*). Esta idea tan simple es la introducción que nos permite entender cómo se utiliza el método de simulación de Monte Carlo para el cálculo de áreas.

Código

Sub puntos_aleatorios()
Dim i As Integer
For i = 1 To 100
    Cells(Int(Rnd * 30) + 1, Int(Rnd * 30) + 1) = "*"
Next i
End Sub

Sub Borra()
Range("A1:AD30").ClearContents
Range("AQ1").Select
End Sub

Rnd genera un número aleatorio entre 0 y 1. Equivale a la función =ALEATORIO().

Hoja2

En la Hoja2 vamos a calcular estimar áreas usando la lluvia.