em Nerd

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.

Escreva um comentário

Comentário

Webmentions

  • Charles Pilger

    Acho q a @fergolina vai gostar dessa: http://danielsantos.org/arquivos/2010/07/01/como-controlar-figurinhas-em-grande-estilo/

  • Daniel Santos

    Novo no blog: Como controlar figurinhas em grande estilo (http://bit.ly/aztRqj)