Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

FUNCION VOLATIL ??

27/06/2007 - 04:08 por Orfao | Informe spam
Ayuda Hacer una pregunta
Function SGLOBAL1(A As Range, B As Range, C As Integer, D As Range)
Dim X As Integer
Dim Y As Integer
SGLOBAL1 = 0
X = A.Count
For Y = 0 To X - 1
If VBAProject.Hoja1.Cells(A.Row + Y, A.Column) <> "" Then
SGLOBAL1 = SGLOBAL1 +
Application.WorksheetFunction.VLookup(VBAProject.Hoja1.Cells(A.Row + Y,
A.Column), B, C, 0) * VBAProject.Hoja1.Cells(D.Row + Y, D.Column)
End If
Next
End Function
Function SGLOBAL2(A As Range, B As Range, C As Integer, D As Range, E As
Range)
Dim X As Integer
Dim Y As Integer
SGLOBAL2 = 0
X = A.Count
For Y = 0 To X - 1
If VBAProject.Hoja1.Cells(A.Row + Y, A.Column) <> "" Then
SGLOBAL2 = SGLOBAL2 +
Application.WorksheetFunction.VLookup(VBAProject.Hoja1.Cells(A.Row + Y,
A.Column), B, C, 0) * VBAProject.Hoja1.Cells(D.Row + Y, D.Column) *
VBAProject.Hoja1.Cells(E.Row + Y, E.Column)
End If
Next
End Function
Function SGLOBAL3(A As Range, B As Range, C As Integer, D As Range, E As
Range, F As Integer)
Dim X As Integer
Dim Y As Integer
SGLOBAL3 = 0
X = A.Count
For Y = 0 To X - 1
If VBAProject.Hoja1.Cells(A.Row + Y, A.Column) <> "" Then
SGLOBAL3 = SGLOBAL3 +
Application.WorksheetFunction.VLookup(VBAProject.Hoja1.Cells(A.Row + Y,
A.Column), B, C, 0) * VBAProject.Hoja1.Cells(D.Row + Y, D.Column) *
VBAProject.Hoja1.Cells(E.Row + Y, E.Column) *
Application.WorksheetFunction.VLookup(VBAProject.Hoja1.Cells(A.Row + Y,
A.Column), B, F, 0) / 100
End If
Next
End Function



Me alimento del conocimiento de todos
email Siga el debateRespuesta 8 respuestasRespuesta Tengo una respuesta

Preguntas similare

Leer las respuestas

#6 Héctor Miguel
29/06/2007 - 06:56 | Informe spam
hola, moises !

Dejame analizar (Estudiar) los links a que te refieres y hacer algunas pruebas luego te comento sobre lo resultante de todo.
Esto es sobre un mismo post anterior (FUNCION SGLOBA) ... (si no me equivoco creo que te mande copia de parte del libro)
pero decidi al final optar por la funcion la cual se ejecuta de una manera mucho mas rapida (No entiendo porque)
pero en fin... voy a probar...
Ah... otra cosa. en el post referente a FORMULA EXTENSA ...
Hice un ultimo comentario y les califique como acertada vuestras respuestas pero
... no se si por el hecho mismo de calificarlos implica que todo quedo ahi y no hubo continuidad sobre el tema.
me quedaron algunas dudas (En especial si se referian a mi cuando hablaban de OP ???)
Gracias de nuevo y discupa mi necedad...



1) con especto del termino OP, efectivamente, se trata de una referencia a Ti [en ese caso]...
es un termino adoptado en las comunidades entre usuarios desde UseNet
significa: Original Post(er) [la consulta original o quien hizo la consulta original/inicial] :))

2) con relacion a las [otras ?] dudas que te quedaron de esa precisa consulta...
[si no recuerdo mal] tu comentario fue que no habias tenido tiempo [hasta ese momento] de probar las propuestas -?-
por lo que *ofreciste regresar* a comentar los resultados [y/o nuevas dudas ?]

3) hablando de la *parte* del libro en cuestion que enviaste [a KL y a mi ?]
a) [particularmente] creo que se trata de *solo eso*... UNA PARTE de tu libro [aunque de varias hojas ocultas y demas] :))
b) no incluye las funciones de esta consulta [por ello es que no conozco la forma de llamarlas/usarlas/...] -?-

