Formulario para convertir el tipo de texto en Excel

Compatibilidad:

Deseamos crear un formulario para convertir el tipo de texto en Excel a mayúsculas, minúsculas o nombre propio, mediante una macro en VBA.

INSERTAR USERFORM

Ir a: Barra de Menú Insertar UserForm; O Ir a: Panel de Proyecto Clic sobre VBAProject (Libro1) Botón derecho del ratón Insertar UserForm; O Ir a: Barra de Herramientas: Estándar Clic Sobre la flecha del Botón Insertar UserForm. Insertará un formulario (UserForm).
PROPIEDADES USERFORM. Mostrar ventana de propiedades, si no está visible. Ir a: Barra de Menú Ver Ventana Propiedades; O Ir a: Barra de Herramientas Estándar Botón: Ventana de propiedades; O Atajo Teclado: F4; Mostrará la ventana de propiedades.
Ir a: Ventana Propiedades Clic Ficha Alfabética. Muestra las propiedades en orden alfabético.
Aplicar los valores a la propiedad UserForm:
Propiedad Valor
Name Mi_Formulario
Caption Conversor tipo de texto
Height 216
Width 295

Propiedad	Valor
Name	Mi_Formulario
Caption	Conversor tipo de texto
Height	216
Width	295

INSERTAR CONTROL REFEDIT

MOSTRAR BARRA DE HERRAMIENTAS. Ir a: Barra de Menú Ver Cuadro de herramientas; O Ir a: Barra de herramientas Estándar Botón: Cuadro de Herramientas. Mostrará la barra de Cuadro de Control.
Ir a: Barra de Herramientas Cuadro de herramientas Clic Botón: RefEdit. Control deseado.
Ir al Formulario Clic sobre el y mantener pulsado Arrastrar el cursor soltar el clic del ratón. Insertará el control.
PROPIEDADES REFEDIT. Mostrar ventana de propiedades, si no está visible.
Clic sobre el control RefEdit. Seleccionamos el control para aplicar sus propiedades.
Ir a: Ventana Propiedades Clic Ficha Alfabética. Muestra las propiedades en orden alfabético.
Aplicar los valores a la propiedad del control:
Propiedad Valor
Name RefEdit1
Height 18
Left 102
Top 24
Width 120

Propiedad	Valor
Name	RefEdit1
Height	18
Left	102
Top	24
Width	120

INSERTAR CONTROL ETIQUETA

Ir a: Barra de Herramientas Cuadro de herramientas Clic Botón: Etiqueta.
Ir al formulario Clic sobre él. Insertará el control.
PROPIEDADES ETIQUETA. Mostrar ventana de propiedades, si no está visible.
Clic sobre la etiqueta. Seleccionamos el control para aplicar sus propiedades.
Ir a: Ventana Propiedades Clic Ficha Alfabética. Muestra las propiedades en orden alfabético.
Aplicar los valores a la propiedad del control:
Propiedad Valor
Caption Rango:
Height 9,75
Left 66
Top 28
Width 30

Propiedad	Valor
Caption	Rango:
Height	9,75
Left	66
Top	28
Width	30

INSERTAR MARCO

Ir a: Barra de Herramientas Cuadro de herramientas Clic Botón: Marco.
Ir al Formulario Clic sobre él. Insertará el control.
PROPIEDADES MARCO. Mostrar ventana de propiedades, si no está visible.
Clic sobre el marco. Seleccionamos el control para aplicar sus propiedades.
Ir a: Ventana Propiedades Clic Ficha Alfabética. Muestra las propiedades en orden alfabético.
Aplicar los valores a la propiedad del control:
Propiedad Valor
Caption Tipo Texto
Height 96
Left 42
Top 66
Width 108

Propiedad	Valor
Caption	Tipo Texto
Height	96
Left	42
Top	66
Width	108

INSERTAR BOTÓN DE OPCIÓN: MAYÚSCULAS

Seleccionar el marco Clic sobre él. Seleccionamos el marco para insertar en su interior los botones de opción.
Ir a: Barra de Herramientas Cuadro de herramientas Clic Botón: Botón de Opción.
Ir al Formulario Clic sobre él. Insertará el control.
PROPIEDADES BOTÓN DE OPCIÓN. Mostrar ventana de propiedades, si no está visible.
Clic sobre el botón de opciones. Seleccionamos el control para aplicar sus propiedades.
Ir a: Ventana Propiedades Clic Ficha Alfabética. Muestra las propiedades en orden alfabético.
Aplicar los valores a la propiedad del control:
Propiedad Valor
Name Mayus
Caption Mayúsculas.
Height 24
Left 12
Top 12
Width 61

Propiedad	Valor
Name	Mayus
Caption	Mayúsculas.
Height	24
Left	12
Top	12
Width	61

INSERTAR BOTÓN DE OPCIÓN: MINÚSCULAS

Seleccionar el marco Clic sobre él. Seleccionamos el marco para insertar en su interior los botones de opción.
Ir a: Barra de Herramientas Cuadro de herramientas Clic Botón: Botón de Opción.
Ir al Formulario Clic sobre él. Insertará el control.
PROPIEDADES BOTÓN DE OPCIÓN. Mostrar ventana de propiedades, si no está visible.
Clic sobre el botón de opciones. Seleccionamos el control para aplicar sus propiedades.
Ir a: Ventana Propiedades Clic Ficha Alfabética. Muestra las propiedades en orden alfabético.
Aplicar los valores a la propiedad del control:
Propiedad Valor
Name Minus
Caption Minúsculas.
Height 17
Left 12
Top 36
Width 58

