Paso de valores a funcion desde hoja de calculo
Publicado por borja (1 intervención) el 03/11/2009 16:44:01
hola. buenos días.
Estoy desarrollando un codigo para el analisis de estructuras mediante Excel y VBA y tengo la siguiente duda.
La cuestion es que tengo un procedimiento llamado "prueba" que toma una serie de valores de una hoja de calculo, y los asigna a las variables "b" y "nc".
Luego tengo una función (pongamos que se llama fibra_neutra que depende de tres variables "b" y "nc" y "x".
Me gustaría saber si puedo definir dicha función de manera que a la misma solo tenga que meterle como parametros la variable "x", y que las otras dos variables las recoja directamente de la hoja de calculo.
A continuaicón figura el código al que hago referencia:
Option Explicit
Option Base 1
Public b As Double, h As Double
Public Sub prueba()
h = Range("A1")
nc = Range("A2")
sentencia1..
sentencia2...
End sub
------------------------------------------
function fibra_neutra(b,nc,x)
fibra_neutra=b*nc*x
end function
---------------------------------------
la idea sería poder convertir la funcion anterior en algo parecido a los siguiente:
function fibra_neutra(x)
h = Range("A1")
nc = Range("A2")
fibra_neutra=b*nc*x
end function
bueno. Gracias. espero haberme expresado con suficiente claridad.
Estoy desarrollando un codigo para el analisis de estructuras mediante Excel y VBA y tengo la siguiente duda.
La cuestion es que tengo un procedimiento llamado "prueba" que toma una serie de valores de una hoja de calculo, y los asigna a las variables "b" y "nc".
Luego tengo una función (pongamos que se llama fibra_neutra que depende de tres variables "b" y "nc" y "x".
Me gustaría saber si puedo definir dicha función de manera que a la misma solo tenga que meterle como parametros la variable "x", y que las otras dos variables las recoja directamente de la hoja de calculo.
A continuaicón figura el código al que hago referencia:
Option Explicit
Option Base 1
Public b As Double, h As Double
Public Sub prueba()
h = Range("A1")
nc = Range("A2")
sentencia1..
sentencia2...
End sub
------------------------------------------
function fibra_neutra(b,nc,x)
fibra_neutra=b*nc*x
end function
---------------------------------------
la idea sería poder convertir la funcion anterior en algo parecido a los siguiente:
function fibra_neutra(x)
h = Range("A1")
nc = Range("A2")
fibra_neutra=b*nc*x
end function
bueno. Gracias. espero haberme expresado con suficiente claridad.
Valora esta pregunta
0