Visual Basic para Aplicaciones - texto de minusculas a mayusculas

Life is soft - evento anual de software empresarial
   
Vista:

texto de minusculas a mayusculas

Publicado por Bekyna (44 intervenciones) el 28/07/2009 18:06:56
Hola, me podrían indicar si hay alguna función para que un texto ingresado por el usuario y que previamente es guardado en una variable, siempre este en mayúsculas?

Gracia por sus sugerencias, saludo.

Nota estoy trabajando con macros en Excel 2003
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ya lo solucione

Publicado por Bekyna (44 intervenciones) el 28/07/2009 18:16:59
Gracias por la ayuda.

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:texto de minusculas a mayusculas

Publicado por Antoni (7 intervenciones) el 24/08/2009 19:18:53
Aqui te mando un ejemplo:

Recuerda UCase es para convertir a Mayúscula y LCase para convertir a minúscula.

Private Sub cmdCambiar_Click()
'Variable para almacenar el total de los caracteres leidos.
Dim TotalCaracterLeido As Integer
TotalCaracterLeido = 0 'Iniciamos va variable en 0.
'Repetimos mientras la longitus da la caja de texto es mayor que el total de caracteres leidos.
Do While Len(txtContenido.Text) > TotalCaracterLeido
TotalCaracterLeido = TotalCaracterLeido + 1 'Incrementamos el total de caracteres en 1.
'Colocamos el punto de insercion delante del carácter a leer.
txtContenido.SelStart = TotalCaracterLeido - 1
txtContenido.SelLength = 1 'Seleccionamos el caracter.

'Convertimos el caracter seleccionado a mayúscula.
txtContenido.SelText = UCase(txtContenido.SelText)
Loop 'Volvemos a repetir hasta que se lean todos los caracteres de la caja.

End Sub

Espero que te sea util TONI
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar