O arquivo em si tem mais duas abas que estão ocultas "Base de Dados" e "calculos" estas servem para alimentar os resultados e classificação na maior parte tudo feito atraves de formulas e ranges nomeados.
Quanto as figuras na aba Tabela, se selecionar uma verá que teem os nimes "Image1, Image2, Image3, etc" que estão definidas pela instrução "Set" nas rotinas "setarEscudos, setarEscudosEli".
As Setas de "Avançar e Retornar" na realidade são os numeros "3 e 4" formatadas com a fonte "Webdings" e no evento da Aba "Worksheet_SelectionChange" temos as instruções que verifica em qual das celulas foi selecionada faz a comparação atraves da instrução "IF" e chama a rotina relacionada :
'verifica se a mudança foi nas rodadas
If Not Intersect(Target, Range("AVANÇAR")) Is Nothing Then
Application.ScreenUpdating = False
Call AvancarRodada: Call AlteraResultado: Range("a1").Select
ElseIf Not Intersect(Target, Range("RETORNAR")) Is Nothing Then
Application.ScreenUpdating = False
Call RetornarRodada: AlteraResultado: Range("A1").Select
End If
Se selecionado "Avançar" vamos para as Rotinas AvancarRodada e AlteraResultado, a rotina "AvancarRodada" faz outra verificação e chama a rotina "atribuirEscudos" onde é inserido o escudo ja definido anteriormente e a rotina "AlteraResultado" insere a formula na celula de nomes "CASA?" correspondente.
O básico seria istto, temos mais rotinas que estão sendo executadas, todas relacionadas entre elas e se referenciando às celulas nomeadas, é bem elaborada, mas requer muita atenção e acompanhamentos das rotinas para poderem serem alteradas sem perder as funcionalidades e ter inconsistências.
Veja na guia Formulas em Gerenciador de Nomes que terá todos os nomes definidos.
Espero que ajude.
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 14/02/2017 5:09 pm