Barra de fórmulas

[Antoni]

Hola a todos:

Después de mucho tiempo de aportes teóricos y a veces inútiles, hoy creo que el aporte puede ser de utilidad.

Se trata de una barra de fórmulas a imagen y semejanza de la de Excel.

Siempre he considerado a la barra de fórmulas de Excel como la mejor calculadora que existe, pero tiene un defecto, siempre necesitas una celda para ver el resultado, y eso en casos de que la hoja está protegida contra escritura es un problema, otros problemas serían que no suministra datos parciales y no permite recuperar fórmulas ni operandos usados con anterioridad.

He intentado suplir esas pequeñas deficiencias utilizando un formulario, reubicable en cualquier parte de la pantalla, que consta de una barra de fórmulas y de un cuadro con el resultado.

Se permite la interacción entre la hoja y formulario en todo momento, incluso en medio de una fórmula.

La fórmula es evaluada carácter a carácter mostrando el resultado parcial en la medida que la fórmula es correcta.

Todos los comandos de la barra de fórmulas funcionan con teclas de función, tanto desde la hoja como desde la propia barra de fórmulas.

Se pueden usar todas las funciones de Excel excepto las funciones lógicas: SUM(A1:B6)*5

También funciona como una calculadora normal: (3+4)*5

Se guardan todos los resultados intermedios.

Como es posible que queramos utilizar las teclas de función para los propios procesos de Excel, existe un mecanismo de activación/desactivación de las mismas.

Pulsar sobre el icono de ayuda del formulario para ver la lista de funciones.

Que lo disfruteis o no, ese va a ser un problema vuestro.

Saludos.

Barra de fórmulas.xls

[pegones1]

Me extraña que sea el primero en comentar esta maravillosa barra de fórmulas que has pergeñado excelentemente y a la que se le puede sacar tanta utilidad que me asombra que ésta sea la primera respuesta.

Macro Antonio te aseguro que la voy a disfrutar y a sustituir la barra de fórmulas original de Excel por esta tuya.

Una pega: hecho en falta F4 - Fórmula a celda activa

[Antoni]

Hola:

Pues tienes razón Pedro.

Subo una primera aproximación, pero le echare una pensada para facilitar el tema de las fórmulas.

Inicialmente no era el objetivo, pero procuraré hacer algo "chuli" como dice mi nieta.

Saludos

Barra de fórmulas II.xls

[pegones1]

Al pulsar F4, siento decir que la fórmula está en el inglés de las macros que no entiende el castellano de la celda. Por ejemplo:

=sum(A1:A5)*2

en lugar de:

=suma(A1:A5)*2

provocando error #¿NOMBRE?


[/CODE]

Será mejor cambiar la FormulaLocal por:

[CODE]Sub aFórmula()
ActiveCell.Formula = "=" & UserForm1.M
End Sub
[/CODE]

P.D.: Cuando dije que pergeñaste algo realmente útil, lo dije en el sentido de haberlo creado un genio como tú, que como todo buen genio alguna vez tiene lapsus, seguro que debidos al buen vino tomado mientras te diviertes haciendo estas excelentes aportaciones, que los romanos llamáis [b]"genium curare" o "genium placare"[/b].

[DBOX]Genio (mitología romana) - Wikipedia, la enciclopedia libre[/DBOX]

[Antoni]

Como puedes, ver mi dominio sobre las fórmulas es total,....jajaja

Y te corrijo, mientras hago estas cosas no bebo vino, bebo whisky escoces traído de Britania, aunque los barbaros del norte se resisten como gato panza arriba.