Aquí tenéis un video explicativo de cómo realizar Rúbricas en Microsoft Excel de una manera sencilla.
Como digo al final del video, si tenéis alguna duda, podéis preguntar en los comentarios del blog o del vídeo en YouTube.
Esta es la fórmula que hay que añadir en el módulo:
Function CountFcolor(range_data As Range, criteria
As Range) As Long
Dim datax As Range
Dim xcolor As Long
xcolor = criteria.Font.ColorIndex
For Each datax In range_data
If datax.Font.ColorIndex = xcolor Then
CountFcolor = CountFcolor + 1
End If
Next datax
End Function
Dim datax As Range
Dim xcolor As Long
xcolor = criteria.Font.ColorIndex
For Each datax In range_data
If datax.Font.ColorIndex = xcolor Then
CountFcolor = CountFcolor + 1
End If
Next datax
End Function
No hay comentarios:
Publicar un comentario