Saltar al contenido

Como crear ayuda en la funciones personales


Recommended Posts

publicado

Estimados amigos del foro:

Quería preguntarles si se pueden crear a nivel de una macro las ayudas explicando las variables de una formula o función personalizadas o definidas por el usuario

Que esten bien

saludos

publicado

______________________________________________________________________

Directamente de la Ayuda VBA:

Application.MacroOptions(Macro, Description, HasMenu, MenuText, HasShortcutKey, ShortcutKey, Category, StatusBar, HelpContextID, HelpFile, ArgumentDescriptions)

Parámetros

Macro Opcional Variant Nombre de la macro o nombre de una función definida por el usuario.

Description Opcional Variant Descripción de la macro.

HasMenu Opcional Variant Este argumento se omite.

MenuText Opcional Variant Este argumento se omite.

HasShortcutKey Opcional Variant True para asignar a la macro una tecla de método abreviado (también debe especificarse el argumento ShortcutKey). Si el argumento es False, no se asignará ninguna tecla de método abreviado a la macro. Si la macro ya tiene tecla de método abreviado, ésta se eliminará al establecer el valor del argumento en False. El valor predeterminado es False.

ShortcutKey Opcional Variant Requerido si HasShortcutKey es True; en caso contrario, se omite. Es la tecla de método abreviado.

Category Opcional Variant Entero que especifica una categoría de función de macro existente (por ejemplo, Financiera, Fecha y hora o Definida por el usuario). Vea el apartado de comentarios para determinar los enteros asignados a las categorías integradas. Además, puede especificar una cadena para una categoría personalizada. Si proporciona una cadena, se tratará como el nombre de categoría que se muestra en el cuadro de diálogo Insertar función. Si el nombre de categoría no se ha usado nunca, se definirá una nueva categoría con ese nombre. Si usa un nombre de categoría que coincide con el de una categoría integrada (vea la lista en el apartado de comentarios), Microsoft Excel asignará la función definida por el usuario a dicha categoría integrada.

StatusBar Opcional Variant Texto de la barra de estado para la macro.

HelpContextID Opcional Variant Entero que especifica el número de Id. de contexto del tema de la Ayuda asignado a la macro.

HelpFile Opcional Variant Nombre del archivo de Ayuda que contiene el tema definido por HelpContextId.

ArgumentDescriptions Opcional Variant Las descripciones de los argumentos de una función definida por el usuario que se muestran en el cuadro de diálogo Argumentos de función.

De la página Excel Templates | Excel Add-ins and Excel Help with formulas and VBA Macros:

There are at least 2 ways you can use to add a description to you UDF's, one is relatively well known, while the other is a simple but little known method.

Lets use the better known method first.

1. Open Up The VBE (Alt+F11) And Select Anywhere Within Your Function Code.

2. Now Push F2 To Open The "Object Browser".

3. At The Top Of The Object Browser There Are 2 Drop Down Boxes. Click The Top One And Select "VBAProject".

4. You Should Now Have All Modules And Global Objects Showing In The "Classes" Box Situated At The Bottom Of The ObjectBrowser.

5. Click On The Name Of The Module That Houses Your UDF.

6. In The "Members Of..." Box To The Right You Should See The Names Of All Functions And Procedures Within The Selected Module.

7. Simply Right Click On The Name Of Your UDF And Select "Properties".

8. Type A Description For Your UDF, Then Click Ok And Then Save.

Now here is the little known method. This is best done before you write your UDF.

1. Go To Tools>Macro>Record New Macro.

2. In The Description Box, Type A Description For Your UDF. Type The Name Of Your UDF And Click Ok.

3. Now Stop Recording.

4. Open The VBE (Alt+F11) And Replace The Word "Sub" With "Function"

5. Add Your Function Arguments As Normal.

_______________________________________________________________________

publicado

Buenas @[uSER=46507]Macro Antonio[/uSER] veamos lo que comentas

______________________________________________________________________

Directamente de la Ayuda VBA:

Application.MacroOptions(Macro, Description, HasMenu, MenuText, HasShortcutKey, ShortcutKey, Category, StatusBar, HelpContextID, HelpFile, ArgumentDescriptions)

Parámetros

Macro Opcional Variant Nombre de la macro o nombre de una función definida por el usuario.

Description Opcional Variant Descripción de la macro.

HasMenu Opcional Variant Este argumento se omite.

MenuText Opcional Variant Este argumento se omite.

