En un formulario debemos introducir un campo de texto que se llamará Text1 ( predetermindado )
Al escribir sobre este texto, este cambiara a mayusculas o minusculas automaticamente.
Mayusculas: Text1.Text = UCase(Text1.Text)
Minusculas: Text1.Text = LCase(Text1.Text)
CODIGO
// Codigo ofrecido por Tutores.org
PrivateSub Text1_Change()
Dim I AsInteger
Text1.Text = UCase(Text1.Text)
I = Len(Text1.Text)
Text1.SelStart = I
EndSub
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Conversion de texto a Mayusculas o Minusculas" href="http://www.tutores.org/codigo/1414/" target="_blank">Conversion de texto a Mayusculas o Minusculas</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Comentario usuario
mgaravitomgaravito
25
me parece excelente el codigo le doy del 1- 10 10 puntos, yo tenia un codigo pareceidso pero en el keypress pero este igual resulta.
Hola !
Tengo un pq problema...
La verdad es que nunca habia trabajado con VB y ahora lo hago con Excel.
Tengo este código que es ingresar en una casilla en Excel un texto que el usuario ingresa en el TextBox pero me genera un error al pegar el este codigo...
Private Sub TextBox1_Change()
Range("A6").Select
ActiveCell.FormulaR1C1 = "DGHO-UAO-AAO-" + TextBox1
End Sub
Al pegarlos supongo que queda asi:
Private Sub TextBox1_Change()
Range("A6").Select
ActiveCell.FormulaR1C1 = TextBox1
Dim I As Integer
TextBox1.TextBox = UCase(TextBox1.TextBox)
I = Len(TextBox1.TextBox)
TextBox1.SelStart = I
End Sub
Pero me genera error. Quien me puede decir como lo hago
Comentario usuario
progmanprogman
55
El codigo me parece exelente pero si activo ami me aparecen las letras alreve (HOLA = ALOH).
Excelente el código, le doy un 10 de 10.Gracias y Saludos
Comentario usuario
GirminatorGirminator
25
con esta instruccion es sufieciente:TextBox1.TextBox = UCase(TextBox1.TextBox)esa por sis ola te convierte el texto a mayusculasyo te recomiendo usar una cadena:dim mayusculas as stringmayusculas = UCase(TextBox1.TextBox)y listo, tu texto se convierte a mayusculas y queda almacenado en la cadena mayusculas, la cual ya puedes mofificar a placersaludos
Comentario usuario
UYIUYI
25
hola!! necesito ke alguien me ayude a convertir de un texbox letras minusculas a mayusculas cuando de click en el botony me aparezca ya letras mayusculas en un label!! gracias!!!
Comentario usuario
jacquejacque
15
muy buen aporte y si funciona a la perfeccion
Comentario usuario
tutopresto.ittutopresto.it
15
excelente hijo ...
Private Sub TextBox1_Change()
Range("A6").Select
ActiveCell.FormulaR1C1 = TextBox1
Dim I As Integer
TextBox1.TextBox = UCase(TextBox1.TextBox)
I = Len(TextBox1.TextBox)
TextBox1.SelStart = I
End Sub
SINCERAMENTE ... DESCONOSCO
Comentario usuario
Sin definirSin definir
15
usa
vba.ucase(txtcampo.text)
Comentario usuario
fabianunfabianun
25
Una forma más fácil, rápida y breve sería hacerlo así:
Private Sub TextBox1_Change()
' Asigna el valor a la celda sin seleccionarla
Range("A6").value= TextBox1.Text
Dim I As Integer
TextBox1.TextBox = UCase(TextBox1.TextBox)
I = Len(TextBox1.TextBox)
TextBox1.SelStart = I
End Sub
para escribir una línea de texto que concatene o se una con otra se debe hacer con (&) no con (+)
Comentario usuario
hueyapanhueyapan
35
¿Tendràn un codigo que al escribir en columnas A5:H50
Me escriba primera mayuscula?
genial tu código después de buscar 6 horas el tuyo me funciono a la primera
Comentario usuario
Jepc18Jepc18
35
hey perfecto el codigo...era lo que estaba buscando jeje muchas gracias..es un codigo sencillo pero como hace falta algunas veces verdad?..jeje
Comentario usuario
Danny AcostaDanny Acosta
15
Alguein me puede ayudara, necesito un codigo que al salisr de un txt las palabras que haya ingresado la primer letra aparezca en mayusculas, las demas no, esto es en C#
Excelente el Codigo de Mayusculas a Mnusculas con LCase el problema es que cuando se escribe en el TexBox una emaeil toda en mayúscula el ultimo carácter queda en mayúsculas ejemplo:
123ABC@YAHOO.COM con la macro LCase 123abc@yahoo.coM
la única solución que veo es pner un punto final y luego borrarlo agradecería si se pudiera hacer la correcion GRACIAS