Como quitar una funcion

El complemento "Calculadora" tiene una función llamada Arreglar. Es como sigue:

Function arreglar(strC As String) As Double
If InStr(strC, ",") = 0 Then
arreglar = Val(strC)
Exit Function
End If
arreglar = Val(Left(strC, InStr(strC, ",") - 1) & "." & Mid(strC, InStr(strC, ",") + 1))
End Function

La función está en un módulo normal del complemento, y lo que hace es verificar si en la entrada de números de la calculadora hay una coma como separador de los decimales, y si es así sustituirla por un punto para poder trabajar numéricamente con ella. En principio no debería ser necesaria, porque esto mismo lo hace la función de VBA Replace, pero la puse en el complemento porque dicha función Replace de VBA es relativamente reciente (no está en todas las versiones de Excel), así que preferí usar una escrita por mí.

La función no te aparecería en la lista de funciones definidas por el usuario si yo la hubiera declarado como privada, pero esto no pude hacerlo porque la usa el código del formulario del complemento, que lógicamente está en otro módulo (en el del propio formulario).

Tu mensaje me ha hecho ver que puedo evitar esta función personalizada sin tener que recurrir al Replace de VBA: al escribir el complemento no recordé que puedo usar también la función de Excel llamada SUSTITUIR (Substitute en el objeto WorksheetFunction), y es lo que voy a hacer. En los próximos días modificaré el código y volveré a "subir" el complemento a mi sitio web, así que te sugiero que te pases cuando quieras, a partir del martes, por ejemplo, y te lo bajes. Llamaré al fichero zip calculadora2.zip, para diferenciarlo del anterior. Antes de instalarlo tendrás que desinstalar la calculadora actual, desmarcándola en Herramientas->Complementos, y borrando el archivo calculadora.xla. Al hacer esto, verás que la función Arreglar desaparece de tu lista de UDFs.

Me alegra saber que esta modesta calculadora te está siendo de utilidad, y te agradezco que me hayas ayudado a mejorarla. Un saludo.


Fernando Arroyo
MS MVP - Excel


"Fco Bardales" escribió en el mensaje news:

Queridos amigos
Tengo Excell 2000, y hace una semana me aparece una funcion definida por el
usuario llamada
"arreglar" {Strc =arreglar() }, yo no he definido esta funcion,
las unicas definidas por mi son con respecto a macros grabadas en mi libro
"personal.xls".
Esta funcion se activa apenas se abre excel, y los unicos complementos
activos que tengo son el de "ayuda suma condicional" y el de "calculadora
excel", ( esta ultima, creacion de Fernando Arroyo y que por cierto es de
gran ayuda. Gracias Fernando.)
No se que hace esa funcion y no aparece ayuda para ello. ¿Cómo la elimino?

Gracias de antemano por su ayuda.

CPC Francisco Bardales

Gracias a ti Fernando :-))))

CPC Francisco Bardales

"Fernando Arroyo" escribió en el mensaje
news:
El complemento "Calculadora" tiene una función llamada Arreglar. Es como
sigue:

Function arreglar(strC As String) As Double
If InStr(strC, ",") = 0 Then
arreglar = Val(strC)
Exit Function
End If
arreglar = Val(Left(strC, InStr(strC, ",") - 1) & "." & Mid(strC,
InStr(strC, ",") + 1))
End Function

La función está en un módulo normal del complemento, y lo que hace es
verificar si en la entrada de números de la calculadora hay una coma como
separador de los decimales, y si es así sustituirla por un punto para poder
trabajar numéricamente con ella. En principio no debería ser necesaria,
porque esto mismo lo hace la función de VBA Replace, pero la puse en el
complemento porque dicha función Replace de VBA es relativamente reciente
(no está en todas las versiones de Excel), así que preferí usar una escrita
por mí.

La función no te aparecería en la lista de funciones definidas por el
usuario si yo la hubiera declarado como privada, pero esto no pude hacerlo
porque la usa el código del formulario del complemento, que lógicamente está
en otro módulo (en el del propio formulario).

Tu mensaje me ha hecho ver que puedo evitar esta función personalizada sin
tener que recurrir al Replace de VBA: al escribir el complemento no recordé
que puedo usar también la función de Excel llamada SUSTITUIR (Substitute en
el objeto WorksheetFunction), y es lo que voy a hacer. En los próximos días
modificaré el código y volveré a "subir" el complemento a mi sitio web, así
que te sugiero que te pases cuando quieras, a partir del martes, por
ejemplo, y te lo bajes. Llamaré al fichero zip calculadora2.zip, para
diferenciarlo del anterior. Antes de instalarlo tendrás que desinstalar la
calculadora actual, desmarcándola en Herramientas->Complementos, y borrando
el archivo calculadora.xla. Al hacer esto, verás que la función Arreglar
desaparece de tu lista de UDFs.

Me alegra saber que esta modesta calculadora te está siendo de utilidad, y
te agradezco que me hayas ayudado a mejorarla. Un saludo.


Fernando Arroyo
MS MVP - Excel


"Fco Bardales" escribió en el mensaje
news:

Queridos amigos
Tengo Excell 2000, y hace una semana me aparece una funcion definida por

el

usuario llamada
"arreglar" {Strc =arreglar() }, yo no he definido esta funcion,
las unicas definidas por mi son con respecto a macros grabadas en mi libro
"personal.xls".
Esta funcion se activa apenas se abre excel, y los unicos complementos
activos que tengo son el de "ayuda suma condicional" y el de "calculadora
excel", ( esta ultima, creacion de Fernando Arroyo y que por cierto es de
gran ayuda. Gracias Fernando.)
No se que hace esa funcion y no aparece ayuda para ello. ¿Cómo la

elimino?

Gracias de antemano por su ayuda.

CPC Francisco Bardales