Recorrer argumentos de una función

José_Santos · el 3 de agosto

Hola a todos,

¿Alguien sabe como se pueden recorrer los valores de los argumentos que se reciben en una función en VBA?

Estoy aprendiendo a utilizar JavaScript desde el propio Excel con Script Lab y hay una sentencia que es "arguments.length" que te da el número de argumentos que recibe la función, y con un bucle puedes recorrerlos ya que a cada argumento se accede a través de un índice. arguments[1], arguments[2], etc.

La verdad que no he visto nunca como hacer esto con VBA, si alguien tiene idea de cómo hacerlo, sería interesante aprenderlo (yo no lo he visto antes)

Saludos.

Héctor Miguel · el 3 de agosto

hablando de recorrer argumentos de fórmulas (en excel), creo que debes tener en consideración eventualidades como las siguientes:

- una fórmula podría referir argumentos y/o a funciones "anidadas" (varias)
- cada (posible) función anidada, podría referir a otros argumentos (diversos)
- dichos argumentos pudieran ser rangos, nombres, referencias externas, matrices constantes, UDF's, etc.

supongo que (más tarde o más temprano) no escaparás de la necesidad de...
- analizar la fórmula
- analizar funciones anidadas
- distinguir tipos de argumentos
- proceder con (alg)una especie de bucle para... (???)

por si quieres comentar los detalles que dejas "en el tintero" ?

José_Santos · el 4 de agosto

Hace 9 horas, Héctor Miguel dijo:

hablando de recorrer argumentos de fórmulas (en excel), creo que debes tener en consideración eventualidades como las siguientes:

- una fórmula podría referir argumentos y/o a funciones "anidadas" (varias)
- cada (posible) función anidada, podría referir a otros argumentos (diversos)
- dichos argumentos pudieran ser rangos, nombres, referencias externas, matrices constantes, UDF's, etc.

supongo que (más tarde o más temprano) no escaparás de la necesidad de...
- analizar la fórmula
- analizar funciones anidadas
- distinguir tipos de argumentos
- proceder con (alg)una especie de bucle para... (???)

por si quieres comentar los detalles que dejas "en el tintero" ?

La verdad que cualquier solución a las variantes que planteas me hubiera valido. Pero para no complicarlo mucho te pongo un ejemplo sencillo;

Function Ejemplo (edad1, edad2)

end function

¿Hay alguna manera, con VBA, que te diga cuantos argumentos tiene esa función y qué valores ha recibido) El código debe valer para cualquier función ya tenga 2, 3 o 10 argumentos.

Antoni · el 4 de agosto

No se si esto te puede servir:

Ejemplos de ParamArray

Un ejemplo de código:

Option Explicit  
  
  
' función que utiliza ParamArray  
Private Function Calcular_Maximo(ParamArray Los_Valores() As Variant) As Variant  
  
    Dim i As Integer, Maximo As Variant  
      
    'Recorre el array  
    For i = LBound(Los_Valores) + 1 To UBound(Los_Valores)  
        If Maximo < Los_Valores(i) Then  
            Maximo = Los_Valores(i)  
        End If  
    Next  
  
    Calcular_Maximo = Maximo  
End Function  
  
Private Sub Command1_Click()  
    'Le envía la lista de parámetros  
    MsgBox Calcular_Maximo(165, 654, 6897, 265, 6598, 999999), vbInformation  
  
End Sub

Héctor Miguel · el 4 de agosto

Hace 12 horas, José_Santos dijo:

cualquier solución a las variantes que planteas me hubiera valido

disculpa que insista en que el abanico de (posibles) combinaciones en fórmulas de excel, da para temas aparte, por lo que no existe forma universal de analizarlas

Hace 12 horas, José_Santos dijo:

pongo un ejemplo sencillo;

Function Ejemplo (edad1, edad2)

end function

1) este caso, si podemos asumir que se llama a solo una función y le pasas los argumentos como referencia de celdas (únicas), te lo resuelve esta UDF:

