Visual Basic - Error 424. Se requiere objeto

Life is soft - evento anual de software empresarial
 
Vista:

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)


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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.117
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Error 424. Se requiere objeto

Publicado por Andres Leonardo (1798 intervenciones) el 20/05/2016 15:57:48
pODRIAS PONER EL CODIGO DE ESTA FUNCION

Distr.Log.Inv???
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 147
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Error 424. Se requiere objeto

Publicado por Juan Gilberto (323 intervenciones) el 21/05/2016 18:38:26
Te falta referenciar una libreria en tu proyecto
o declarar una libreria en en un modulo o formulario
donde se encuentra ese procedimiento o funcion
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Error 424. Se requiere objeto

Publicado por Alejandra (2 intervenciones) el 22/05/2016 04:51:44
Mil gracias. Lo solucioné agregando WorksheetFunction. antes del nombre de la función.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar