Hoja Internacional de macros "xl"

[jackl007]

Resumen: Como crear funciones sin usar macros?

Hola amigos, estuve programando un poco y tuve la necesidad de crear una funcion llamada: "CONCATENAR.SI", que sirva para concatenar celdas si es que cumplen una condición, y tengan un sepadador.

Hice mi codigo:

Function CONCATENARSI(ByVal rango As range, ByVal criterio As String, ByVal rango_c As range, ByVal sep As String) As String

    'Concatena celdas si cumplen una condición

    Dim celda As Variant: Dim dif As Integer

    dif = rango.End(xlDown).Row - rango.Rows.Count

    For Each celda In rango.Cells

        If celda.Value = criterio Then

            If rango_c(celda.Row - dif, 1) <> "" Then

                CONCATENARSI = CONCATENARSI & rango_c(celda.Row - dif, 1) & sep

            End If

        End If

    Next celda

    If Len(CONCATENARSI) > Len(sep) Then

        CONCATENARSI = Mid(CONCATENARSI, 1, Len(CONCATENARSI) - Len(sep))

    End If

End Function

[/CODE]

Todo bien, pero buscando en Google una función más nativa, para que sea más rapida, ya que trabajo con hasta 20'000 datos y esa función se hace muy lenta.

Me encontré que alguien habia creado la funcion [b]CONCATENAR.SI [/b]en excel [b]sin usar macros.

[/b]

El autor habla de una Hoja Internacional de macros "xl" que no se puede visualizar a simple vista.

Dejo el enlace del autor: Concatenar SI funcion excel - officefull (Word, Excel, Calc, Writer,...)

Mi pregunta concreta es: como demonios puso el codigo en esa hoja? he sido capas de visualizar la hoja, pero no de ver el codigo fuente donde se defina esa función.

Si alguien quiere ver esa hoja: "xl" que esta oculta, en el archivo que descarguen coloquen:

[CODE]Sub Mostrar()
Sheets("xl").Visible = True
End Sub[/CODE]

Me he quedado sorprendido, ya que esa hoja .xls tiene un procedimiento que permanece oculto en una hoja internacional de macros, y me da curiosidad por saber más. No he encontrado información util que me explique lo que realmente pasa.

Alguien sabe?

Saludos desde Piura, Perú.

[rolano]

Hola revisa este enlace macrofuncion en ingles y español formato word

Notas:

Palabras de Héctor Miguel

Nota: En la apertura del archivo al tratarse de Macro

funciones 4.0 nos puede pedir que habilitemos el contenido

para su correcto funcionamiento.

lleva una "Hoja Internacional de macros" de nombre "macro1" (que tampoco

puedes ver en el menu "Formato/Hoja/Mostrar...")

se oculto desde la ventana de inmediato con la

instruccion: sheets("macro1").visible = xlsheetveryhidden

(ya sabes que hacer para mostrarla) )

sheets("macro1").visible = xlsheetVisible

sheets("macro1").activate

El motor de las "viejas" Macro funciones de Excel 4.0

continúan teniendo la misma potencia... nada que envidiar

a las nuevas macros VBA

http://excelilove.blogspot.com/2012/11/archivo-macro-funciones-excel-40.html