Como alterar a altura da linha com base no valor da célula no Excel?
Para alterar a altura da linha em uma planilha, a maioria de nós pode aplicar o recurso Altura da Linha para definir a altura da linha selecionada. No entanto, se você tiver uma lista de números e quiser definir a altura da linha com base nos valores das células, conforme mostrado na captura de tela a seguir, como você lidaria com essa 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 maneira direta de alterar várias alturas de linha com base no valor da célula de uma só vez, mas, com o seguinte código VBA, ele pode ajudá-lo a concluir esse trabalho o mais rápido possível.
1. Pressione e segure 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, pressione a tecla F5 para executar este código, e uma caixa de prompt será exibida para lembrá-lo de selecionar as células que deseja ajustar a altura da linha com base nos valores das células, veja a captura de tela:
4. E então clique no botão OK, a altura da linha foi alterada pelo valor da célula conforme segue:
Observação: 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 o valor da célula for menor que 15, a altura da linha permanecerá com a altura padrão. Você pode alterá-lo conforme necessário.
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins