Macro para convertir Mayusculas a Minusculas y Viceversa en TextBox

-
Una macro interesante que a varios les puede interesar, esta macro no necesita códigos ascii.
La primera es para que en un textbox solo sean letras Mayúsculas al escribir sobre esté.

Private Sub TextBox1_Change()
Dim I As Integer
TextBox1.Text = UCase(TextBox1.Text)
I = Len(TextBox1.Text)
TextBox1.SelStart = I
End Sub

y esta otra es para letras Minúsculas aunque en el teclado este activado la letra de Mayúsculas

Private Sub TextBox2_Change()
Dim I As Integer
TextBox2.Text = LCase(TextBox2.Text)
I = Len(TextBox2.Text)
TextBox2.SelStart = I
End Sub


Espero y les sirva, Saludos.

Comentarios

Publicar un comentario

Entradas populares de este blog

Varias Formas de Cerrar Un Libro de Excel

-
Buscando en Internet me encontré con otras macros interesantes de varias formas de Cerrar un Libro de Excel, cada una tiene un botón diferente. Cerrar Excel con un botón: Private Sub CommandButton1_Click() Application.Quit End Sub Cerrar Excel sin Notificaciones: Private Sub CommandButton2_Click() Application.DisplayAlerts = False Application.Quit End Sub Guardar Libro Activo y Cerrarlo: Private Sub CommandButton3_Click() ActiveWorkbook.Save Application.Quit End Sub Guardar Todos los Libros Abiertos y Cerrar Excel: Private Sub CommandButton4_Click() Dim wb As Workbook For Each wb In Workbooks     wb.Save Next Application.Quit End Sub Esta es un macro que cierra el libro en un tiempo, este código esta para que el libro se cierre en 2 horas 30 minutos, el tiempo se lo pueden modificar, si lo quieren en 1 minuto solo ponen  ("00:01:00") , por 10 minutos  ("00:10:00") , a si sucesivamente. Este código va en los eventos del libro (This...
Leer más