HasShortcutKey Opcional Variant True para asignar a la macro una tecla de método abreviado (también debe especificarse el argumento ShortcutKey). Si el argumento es False, no se asignará ninguna tecla de método abreviado a la macro. Si la macro ya tiene tecla de método abreviado, ésta se eliminará al establecer el valor del argumento en False. El valor predeterminado es False.

ShortcutKey Opcional Variant Requerido si HasShortcutKey es True; en caso contrario, se omite. Es la tecla de método abreviado.

Category Opcional Variant Entero que especifica una categoría de función de macro existente (por ejemplo, Financiera, Fecha y hora o Definida por el usuario). Vea el apartado de comentarios para determinar los enteros asignados a las categorías integradas. Además, puede especificar una cadena para una categoría personalizada. Si proporciona una cadena, se tratará como el nombre de categoría que se muestra en el cuadro de diálogo Insertar función. Si el nombre de categoría no se ha usado nunca, se definirá una nueva categoría con ese nombre. Si usa un nombre de categoría que coincide con el de una categoría integrada (vea la lista en el apartado de comentarios), Microsoft Excel asignará la función definida por el usuario a dicha categoría integrada.

StatusBar Opcional Variant Texto de la barra de estado para la macro.

HelpContextID Opcional Variant Entero que especifica el número de Id. de contexto del tema de la Ayuda asignado a la macro.

HelpFile Opcional Variant Nombre del archivo de Ayuda que contiene el tema definido por HelpContextId.

ArgumentDescriptions Opcional Variant Las descripciones de los argumentos de una función definida por el usuario que se muestran en el cuadro de diálogo Argumentos de función.

De la página Excel Templates | Excel Add-ins and Excel Help with formulas and VBA Macros:

There are at least 2 ways you can use to add a description to you UDF's, one is relatively well known, while the other is a simple but little known method.

Lets use the better known method first.

1. Open Up The VBE (Alt+F11) And Select Anywhere Within Your Function Code.

2. Now Push F2 To Open The "Object Browser".

3. At The Top Of The Object Browser There Are 2 Drop Down Boxes. Click The Top One And Select "VBAProject".

4. You Should Now Have All Modules And Global Objects Showing In The "Classes" Box Situated At The Bottom Of The ObjectBrowser.

5. Click On The Name Of The Module That Houses Your UDF.

6. In The "Members Of..." Box To The Right You Should See The Names Of All Functions And Procedures Within The Selected Module.

7. Simply Right Click On The Name Of Your UDF And Select "Properties".

8. Type A Description For Your UDF, Then Click Ok And Then Save.

Now here is the little known method. This is best done before you write your UDF.

1. Go To Tools>Macro>Record New Macro.

2. In The Description Box, Type A Description For Your UDF. Type The Name Of Your UDF And Click Ok.

3. Now Stop Recording.

4. Open The VBE (Alt+F11) And Replace The Word "Sub" With "Function"

5. Add Your Function Arguments As Normal.

_______________________________________________________________________

Bien solo sirve para la versión 2010 en adelante para las versiones anteriores no existe dicha funcionalidad pero si es posible crear los argumentos con la funcionalidad Application.ExecuteExcel4Macro.

Bien por otro lado comentas

Por favor, te importaría subir el archivo, es que el enlace Conversión Código Color en Hexadecimal, Decimal y/o RGB obliga a registrarse en ForoExcel - Ayuda en Excel y VBA.

Bien la razón de no adjuntar dicho fichero en este lugar es larga y tediosa de contar por lo que me ahorrare dicha parte pero te comento que No

Un saludo

publicado
Estimados amigos del foro:

Quería preguntarles si se pueden crear a nivel de una macro las ayudas explicando las variables de una formula o función personalizadas o definidas por el usuario

Que esten bien

saludos

Hola

Por aqui parte de lo que buscas

Application.MacroOptions | Ayuda Excel

Por aqui desde la pagina de desarrollador

Método Application.MacroOptions (Excel)

Aunque lo de Logroastur es mas completo

