Eternally stuck in beta version

Como controlar figurinhas em grande estilo

Resolvi, no começo da semana, desenvolver um pequeno trecho de código — logo abaixo — para poder fazer o acompanhamento das figurinhas que eu ainda preciso para completar o álbum da Copa do Mundo FIFA 2010.

Como eu uso uma planilha Excel para isso, nada melhor do que recorrer ao bom e velho VBA, ou, na prática, em linguagem leiga, fazer uma macro.

Sub Faltantes()

    Dim c As Range
    Dim n As Long

    Sheets("Plan1").Activate
    n = 0

    'Passa por cada célula
    For Each c In ActiveSheet.UsedRange.Cells
        'Se não for uma célula pintada de amarelo,ainda não temos a figurinha
        If c.Interior.ColorIndex <> 6 And Not IsEmpty(c) Then
           n = n + 1
        End If
    Next

    MsgBox "...faltam " & Trim(Str(n)) & " figurinhas!", vbOKOnly + vbInformation, "Então..."

End Sub

O resultado da macro pode ser visto a seguir:

Controle de Figurinhas... em VBA!!

Ok. Eu admito. Isto é ser nerd.


Reader Comments

  1. Pingback: Daniel Santos
  2. Pingback: Charles Pilger

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *