Notifications
Clear all

Alterar planilha sem sair da pagina

3 Posts
2 Usuários
0 Reactions
980 Visualizações
zanni
(@zanni)
Posts: 27
Eminent Member
Topic starter
 

Gostaria de saber, como que o criador da planilha que eu anexei, conseguiu fazer com que, quando se clica na setas http://prntscr.com/e8smoj as imagens dos times se alteram sem alterar as colunas etc...

Como chama isso? para poder pesquisar e aprender...

I'd rather attempt to do something great and fail than to attempt to do nothing and succeed. -Robert H. Schuller

 
Postado : 14/02/2017 4:08 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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
zanni
(@zanni)
Posts: 27
Eminent Member
Topic starter
 

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

Sensacional sua explicação!

Consegui ter uma ideia vaga sobre o que acontece! Porém fazer sozinho vai ser um desafio!!!

Mas muito obrigado, clareou muito aqui... Nossa muito complexo, mas não impossível.

I'd rather attempt to do something great and fail than to attempt to do nothing and succeed. -Robert H. Schuller

 
Postado : 15/02/2017 10:52 am