Propiedad	Valor
Name	Minus
Caption	Minúsculas.
Height	17
Left	12
Top	36
Width	58

INSERTAR BOTÓN DE OPCIÓN: NOMBRE PROPIO

Seleccionar el marco Clic sobre él. Seleccionamos el marco para insertar en su interior los botones de opción.
Ir a: Barra de Herramientas Cuadro de herramientas Clic Botón: Botón de Opción.
Ir al Formulario Clic sobre él. Insertará el control.
PROPIEDADES BOTÓN DE OPCIÓN. Mostrar ventana de propiedades, si no está visible.
Clic sobre el botón de opciones. Seleccionamos el control para aplicar sus propiedades.
Ir a: Ventana Propiedades Clic Ficha Alfabética. Muestra las propiedades en orden alfabético.
Aplicar los valores a la propiedad del control:
Propiedad Valor
Name Propio
Caption Nombre propio.
Height 17
Left 12
Top 60
Width 78

Propiedad	Valor
Name	Propio
Caption	Nombre propio.
Height	17
Left	12
Top	60
Width	78

INSERTAR BOTÓN DE COMANDO: ACEPTAR

Ir a Barra de Herramientas Cuadro de herramientas Clic Botón: Botón de Comando.
Ir al Formulario Clic sobre él. Insertará el control.
PROPIEDADES BOTÓN DE ACEPTAR. Mostrar ventana de propiedades, si no está visible.
Clic sobre el botón de comando. Seleccionamos el control para aplicar sus propiedades.
Ir a: Ventana Propiedades Clic Ficha Alfabética. Muestra las propiedades en orden alfabético.
Aplicar los valores a la propiedad del control:
Propiedad Valor
Caption Aceptar
Height 24
Left 174
Top 84
Width 84

Propiedad	Valor
Caption	Aceptar
Height	24
Left	174
Top	84
Width	84

INSERTAR BOTÓN DE COMANDO: CANCELAR

Ir a Barra de Herramientas Cuadro de herramientas Clic Botón: Botón de Comando.
Ir al Formulario Clic sobre él. Insertará el control.
PROPIEDADES BOTÓN DE CANCELAR. Mostrar ventana de propiedades, si no está visible.
Clic sobre el botón de comando. Seleccionamos el control para aplicar sus propiedades.
Ir a: Ventana Propiedades Clic Ficha Alfabética. Muestra las propiedades en orden alfabético.
Aplicar los valores a la propiedad del control:
Propiedad Valor
Caption Cancelar
Height 24
Left 174
Top 120
Width 84

Propiedad	Valor
Caption	Cancelar
Height	24
Left	174
Top	120
Width	84

CÓDIGO USERFORM (FORMULARIO)

Ir a: Barra de menú Ver Código; O también, Atajo de teclado F7. Mostrará la vista de código para el formulario.
Escribir el código de la macro para CommandButton1 (Botón Aceptar):
Private Sub CommandButton1_Click()
Dim Mi_Rango As Range
If Mi_Formulario.RefEdit1.Value = "" Then Exit Sub
Set Mi_Rango = Range(RefEdit1)
If Mayus = False And Minus = False And Propio = False Then
MsgBox "¡Seleccionar un tipo de texto!", vbCritical, "Error"
Exit Sub
End If
For Each celda In Mi_Rango
If Mayus Then celda.Value = UCase(celda)
If Minus Then celda.Value = LCase(celda)
If Propio Then celda.Value = WorksheetFunction.Proper(celda)
If celda.Value = "" Then celda.Value = ""
Next
Unload Me
End Sub
UCase: Función VB para convertir en mayúsculas.
LCase: Función VB para convertir en minúsculas.
WorksheetFunction.Proper: Estructura de la función de Excel NOMPROPIO (VB
no dispone de función para el nombre propio).
Escribir el código de la macro para CommandButton2 (Botón Cancelar):
Private Sub CommandButton2_Click()
Unload Me
End Sub

MACRO ABRIR FORMULARIO

Ir a: Barra de menú Insertar Módulo. Insertará el área para insertar la macro que muestre el formulario.
Escribir el código de la macro:
Sub ConversorTexto()
Mi_Formulario.Show
End Sub

GUARDAR LIBRO. Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.

EJECUTAR MACRO

Ejecutar la macro: ConversorTexto. Mostrará el formulario.
Ir a: Rango Seleccionar el rango deseado. Para convertir el texto.
Ir a: Tipo texto Activar la opción deseada: Mayúsculas, Minúsculas o Nombre propio.
Pulsar el botón: Aceptar. Convertirá el rango al tipo de texto deseado.

Formulario para convertir el tipo de texto en Excel: Rango A2:A8 convertido a mayúsculas, minúsculas y nombre propio

Nivel de dificultad:

Excel Experto VBA - Macros

Un comentario en “Formulario para convertir el tipo de texto en Excel”

ulises anzola dice:
18/06/2015 a las 3:42 pm
GRACIAS POR ESTE GRAN APORTE A LA COMUNIDAD QUE LE GUSTA LA PROGRAMACIÓN EN EXCEL, MUY BUENO DE VERDAD
Responder

Deja una respuesta Cancelar la respuesta

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.