Function Argumentos(celda As Range) As String: Dim cadena As String, args, n As Long, msj As String
  With celda: cadena = Mid(.Formula, 2, Len(.Formula) - 2): End With: msj = "argumentos utilizados:"
  With CreateObject("vbscript.regexp")
    .Global = True: .IgnoreCase = True: .Pattern = "\w+\(": args = Split(.Replace(cadena, ""), ","): End With
  For n = LBound(args) To UBound(args): msj = msj & " " & n + 1 & ") " & args(n) & " = " & Evaluate(args(n)): Next
  Argumentos = msj
End Function

el que hagas con cada uno de los argumentos, ya depende de tus intenciones o necesidades ?

2) el "problema" empieza cuando dices:

Hace 12 horas, José_Santos dijo:

El código debe valer para cualquier función

imagina una fórmula de este tipo:

=si(e4=i$3,entero((contar.si(e$3:e4,i$3)-1)/3)+1+(abs((3*o$1)-residuo(contar.si(e$3:e4,i$3)-1,3))+(o$1=0))/10,0)

José_Santos · el 4 de agosto

Hace 2 horas, Antoni dijo:

No se si esto te puede servir:

Ejemplos de ParamArray

Un ejemplo de código:


Option Explicit  
  
  
' función que utiliza ParamArray  
Private Function Calcular_Maximo(ParamArray Los_Valores() As Variant) As Variant  
  
    Dim i As Integer, Maximo As Variant  
      
    'Recorre el array  
    For i = LBound(Los_Valores) + 1 To UBound(Los_Valores)  
        If Maximo < Los_Valores(i) Then  
            Maximo = Los_Valores(i)  
        End If  
    Next  
  
    Calcular_Maximo = Maximo  
End Function  
  
Private Sub Command1_Click()  
    'Le envía la lista de parámetros  
    MsgBox Calcular_Maximo(165, 654, 6897, 265, 6598, 999999), vbInformation  
  
End Sub

Gracias Antoni,

Es más o menos lo que más se asemeja a la opción que detallaba de JavaScript

Saludos

José_Santos · el 4 de agosto

Hace 29 minutos , Héctor Miguel dijo:
disculpa que insista en que el abanico de (posibles) combinaciones en fórmulas de excel, da para temas aparte, por lo que no existe forma universal de analizarlas

1) este caso, si podemos asumir que se llama a solo una función y le pasas los argumentos como referencia de celdas (únicas), te lo resuelve esta UDF:
Function Argumentos(celda As Range) As String: Dim cadena As String, args, n As Long, msj As String
  With celda: cadena = Mid(.Formula, 2, Len(.Formula) - 2): End With: msj = "argumentos utilizados:"
  With CreateObject("vbscript.regexp")
    .Global = True: .IgnoreCase = True: .Pattern = "\w+\(": args = Split(.Replace(cadena, ""), ","): End With
  For n = LBound(args) To UBound(args): msj = msj & " " & n + 1 & ") " & args(n) & " = " & Evaluate(args(n)): Next
  Argumentos = msj
End Function
el que hagas con cada uno de los argumentos, ya depende de tus intenciones o necesidades ?

2) el "problema" empieza cuando dices:

imagina una fórmula de este tipo:
=si(e4=i$3,entero((contar.si(e$3:e4,i$3)-1)/3)+1+(abs((3*o$1)-residuo(contar.si(e$3:e4,i$3)-1,3))+(o$1=0))/10,0)

Gracias. El ejemplo de Antoni sirve para cualquier función... Lo pongo aquí más resumido...

' función que utiliza ParamArray
Private Function ejemplo(ParamArray Los_Valores() As Variant) As Variant
'Recorre el array
For i = LBound(Los_Valores) To UBound(Los_Valores)
MsgBox Los_Valores(i)
Next
End Function

Sub Prueba()
'Le envía la lista de parámetros
Max = ejemplo(165, 654, 6897, 265, 6598, 999999)
End Sub