En ocasiones, puede resultar muy útil desarrollar un buscador propio para nuestras aplicaciones de VBA. Éstos nos ayudarán a encontrar en un determinado rango o libro las palabras introducidas en un cuadro de texto para devolvernos cierto valor relacionado.

En este caso, creamos un InputBox, donde la palabra introducida en el cuadro de texto, será buscada en todas las hojas del libro.

Copia el siguiente código en un módulo estándar

Las funciones DIAS.LAB y DIA.LAB pueden tomar como tercer argumento, un listado de fechas localizadas en un rango o rangos, que tomará como días festivos, vacaciones o descanso. Si estas fechas están almacenadas en un rango de celdas, por ejemplo A2;A20, no sería difícil que alguien, accidentalmente eliminara alguna de ellas con el consiguiente error en las funciones.

La manera más fácil de evitar que ocurra esto, es almacenar esas fechas en un nombre de rango. Sigue los siguientes pasos:

Supongamos que el departamento de ventas de nuestra empresa nos envía un archivo en el que se listan el nombre del artículo, la cantidad vendida y el precio unitario. Deseamos averiguar cuál ha sido la venta total.

Normalmente, para hacer esta tarea crearíamos una columna a la derecha del listado donde multiplicaríamos la cantidad por el precio unitario y una sencilla suma de esta columna en la parte de abajo. Esta operación está bien cuando se tratan de calcular pocos registros, pero imaginaos un listado de 60.000 cantidades y 60.000 precios unitarios y el tiempo que se necesitaría para realizar las 60.001 operaciones (la suma final también cuenta).

Vamos a construir una fórmula que devuelva el primer valor “no blanco” de una celda en una fila. Para ello, hemos rellenado las columnas B:G con valores en algunas celdas; otras las hemos dejado en blanco.

=INDICE(B4:G4;1;COINCIDIR(1;INDICE(1-ESBLANCO(B4:G4);1;0);0))

Aunque esta fórmula funciona con una matriz de celdas, al devolver solamente un valor único, no es necesario introducirla usando Ctrl + Mayús + Intro.

Puedes pulsar en la fotografía para verla a tamaño real.

Vamos a desgranar la función anterior para ver su funcionamiento comenzando desde dentro hacia fuera:

Autocorrección nos permite corregir automáticamente los errores ortográficos más comunes. También nos puede ser de gran utilidad para convertir atajos de texto en frases completas que usamos frecuentemente.

Las palabras mal escritas y otros errores comunes que se muestran en el cuadro Autocorrección, se corrigen automáticamente mientras escribimos.

Autocorrección está totalmente integrado en Office y se instala con una larga lista de palabras que normalmente son mal escritas. No obstante, nosotros podremos añadir nuestros propios “errores” para su corrección.

Por ejemplo, al escribir la palabra “recojer”, automáticamente al pulsar la barra espaciadora o cambiar de celda, la palabra cambia a “recoger”.

Esta función definida por el usuario (UDF) sirve para extraer los acrónimos de una cadena de texto (el primer caracter de cada palabra.

Option Explicit
Public Function ACRONIMOS(ByVal sText As String, _
               Optional ByVal bJustCapitals As Boolean = False) As String
Dim inextspace As Integer
Dim sfirstcharacter As String
Dim sword As String
    sText = VBA.Trim(sText)
    Do While VBA.Len(sText) > 0
       inextspace = VBA.InStr(1, sText, " ")
       If inextspace > 0 Then
          sword = VBA.Trim(VBA.Left(sText, inextspace - 1))
          sText = VBA.Right(sText, VBA.Len(sText) - inextspace)
       Else
          sword = sText
          sText = ""
       End If
       sfirstcharacter = VBA.Left(sword, 1)
       If bJustCapitals = True Then
          If (VBA.Asc(sfirstcharacter) >= 65 And VBA.Asc(sfirstcharacter) <= 90) Then
             ACRONIMOS = ACRONIMOS & VBA.UCase(sfirstcharacter)
          End If
       End If
       If bJustCapitals = False Then ACRONIMOS = ACRONIMOS & VBA.UCase(sfirstcharacter)
    Loop
End Function

Después de ver este vídeo me he quedado boquiabierto. No sólo por la destreza que tiene este japonés, Shukei, para hacer dibujos con varias capas, sino porque está dibujado íntegramente con Excel y solamente utilizando las herramientas que ofrece.

Además de este espectacular dibujo, Shukei nos ofrece también obras dibujadas con gráficos. Algunas de ellas tienen apariencia 3D.

Muchos usuarios que disponen de versiones anteriores de Excel 2007 se preguntan cómo poder hacer sumas por un determinado color. En Excel 12 esto sí es posible, pero para el resto de usuarios existe una pequeña función definida por el usuario:

Function SUMARCOLOR(RangoColor As Range, CeldaColor As Range) As Long
     Dim rngCelda As Range
     'revisamos cada celda del rango
     For Each rngCelda In RangoColor
          'si los colores coinciden, sumar el valor de la celda al resultado previo
          If rngCelda.Interior.ColorIndex = CeldaColor.Interior.ColorIndex Then
               SUMARCOLOR = SUMARCOLOR + rngCelda.Value
          End If
     Next
End Function