Muitas vezes me pergunto por que não há provisão para ajustar o valor máximo de uma barra de rolagem no Excel com base no valor de uma célula. Se isso estivesse disponível, uma barra de rolagem ajustaria automaticamente seu valor máximo quando o valor da célula fosse alterado.
Algo, conforme mostrado abaixo, poderia ter sido possível:
Até o momento em que não seja disponibilizada pela equipe do Microsoft Office, essa dica pode ajudá-lo a vincular o valor máximo de uma barra de rolagem a uma célula.
Ajuste o valor máximo da barra de rolagem no Excel
- Vá para a guia Desenvolvedor -> Inserir -> Controles ActiveX -> Barra de rolagem (controle ActiveX)
- Não tem a guia de desenvolvedor ?? Leia aqui como adicionar a guia do desenvolvedor à faixa de opções.
- Clique em qualquer lugar em sua planilha para inserir a barra de rolagem.
- Clique com o botão direito na barra de rolagem e selecione Propriedades.
- Defina a célula vinculada como C10 e feche a caixa de propriedades.
- Usei C10 neste exemplo. Você pode ter uma célula diferente onde você tem o valor máximo.
- Clique duas vezes na barra de rolagem. Ele abrirá o Editor VBA com um código semelhante a este:
Sub privado ScrollBar1_Change () End Sub
- Adicione uma linha para que seu código fique assim:
Private Sub ScrollBar1_Change () Activesheet.Scrollbar1.Max = Range ("C7"). Value End Sub
- Feche a janela do Editor VBA.
- Vá para a guia Desenvolvedor e clique com o botão esquerdo do mouse no botão Modo de design.
- É isso!! Sua barra de rolagem está pronta para ser usada.
Observe que, como o arquivo tem uma macro, você precisa salvar o arquivo em qualquer uma delas.xls ou .xlsm formato.
Assim que terminar de configurar isso, e E SE a barra de rolagem não está funcionando, siga estas etapas:
- Vá para a guia Desenvolvedor e clique em Modo de design.
- Clique duas vezes na barra de rolagem.
- No VBA Editor, pressione F5 ou clique no botão Run Sub / User form.
- Feche o Editor do VBA.
Experimente você mesmo … Baixe o arquivo