4) por lo que se refiere a la mayor rapidez al usar una funcion personalizada en lugar de formulas de hoja de calculo...
[para este preciso caso] es probable que mientras puedas mantener la funcion personalizada como NO VOLATIL...
[seguramente] mejoraria el rendimiento/rapidez/... en los re/calculos del modelo
[siempre y cuando NO se vean *afectados* por los demas *imponderables* y posibles causas de... ???]

[por eso -casi- siempre *cierro* mis propuestas con algo como]...
si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
Respuesta Responder a este mensaje
#7 Orfao
29/06/2007 - 07:14 | Informe spam
Gracias por la aclaratoria...y por la rapidez de tus repuestas. (Me gusta eso
! )
Tan pronto estudie las variantes propuestas te lo hare saber y te enviare no
parte sino el trabajo en completo para tengas una vision mas amplia sobre mi
trabajo y por ende puedas continuar ayudandome que bastante falta me hace.
(A veces soy algo torpe, y creo que los demas tienen el problema a la vista
sin yo haberselos mostrado. Sorry..)


Me alimento del conocimiento de todos


"Héctor Miguel" wrote:

hola, moises !

> Dejame analizar (Estudiar) los links a que te refieres y hacer algunas pruebas luego te comento sobre lo resultante de todo.
> Esto es sobre un mismo post anterior (FUNCION SGLOBA) ... (si no me equivoco creo que te mande copia de parte del libro)
> pero decidi al final optar por la funcion la cual se ejecuta de una manera mucho mas rapida (No entiendo porque)
> pero en fin... voy a probar...
> Ah... otra cosa. en el post referente a FORMULA EXTENSA ...
> Hice un ultimo comentario y les califique como acertada vuestras respuestas pero
> ... no se si por el hecho mismo de calificarlos implica que todo quedo ahi y no hubo continuidad sobre el tema.
> me quedaron algunas dudas (En especial si se referian a mi cuando hablaban de OP ???)
> Gracias de nuevo y discupa mi necedad...

1) con especto del termino OP, efectivamente, se trata de una referencia a Ti [en ese caso]...
es un termino adoptado en las comunidades entre usuarios desde UseNet
significa: Original Post(er) [la consulta original o quien hizo la consulta original/inicial] :))

2) con relacion a las [otras ?] dudas que te quedaron de esa precisa consulta...
[si no recuerdo mal] tu comentario fue que no habias tenido tiempo [hasta ese momento] de probar las propuestas -?-
por lo que *ofreciste regresar* a comentar los resultados [y/o nuevas dudas ?]

3) hablando de la *parte* del libro en cuestion que enviaste [a KL y a mi ?]
a) [particularmente] creo que se trata de *solo eso*... UNA PARTE de tu libro [aunque de varias hojas ocultas y demas] :))
b) no incluye las funciones de esta consulta [por ello es que no conozco la forma de llamarlas/usarlas/...] -?-

4) por lo que se refiere a la mayor rapidez al usar una funcion personalizada en lugar de formulas de hoja de calculo...
[para este preciso caso] es probable que mientras puedas mantener la funcion personalizada como NO VOLATIL...
[seguramente] mejoraria el rendimiento/rapidez/... en los re/calculos del modelo
[siempre y cuando NO se vean *afectados* por los demas *imponderables* y posibles causas de... ???]

[por eso -casi- siempre *cierro* mis propuestas con algo como]...
si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.



Respuesta Responder a este mensaje
#8 Héctor Miguel
29/06/2007 - 07:23 | Informe spam
hola, moises !

Gracias por la aclaratoria...y por la rapidez de tus repuestas. (Me gusta eso ! )



=> *eso*... solo sucede... cuando *ando cerca* :))

Tan pronto estudie las variantes propuestas te lo hare saber y te enviare [...]



=> ok, tks.

(A veces... creo que los demas tienen el problema a la vista sin yo haberselos mostrado. Sorry..)



=> no te preocupes... *a veces*... esos *detalles* se pueden adivinar [+/-] o desprender de la consulta
[aunque en un gran numero de casos... no es tan sencillo o posible] :-((

saludos,
hector.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una pregunta AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida