Pintar con macro

Hola que tal
Mi inquietud es la siguiente
Tengo la siguiente información:
     A B
1 4.50 2.50
2 4.68    -
3 4.73 5.00
4 4.85 2.83
Que macro puedo utilizar para que me saque un inputbox para seleccionar los datos que quiero pintar y dándole ciertas condiciones como ejemplo:
1. Si esta vacía o tiene 0 ponerle una textura
2. Si la calificación es de 0.01 4.00 rellenar con rojo y la fuente blanca
3. Si la calificación es de 4.01 a 4.25 rellenar con amarillo y la fuente negra
4. Si la calificación es de 4.26 a 4.50 rellenar con azul y la fuente blanca
5. Si la calificación es de 4.51 a 4.75 rellenar con verde y la fuente blanca
6. Si la calificación es de 4.76 a 5.00 sin relleno y con fuente negra
todas estas condiciones pero sin utilizar el formato condicional, puesto que excel 2003 solo tiene hasta tres condiciones mientras que excel 2007 tiene muchas más y lo necesito para excel 2003
Agradezco si me puedes colaborar

1 respuesta

Respuesta
1
Puede ser una macro como esta:
Sub pintar()
Dim c As Range
    For Each c In Selection
       If c > 4.75 Then
           c.Interior.Color = vbWhite
           c.Font.Color = vbBlack
       Else
           If c > 4.5 Then
                c.Interior.Color = vbGreen
                c.Font.Color = vbWhite
           Else
                 If c > 4.25 Then
                       c.Interior.Color = vbBlue
                       c.Font.Color = vbWhite
                 Else
                       If c > 4 Then
                             c.Interior.Color = vbYellow
                             c.Font.Color = vbBlack
                       End If
                 End If
           End If
       End If
    Next c
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas