Planilha Comemorativa do JEC Campeão 2011

Gráfico Excel com Redimensionamento Automático Excel - 2
Gráfico Excel com Redimensionamento Automático Excel – 2
29 de novembro de 2011
Menu Suspenso no Excel - VBA
Menu Suspenso no Excel – VBA
11 de dezembro de 2011

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


//

Lomadee, uma nova espécie na web. A maior plataforma de afiliados da América Latina.

 

Em jogo disputado na Arena Joinville no jogo de volta da final da série C, e com o placar de 4×0 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


Clique aqui e leia mais sobre Excel VBA. https://www.guiadoexcel.com.br/vba/ O Guia do Excel foi criado por Marcos Rieper e oferece artigos, dicas, tutoriais e modelos de planilhas prontas. Aqui você encontra tudo sobre Excel, seja de nível básico, intermediário,  avançado e VBA. O Guia do Excel oferece diversos materiais completamente gratuitos para download. Navegue em nosso site e confira! Conheça também a nossa Loja do Excel https://loja.guiadoexcel.com.br/
Cursos

Curso Excel Completo – Curso Excel Básico + Curso Excel Avançado – Acesso Vitalício

R$218,00 R$179,00

COMPRAR
Cursos

Curso Excel Master – Curso Excel Básico + Curso Excel Avançado + Curso VBA Excel + LP – Acesso Vitalício

R$357,00 R$249,00

COMPRAR
Cursos

Curso Excel PRO – Curso Excel Avançado + Curso VBA Excel + Lógica de programação – Acesso Vitalício

R$258,00 R$199,00

COMPRAR
Cursos

Curso Excel Web – Curso VBA Excel + Lógica de programação + Curso Web Scraping VBA- Acesso Vitalício

R$388,90 R$309,00

COMPRAR

2 Comentários

  1. Leandro Alves disse:

    Olá Marcos,
    Muito bom esses seus tutoriais. Estou montando um dashboard e praticamente tudo que fiz nele foi graças a ajuda do seu site.

    Tenho interesse em saber se o Excel consegue fazer um gráfico como este http://www.informationbuilders.com/images/products/webfocus/dashboard/operational/max/dashboard-bam-healthcare.jpg

    identificado na imagem como “General Stats”.

    Tentei fazer algo similar com o gráfico de termometro mas não deu certo.

    Pode nos ajudar?

    Valeu!

Deixe uma resposta

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

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.

Inscreva-se no nosso canal do Youtube!


Junte-se ao nosso canal do Youtube. Começamos em abril de 2016, mas já temos mais de 06:00 h de treinamentos gratuitos e este número irá aumentar. Vídeos novos todos os sábados.