Como aumentar a altura da linha no Excel por X. ie. Adicionar preenchimento de célula vertical

Question

Eu tenho este relatório e quero aumentar o preenchimento vertical da célula para facilitar a leitura.

Agora, você pode selecionar várias linhas e alterar a altura da linha até que esteja satisfeito.

No entanto, neste caso, tenho células com texto agrupado e várias linhas. Não consigo alterar a altura da linha, porque o texto encapsulado será cortado.

O que eu quero fazer é aumentar a altura da linha de um grupo de células em um determinado valor. Em vez de apenas alterá-lo para um valor especificado. ie.

rowheight = rowheight + X

Não

rowheight = X

Você pode fazer isso no excel? Vou precisar do VBA?

    

Answer 1

Eu escolheria o código abaixo ... não tenho certeza se haveria uma maneira de aplicá-lo para todas as linhas uma vez. Eu ficaria feliz (e upvote) se alguém aqui sabe:)

Sub fixRowHeight()

Dim oRange As Excel.Range
Dim oRow As Excel.Range
Dim dblFactor As Double

Set oRange = Sheets(1).Range("A1:B25")
dblFactor = 5

For Each oRow In oRange.Rows

    oRow.RowHeight = oRow.RowHeight + dblFactor

Next oRow

End Sub

    

Answer 2

Acabei de acertar este problema e a solução acima não é satisfatória em algumas circunstâncias.

1. Insira uma coluna em algum lugar - provavelmente, coluna A. Selecione a coluna inteira.
2. Dê bordas de cima / baixo do tipo mais espesso - a barra de gordura sólida - aplique / ok.
3. Selecione todas as outras colunas que você gostaria de receber. Centralize-os verticalmente.
4. Ocultar a coluna com borda & salvar.

Isso oferece um preenchimento superior e inferior de aproximadamente 3 unidades / 5px top & inferior. Com arial, basta manter os topos e as caudas tocando as bordas das células.

O código VBA fornecido é bom. Mas ele falha assim que sua planilha é visualizada por alguém que precisa restringir algumas colunas e, portanto, remove a formatação manual ou aplica a sua própria. Se o usuário souber o que está fazendo, ele pressiona Ctrl + A e clica duas vezes em um indicador de linha para alinhar automaticamente todas as linhas.

O uso das bordas fornece uma solução que sempre funcionará independentemente, a menos que seja manualmente formatada.

    

Answer 3

Aqui está uma macro para ajudá-lo.

Primeiro, define o alinhamento vertical de cada célula para Center .

Em seguida, ele pega a altura atual de cada célula e adiciona 7.5 a ele (isto é equivalente a 10 pixels ). No final, ele adiciona um preenchimento de 5 pixels à parte superior e inferior da célula. Basta ajustar esse valor de acordo com sua preferência.

Sub PadCells()

Set cr = Selection

For Each cr In cr.Rows
    newHeight = cr.RowHeight + 7.5 
    cr.VerticalAlignment = xlCenter
    cr.RowHeight = newHeight
Next cr

End Sub

Para usar:

1. Selecione as células para as quais você deseja ajustar a altura.
2. Execute a macro.

Answer 4

Para expor na resposta de Tiago Cardoso , adicionei uma condição para verificar se a altura máxima da linha não é excedida ao aumentar a altura da linha com a variável do fator de redimensionamento.

Sub FixRowHeight()
    Dim oRange As Excel.Range
    Dim oRow As Excel.Range
    Dim dblFactor As Double

    Set oRange = Sheets(1).Range("A1:O367")
    dblFactor = 12

    For Each oRow In oRange.Rows
        If oRow.RowHeight + dblFactor <= 409.5 Then
            oRow.RowHeight = oRow.RowHeight + dblFactor
        Else
            oRow.RowHeight = 409.5
        End If
    Next oRow
End Sub