Wooldridge 2010 - Intro a la econometría

Sub pc()

Workbooks("PC1DATAb.xlsm").Activate

Worksheets("RESULTADOS").Select

Set datos = Worksheets("INFORMACION")

For a = 0 To 149

edad = Round(20 + 50 * Rnd)

datos.[b9].Offset(a, 0) = edad

If edad >= 20 And edad <= 30 Then

datos.[d9].Offset(a, 0) = "JOVEN"

ElseIf edad >= 31 And edad <= 50 Then

datos.[d9].Offset(a, 0) = "REGULAR"

ElseIf edad >= 51 And edad <= 70 Then

datos.[d9].Offset(a, 0) = "MAYOR"

End If

genero = Round(1 * Rnd)

If genero = 1 Then

datos.[c9].Offset(a, 0) = "M"

Else

datos.[c9].Offset(a, 0) = "F"

End If

ingresos = Round(14000 + 40000 * Rnd)

datos.[e9].Offset(a, 0) = ingresos

If ingresos >= 30000 And datos.[d9].Offset(a, 0) = "JOVEN" Then

datos.[f9].Offset(a, 0) = "AAA"

ElseIf ingresos >= 30000 And datos.[d9].Offset(a, 0) = "REGULAR" Then

datos.[f9].Offset(a, 0) = "AA"

ElseIf ingresos >= 30000 And datos.[d9].Offset(a, 0) = "MAYOR" Then

datos.[f9].Offset(a, 0) = "A"

ElseIf ingresos < 30000 And datos.[d9].Offset(a, 0) = "JOVEN" Then

datos.[f9].Offset(a, 0) = "B"

ElseIf ingresos < 30000 And datos.[d9].Offset(a, 0) = "REGULAR" Then

datos.[f9].Offset(a, 0) = "C"

ElseIf ingresos < 30000 And datos.[d9].Offset(a, 0) = "MAYOR" Then

datos.[f9].Offset(a, 0) = "D"

End If

Next a

genero = InputBox("¿Qué género está buscando? (M o F)")

Do Until genero = "M" Or genero = "F"

MsgBox ("Ha ingresado una respuesta errónea")

genero = InputBox("¿Qué género está buscando? (M o F)")

Loop

[d8] = genero

suma = 0

For b = 0 To 5

contador = 0

For a = 0 To 149

If genero = datos.[c9].Offset(a, 0) And [c11] = datos.[d9].Offset(a, 0) And [d15].Offset(0, b) = datos.[f9].Offset(a, 0) Then

contador = contador + 1

End If

Next a

[d16].Offset(0, b) = contador

suma = suma + contador

Next b

[b16] = genero

[c16] = [c11]

[e19] = suma

End Sub

...