Como ajustar a altura da linha com base no valor da célula no Excel?
Para alterar a Altura da Linha numa folha de cálculo, muitos de nós poderão aplicar a funcionalidade Altura da Linha para definir a altura da linha selecionada. No entanto, se tiver uma lista de números e quiser agora definir a Altura da Linha com base nos valores das células, tal como mostrado na seguinte imagem, como poderá realizar esta tarefa no Excel?
Alterar a Altura da Linha com base no valor da célula com código VBA
Alterar a Altura da Linha com base no valor da célula com código VBA
Não há uma forma direta de ajustar a altura de múltiplas linhas com base no valor de uma célula de uma só vez, mas com o seguinte código VBA poderá concluir esta tarefa da forma mais rápida possível.
1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o seguinte código na janela do Módulo.
Código VBA: Alterar a Altura da Linha com base no valor da célula:
Sub rowheight()
'Updateby Extendoffice
Dim hgt As Variant
Dim WorkRng As Range
xTxt = ActiveWindow.RangeSelection.Address
Set WorkRng = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
For Each H In WorkRng
If H.Value > 15 Then
hgt = H.Value
H.EntireRow.Select
Selection.rowheight = hgt
End If
Next H
End Sub
3. Em seguida, prima a tecla F5 para executar este código e surge uma caixa de diálogo a solicitar que selecione as células cuja altura da linha pretende definir com base nos respetivos valores, conforme ilustrado:
4. Depois, clique no botão OK e a altura da linha será ajustada de acordo com o valor da célula, conforme se segue:
Nota: No código VBA acima, If H.Value > 15 Then indica que, se o valor da célula for maior que 15, a altura da linha será alterada; se for menor que 15, a altura da linha manter-se-á na predefinição. Pode ajustar isto conforme necessário.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos