Blogia
La espada de Damocles

Contabilizar las celdas de colores en Excel

Después de tanto indagar en Microsoft Excel, me dí cuenta que no había ninguna función que me permitiese contar los colores de cada celda.

Así que lo que hice es, hacer lo que solemos hacer siempre, introducirme en el fabuloso mundo de Google y de los foros. La solución que encontré fue, la de crear una nueva Macro.
Los pasos a seguir son los siguientes:

  1. Abrimos el Excel, “sino lo vas a tener difícil”
  2. Seleccionamos en el menú de Herramientas “Macros”
  3. Dentro de Macros, seleccionamos la opción Macros…
  4. Se nos abrirá un recuadro en el que nos pide el nombre de la Nueva Macro.
  5. Una vez introducido el nombre, se nos activa la opción “Crear”,pues bien, le damos a crear.
  6. Nos aparecerá un cuadro M.V.B. en el que tenemos que pegar el siguiente código:

  7. Function ContarColorFondo(rngCeldaColor As Range, rngRangoAcontar As Range) As Double
    Application.Volatile
    If rngCeldaColor.Cells.Count <> 1 Then Exit Function


    Dim rngCelda As Range
    For Each rngCelda In rngRangoAcontar
    If rngCelda.Interior.ColorIndex = rngCeldaColor.Interior.ColorIndex Then ContarColorFondo = ContarColorFondo + 1
    Next rngCelda
    Set rngCelda = Nothing
    End Function

    Function NumeroColor(rngR As Range) As Long
    NumeroColor = rngR.Cells(1, 1).Interior.ColorIndex
    End Function

  8. Una vez hecho esto le damos a Guardar.

Con estos pasos ya podemos buscarla “con el nombre que le hemos puesto a la Macro”, como función y aplicarla como cualquier otra función. Suerte

0 comentarios