Función UDF para convertir texto a Oración en Excel
La manipulación de textos en Excel es una tarea que siempre es necesaria, sobretodo al momento de formatear datos que no están escritos uniformemente. Aunque como sabemos, Excel como hoja de cálculo no es especialista en texto como lo es Microsoft Word, sí tenemos funciones de texto como lo son MAYUS, MINUSC y NOMPROPIO.
Word cuenta con una función para convertir texto a oración, es decir, que cada letra posterior a un punto y un espacio (“. ”) debe de ir en mayúsculas.
Excel no cuenta con una función para transformar un texto a oración, es por que eso que se debe realizar una función para solventar dicha necesidad.
Cómo uso la función
La función que comparto con ustedes se llamará TipoOracion y sólo tendrá un parámetro que será la celda que querramos convertir. El uso que le daremos será:
[A2] =TipoOracion(A1)
Donde A1 contiene el texto.
Texto original
el término inteligencia empresarial se refiere al uso de datos en una empresa para facilitar la toma de decisiones. abarca la comprensión del funcionamiento actual de la empresa, bien como la anticipación de acontecimientos futuros, con el objetivo de ofrecer conocimientos para respaldar las decisiones empresariales. las herramientas de inteligencia se basan en la utilización de un sistema de información de inteligencia que se forma con distintos datos extraídos de los datos de producción, con información relacionada con la empresa o sus ámbitos y con datos económicos. mediante las herramientas y técnicas elt (extraer, cargar y transformar), o actualmente etl (extraer, transformar y cargar) se extraen los datos de distintas fuentes, se depuran y preparan (homogeneización de los datos) para luego cargarlos en un almacén de datos.
Texto formateado
El término inteligencia empresarial se refiere al uso de datos en una empresa para facilitar la toma de decisiones. Abarca la comprensión del funcionamiento actual de la empresa, bien como la anticipación de acontecimientos futuros, con el objetivo de ofrecer conocimientos para respaldar las decisiones empresariales. Las herramientas de inteligencia se basan en la utilización de un sistema de información de inteligencia que se forma con distintos datos extraídos de los datos de producción, con información relacionada con la empresa o sus ámbitos y con datos económicos. Mediante las herramientas y técnicas elt (extraer, cargar y transformar), o actualmente etl (extraer, transformar y cargar) se extraen los datos de distintas fuentes, se depuran y preparan (homogeneización de los datos) para luego cargarlos en un almacén de datos.
Código de la función
El siguiente código deberá ser puesto en un módulo normal de vba.
Option Explicit '--------------------------------------------------------------------------------------- ' Module : Módulo1 ' Author : MVP Excel Sergio Alejandro Campos ' Date : 15/08/2013 ' Blog : http://blogs.itpro.es/exceleinfo '--------------------------------------------------------------------------------------- ' Function TipoOracion(Celda As String) Dim Largo As Integer Dim i As Integer Dim Valor As String Dim Valor1 As String Dim ValorAnt As String Dim ValorAnt2 As String Dim C As String Application.Volatile ' C = Application.WorksheetFunction.Trim(Replace(Celda, ".", ". ")) TipoOracion = C ' Largo = Len(C) ' On Error Resume Next For i = 1 To Largo Valor = LCase(Mid(C, i, 1)) ValorAnt = LCase(Mid(C, i - 1, 1)) ValorAnt2 = LCase(Mid(C, i - 2, 1)) If i = 1 Then Valor1 = Valor1 & UCase(Valor) ElseIf ValorAnt = " " And ValorAnt2 = "." Then Valor1 = Valor1 & UCase(Valor) Else Valor1 = Valor1 & LCase(Valor) End If Next i ' On Error GoTo 0 TipoOracion = Valor1 End Function
:: Descarga el ejemplo UDF Convertir texto a tipo Oración.zip