Saludos

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      187
    • Comentarios
      97
    • Revisiones
      29

    Más información sobre "Un juego del Rabino en Excel"
    Última descarga
    Por pegones1

    2    1

  • Crear macros Excel

  • Mensajes

    • Que tal nuevamente,  adjunto una solución alternativa: =MAX(A:.A)-BYROW(F4:.AK20,LAMBDA(r,BUSCAR(2,1/(r=0),F3:.AK3))) Cabe mencionar que esta solución requiere funciones nuevas como RECORTAR.RANGO. CONTADOR FINAL (Solucion).xlsb
    • Buenos días,  espero se encuentren bien de salud compañeros, Favor me podrían ayuda con lo siguientes como se podría hacer cuando tengo una tabla dinámica que  amedida que se aumente las columnas fechas con data un formula que se coloco al final busque o analice siempre la ultima fila y columna de la fecha. Coloco un ejemplo
    • @JSDJSD Excelentes, GRACIAS POR TU SOPORTE , me ayudo demasiado es exactamente lo que quería. 5 ESTRELLAS
    • 'Opción 1 Sub FiltrarSKUPorFecha(): Application.ScreenUpdating = False Dim ultimaFila As Long, fila As Long Dim diccionarioSKU As Object Dim listaEliminar As Object Dim fechaActual As String, fechaSiguiente As String Dim f As Variant With Sheets("Consolidado") ultimaFila = .Cells(.Rows.Count, 1).End(xlUp).Row ' Crear diccionarios para comparar SKU y almacenar filas a eliminar Set diccionarioSKU = CreateObject("Scripting.Dictionary") Set listaEliminar = CreateObject("Scripting.Dictionary") ' Recorrer desde la primera fila hasta la penúltima For fila = 2 To ultimaFila - 1 fechaActual = .Cells(fila, 1).Value fechaSiguiente = .Cells(fila + 1, 1).Value ' Solo comparar la fecha actual con la siguiente (inmediatamente superior) If fechaActual <> fechaSiguiente Then diccionarioSKU.RemoveAll ' Limpiar el diccionario antes de llenarlo ' Guardar los SKU de la fecha siguiente (solo de la siguiente) For f = fila + 1 To ultimaFila If .Cells(f, 1).Value <> fechaSiguiente Then Exit For diccionarioSKU(.Cells(f, 2).Value) = 1 Next f ' Revisar los SKU de la fecha actual y marcar los que deben eliminarse For f = fila To 2 Step -1 If .Cells(f, 1).Value <> fechaActual Then Exit For ' Solo eliminar si el SKU no está en la fecha siguiente If Not diccionarioSKU.exists(.Cells(f, 2).Value) Then listaEliminar(f) = 1 ' Marcar fila para eliminar después End If Next f ' Ya no es necesario seguir buscando después de comparar la primera y la siguiente fecha Exit For End If Next fila ' Eliminar las filas marcadas sin afectar el bucle principal For Each f In listaEliminar.keys .Rows(f).Delete Next End With MsgBox "Completado correctamente.", vbInformation End Sub 'Opción 2 Sub FiltrarSKUPorFecha1(): Application.ScreenUpdating = False Dim ultimaFila As Long, fila As Long Dim listaEliminar As Collection Dim fechaActual As String, fechaSiguiente As String Dim f As Variant, i As Long Dim SKUExiste As Boolean With Sheets("Consolidado") ultimaFila = .Cells(.Rows.Count, 1).End(xlUp).Row ' Inicializar la colección para marcar las filas a eliminar Set listaEliminar = New Collection ' Recorrer desde la primera fila hasta la penúltima For fila = 2 To ultimaFila - 1 fechaActual = .Cells(fila, 1).Value fechaSiguiente = .Cells(fila + 1, 1).Value ' Solo comparar la fecha actual con la siguiente (inmediatamente superior) If fechaActual <> fechaSiguiente Then ' Revisar los SKU de la fecha actual y marcar los que deben eliminarse For f = fila To 2 Step -1 If .Cells(f, 1).Value <> fechaActual Then Exit For ' Comprobar si el SKU está en la fecha siguiente SKUExiste = False For i = fila + 1 To ultimaFila If .Cells(i, 1).Value <> fechaSiguiente Then Exit For If .Cells(i, 2).Value = .Cells(f, 2).Value Then SKUExiste = True Exit For End If Next i ' Si el SKU no se encuentra en la fecha siguiente, marcar para eliminar If Not SKUExiste Then listaEliminar.Add f ' Marcar fila para eliminar después End If Next f ' Ya no es necesario seguir buscando después de comparar la primera y la siguiente fecha Exit For End If Next fila ' Eliminar las filas marcadas sin afectar el bucle principal For Each f In listaEliminar .Rows(f).Delete Next f End With MsgBox "Completado correctamente.", vbInformation End Sub   TABLA ELIMINAR.xlsm
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.