Error 424. Se requiere objeto
Publicado por Alejandra (2 intervenciones) el 20/05/2016 04:28:32
Buenas tardes,
Me podrían colaborar con este error. No soy muy experta en visual basic, pero estoy urgida por solucionar este problema...POR FAVOR AYUDAAAAA!!!!!! gracias.
El código es éste y el error sale en la línea que dice: x = Distr.Log.Inv(aleatorio, media, desviacion)
Me podrían colaborar con este error. No soy muy experta en visual basic, pero estoy urgida por solucionar este problema...POR FAVOR AYUDAAAAA!!!!!! gracias.
El código es éste y el error sale en la línea que dice: x = Distr.Log.Inv(aleatorio, media, desviacion)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Private Sub CommandButton8_Click()
Dim media As Double
Dim desviacion As Double
Dim maximo As Double
Dim minimo As Double
Dim x As Double
Dim aleatorio As Double
Dim z As Double
minimo = Workbooks("Productividad Técnicos de Calle").Sheets("Hoja1").Cells(7, 7)
maximo = Workbooks("Productividad Técnicos de Calle").Sheets("Hoja1").Cells(7, 6)
media = Workbooks("Productividad Técnicos de Calle").Sheets("Hoja1").Cells(7, 5)
desviacion = Workbooks("Productividad Técnicos de Calle").Sheets("Hoja1").Cells(7, 6)
aleatorio = Rnd()
If (Workbooks("Productividad Técnicos de Calle").Sheets("Hoja1").Cells(7, 3) = "Uniforme") Then
x = minimo + (maximo - minimo) * aleatorio
Else
If (Workbooks("Productividad Técnicos de Calle").Sheets("Hoja1").Cells(7, 3) = "Triangular") Then
If aleatorio < ((media - minimo) / (maximo - minimo)) Then
x = minimo + Sqr((media - minimo) * (maximo - minimo) * aleatorio)
Else
x = maximo - Sqr((maximo - minimo) * (maximo - media) * (1 - aleatorio))
End If
Else
If (Workbooks("Productividad Técnicos de Calle").Sheets("Hoja1").Cells(7, 3) = "Exponencial") Then
x = -media * Log(aleatorio)
Else
If (Workbooks("Productividad Técnicos de Calle").Sheets("Hoja1").Cells(7, 3) = "Lognormal") Then
[u] x = Distr.Log.Inv(aleatorio, media, desviacion)
Else
If (Workbooks("Productividad Técnicos de Calle").Sheets("Hoja1").Cells(7, 3) = "Normal") Then
x = Distr.NORM.Inv(aleatorio, media, desviacion)
End If
End If
End If
End If
End If
Workbooks("Productividad Técnicos de Calle").Sheets("Hoja1").Cells(7, 8) = x
End Sub
Valora esta pregunta
0
