Planilha Comemorativa do JEC Campeão 2011

Objetivo: Fazer uma pequena homenagem ao JEC, Campeão Brasileiro da Série C de 2011. Time do meu coração.

Em jogo disputado na Arena Joinville no jogo de volta da final da série C, e com o placar de 4x0 o Joinville de Santa Catarina venceu o CRB de Alagoas diante de um público recorde na arena Joinville de 19.688 pessoas.

Durante o campeonato foram 16 jogos, dos quais perdeu apenas 1, e ainda teve o artilheiro do campeonato Ronaldo Capixaba com 10 gols marcados

Eu estive lá com minha esposa, cunhado, namorada do cunhado e afirmo estar emocionado com a conquista do primeiro título nacional do Joinville, agora campeão da série C de 2011.

A planilha em anexo é uma mega simples homenagem ao time, mas que serve de referência para a tarefa de fazer piscar em cores um texto de uma planilha ou ainda um objeto.

Para funcionar clique no escudo do JEC..

Sub lsBlack()

    'Muda a cor das células
    Range("U6:AA6").Interior.Color = vbBlack
    Range("X7:X15").Interior.Color = vbBlack
    Range("U16:W16").Interior.Color = vbBlack
    Range("T15").Interior.Color = vbBlack
    Range("AC6:AI6").Interior.Color = vbBlack
    Range("AC7:AC16").Interior.Color = vbBlack
    Range("AD16:AI16").Interior.Color = vbBlack
    Range("AD10:AG10").Interior.Color = vbBlack
    Range("AK7:AK15").Interior.Color = vbBlack
    Range("AL16:AQ16").Interior.Color = vbBlack
    Range("AL6:AQ6").Interior.Color = vbBlack
End Sub

Sub lsRed()

    'Muda a cor das células
    Range("U6:AA6").Interior.Color = vbRed
    Range("X7:X15").Interior.Color = vbRed
    Range("U16:W16").Interior.Color = vbRed
    Range("T15").Interior.Color = vbRed
    Range("AC6:AI6").Interior.Color = vbRed
    Range("AC7:AC16").Interior.Color = vbRed
    Range("AD16:AI16").Interior.Color = vbRed
    Range("AD10:AG10").Interior.Color = vbRed
    Range("AK7:AK15").Interior.Color = vbRed
    Range("AL16:AQ16").Interior.Color = vbRed
    Range("AL6:AQ6").Interior.Color = vbRed
End Sub

Sub lsAleatorio()

    Dim i       As Long
    Dim lRept   As Long

    i = 1
    lRept = 10

    'Repete as operações
    While i <= lRept

        'Aguarda um segundo para a próxima iteração
        start2 = Now() + TimeSerial(0, 0, 1)
        Application.Wait start2

        'Verifica se o resto da divisão do valor por 2 é 0 e mescla as operações de colorir e exibir o objeto
        If i Mod 2 = 0 Then
            ActiveSheet.Shapes.Range(Array("Rectangle 1")).Visible = True
            lsBlack
        Else
            ActiveSheet.Shapes.Range(Array("Rectangle 1")).Visible = False
            lsRed
        End If

        i = i + 1
    Wend
End Sub

Um forte abraço e em especial ao time do Joinville e a sua torcida, na qual me incluo =D

Marcos Rieper