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ê tem uma lista de números e agora deseja definir a altura da linha com base nos valores das células, conforme mostrado a seguir, como você lidaria com essa tarefa no Excel?
Altere a altura da linha com base no valor da célula com o código VBA
Altere a altura da linha com base no valor da célula com o 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 vez, mas, com o código VBA a seguir, ele pode ajudá-lo a terminar esse trabalho o mais rápido possível.
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.
Código VBA: altere 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. Então aperte F5 para executar este código, e uma caixa de prompt é exibida para lembrá-lo de selecionar as células que deseja definir a altura da linha pelos valores das células, consulte a captura de tela:
4. E, em seguida, clique em OK botão, a altura da linha foi alterada pelo valor da célula da seguinte forma:
Note: No código VBA acima, Se 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 será mantida a altura padrão. Você pode alterá-lo conforme necessário.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
