Crear un Boton para una funcion

28/08/2007 - 01:30 por yuyo_79 | Informe spam
Cuando Creo una funcion, por ejemplo:
Function cagr(v0, vf, y0, yf)
cagr = ((vf / v0) ^ (1 / (yf - y0))) - 1

End Function

Como puedo crear un boton que pueda poner en la barra de herramientas de
excel que al presionarlo me abra el cuadro de "Function Arguments" para que
yo pueda ingresar los 4 valores que tiene mi funcion.
 

Leer las respuestas

#1 Héctor Miguel
28/08/2007 - 02:27 | Informe spam
hola, (...) ?

Cuando Creo una funcion, por ejemplo:
Function cagr(v0, vf, y0, yf)
cagr = ((vf / v0) ^ (1 / (yf - y0))) - 1
End Function

Como puedo crear un boton que pueda poner en la barra de herramientas de excel
que al presionarlo me abra el cuadro de "Function Arguments"
para que yo pueda ingresar los 4 valores que tiene mi funcion.



si quieres *evtarte la fatiga* de andar navegando por las funciones disponibles hasta encontrar la tuya...
necesitaras emplear el metodo sedkeys para proveer el nombre de tu funcion [asumiendo que siempre estara disponible]
con un procedimiento [o macro] +/- como alguno de los siguientes [puedes asignarlo a un atajo de teclado y/o a un objeto]

op1: insertar la funcion directamente en la celda/barra de formulas con los argumentos *desplegados* y listos para ser *sustituidos*:

Sub Pegar_mi_funcion()
On Error Resume Next
SendKeys "^+a"
SendKeys "=cagr("
End Sub

op2: a traves del dialogo integrado del asistente para pegar funciones:

Sub Pegar_funcion_personalizada()
SendKeys "cagr~"
Application.Dialogs(xlDialogFunctionWizard).Show
End Sub

[creo que] sobra mencionar que para que un procedimiento se ejecute, la aplicacion debera estar en *modo* de Listo
NO en modo de edicion/introduccion de datos ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Preguntas similares