Funciones definidas por el usuario (UDFs)
Creamos tres funciones sencillas de VBA.
' minúsculas MINUSC Function Minus(Texto As Range) Minus = LCase(Texto) End Function ' MAYÚSCULAS: MAYUSC Function Mayus(Texto As Range) Mayus = UCase(Texto) End Function ' Nombre Propio: NOMPROPIO Function Nom(Texto As Range) Nom = WorksheetFunction.Proper(Texto) End Function
Función incluyendo las 3 anteriores
En la función anterior contemplamos los tres casos. Creamos una función con dos argumentos:
Sintaxis
Núm_función: número que indica la transformación:Texto: texto (celda) que deseamos convertir
- 0: minúsculas.
- 1: MAYÚSCULAS.
- Otro número: Nombre Propio.
Function MAYUSCULAS(Núm_función As Integer, Texto As Range) Select Case Núm_función Case 0 ' No: minúsculas MAYUSCULAS = LCase(Texto) Case 1 ' Sí: MAYÚSCULAS MAYUSCULAS = UCase(Texto) Case Else ' Resto: Nombre Propio MAYUSCULAS = WorksheetFunction.Proper(Texto) End Select End Function
Notas
Como se aprecia en la imagen animada, hemos incluido una descripción de la función y de los argumentos.
También hemos añadido la función a la categoría de funciones de texto.
En una entrada posterior explicaremos la manera de añadir los mismos a las funciones que creemos.
Referencias:
No hay comentarios:
Publicar un comentario