como utilizo la funcion ESTEXTO() de excel desde visual basic

hola, !

Mostrar la cita

quiero determinar el valor de una celda si es texto dejarla igual si es numero modificarlo.
Todo esto desde visual basic.. no encontre un funcion que lo hiciera. no se si la haya...

en vba, las funciones de hoja de calculo se utilizan 'en ingles' [p.e.]

op1: If Application.WorksheetFunction.IsText(ActiveCell) Then ...
puedes sustituir el 'ActiveCell' por referencias al estilo de vba: Worksheets("hoja1").Range("a1") [etc.]

op2: If Evaluate("istext(" & Activcell.Address & ")") Then ...

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

hola para saber si el contenido de la celda activa es numerico prueba
con:

numero = isnum(activecell.value)
if numero then msgbox "Es valor numerico ..."

Saludos!


On 22 jun, 01:11, "Héctor Miguel"
wrote:
Mostrar la cita

hola, !

> quiero determinar el valor de una celda si es texto dejarla igual si es numero modificarlo.
> Todo esto desde visual basic.. no encontre un funcion que lo hiciera. no se si la haya...

en vba, las funciones de hoja de calculo se utilizan 'en ingles' [p.e.]

op1: If Application.WorksheetFunction.IsText(ActiveCell) Then ...
puedes sustituir el 'ActiveCell' por referencias al estilo de vba: Worksheets("hoja1").Range("a1") [etc.]

op2: If Evaluate("istext(" & Activcell.Address & ")") Then ...

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

hola, Francisco 1

Mostrar la cita

para saber si el contenido de la celda activa es numerico prueba con:
numero = isnum(activecell.value)
if numero then msgbox "Es valor numerico ..."

1) de donde has 'sacado' la funcion isnum(...) -?-
probablemente te refieres a la funcion isnumeric(...) -?-

2) la funcion de vba: isnumeric(...) tiene comportamientos diferentes de las funciones de hoja de calculo [p.e.]
si suponemos que la celda activa contiene un valor 'numerico' [p.e. 123] PERO en 3 formatos diferentes...
a) normal: 123
b) precedido por apostrofo: '123
c) la celda con formato de texto

-> las funciones de hoja de calculo, llamadas desde vba [p.e. desde la ventana de inmediato]:
? evaluate("isnumber(" & activecell.address & ")") devuelve: verdadero / falso / falso
? evaluate("istext(" & activecell.address & ")") devuelve: falso / verdadero / verdadero
-> la funcion isnumeric(activecell) devuelve: verdadero -> para las tres posibilidades

3) dependiendo de cual sea la *verdadera evaluacion* que necesite OP -?-

saludos,
hector.

jeje tienes razon lo mencione de memoria

Francisco Parrilla
Operador de Sistemas
News Microsoft:
news.microsoft.com
Comunidad:
http://groups.msn.com/ExcelVbaMacrosOffice
Ayuda y Soporte:
http://support.microsoft.com/search/?adv=1

"Héctor Miguel" escribió en el mensaje
news:
Mostrar la cita

hola, Francisco 1

> para saber si el contenido de la celda activa es numerico prueba con:
> numero = isnum(activecell.value)
> if numero then msgbox "Es valor numerico ..."

1) de donde has 'sacado' la funcion isnum(...) -?-
probablemente te refieres a la funcion isnumeric(...) -?-

2) la funcion de vba: isnumeric(...) tiene comportamientos diferentes de

las funciones de hoja de calculo [p.e.]
Mostrar la cita

si suponemos que la celda activa contiene un valor 'numerico' [p.e.

123] PERO en 3 formatos diferentes...
Mostrar la cita

a) normal: 123
b) precedido por apostrofo: '123
c) la celda con formato de texto

-> las funciones de hoja de calculo, llamadas desde vba [p.e. desde la

ventana de inmediato]:
Mostrar la cita

? evaluate("isnumber(" & activecell.address & ")") devuelve:

verdadero / falso / falso
Mostrar la cita

? evaluate("istext(" & activecell.address & ")") devuelve:

falso / verdadero / verdadero
Mostrar la cita

-> la funcion isnumeric(activecell) devuelve: verdadero -> para las

tres posibilidades
Mostrar la cita

3) dependiendo de cual sea la *verdadera evaluacion* que necesite

-?-
Mostrar la cita

saludos,
hector.