Como definir o tamanho da célula em cm (centímetros) no Excel?

Em uma planilha, as unidades padrão para a altura da linha e largura da coluna são predefinidas, a largura padrão da coluna é 8.38 caracteres e a altura padrão da linha é 12.75 pontos. E no Excel, é difícil definir a altura da linha ou a largura da coluna em polegadas ou centímetros. Mas, às vezes, você precisa alterar a altura e a largura para centímetros para algum propósito. Como você resolveria esse problema?

Defina o tamanho da célula em cm (centímetros) com o código VBA

Defina o tamanho da célula em cm (centímetros) com Kutools para Excel

Defina o tamanho da célula em cm (centímetros) com o código VBA

Você não pode definir a altura e a largura em centímetros com as funções do Excel, exceto para usar o código VBA. Os dois códigos abaixo podem ajudá-lo a definir a largura da coluna e a altura da linha. Faça o seguinte:

1. Selecione as células que deseja definir em centímetros.

2. Clique Developer > Visual Basic, Uma nova Microsoft Visual Basic para aplicativos janela será exibida, clique inserção > Móduloe insira o seguinte código no módulo:

Código para definir a altura da linha em centímetros:

Sub RowHeightInCentimeters()
Dim cm As Single
cm = Application.InputBox("Enter Row Height in Centimeters", _
"Row Height (cm)", Type:=1)
If cm Then
Selection.RowHeight = Application.CentimetersToPoints(cm)
End If
End Sub

3. Então clique  botão para executar o código. E uma caixa de prompt aparecerá para lhe dizer para inserir um número de altura de linha. Veja a imagem:

Note: o número que você insere deve ser menor que 15. E este código VBA não mudará a altura da linha se você inserir 0 nesta caixa de diálogo.

4. Clique OK. E a altura da linha das células selecionadas foi definida com 2 centímetros. Veja a imagem:

Se você deseja definir a largura da coluna em centímetros também, pode inserir o seguinte código:

Código para definir a largura da coluna em centímetros:

Sub ColumnWidthInCentimeters()
Dim cm As Single, points As Integer, savewidth As Integer
Dim lowerwidth As Integer, upwidth As Integer, curwidth As Integer
Dim Count As Integer
Application.ScreenUpdating = False
cm = Application.InputBox("Enter Column Width in Centimeters", _
"Column Width (cm)", Type:=1)
If cm = False Then Exit Sub
points = Application.CentimetersToPoints(cm)
savewidth = ActiveCell.ColumnWidth
ActiveCell.ColumnWidth = 255
If points > ActiveCell.Width Then
MsgBox "Width of " & cm & " is too large." & Chr(10) & _
"The maximum value is " & _
Format(ActiveCell.Width / 28.3464566929134, _
"0.00"), vbOKOnly + vbExclamation, "Width Error"
ActiveCell.ColumnWidth = savewidth
Exit Sub
End If
lowerwidth = 0
upwidth = 255
ActiveCell.ColumnWidth = 127.5
curwidth = ActiveCell.ColumnWidth
Count = 0
While (ActiveCell.Width <> points) And (Count < 20)
If ActiveCell.Width < points Then
lowerwidth = curwidth
Selection.ColumnWidth = (curwidth + upwidth) / 2
Else
upwidth = curwidth
Selection.ColumnWidth = (curwidth + lowerwidth) / 2
End If
curwidth = ActiveCell.ColumnWidth
Count = Count + 1
Wend
End Sub

Defina o tamanho da célula em cm (centímetros) com Kutools para Excel

Com os códigos acima, você só pode definir o tamanho da célula em centímetros, hoje, vou apresentar a vocês uma ferramenta multifuncional, Kutools for Excel que não só pode definir o tamanho da célula em centímetros, mas também em polegadas, libras e pixels.

Depois de instalar Kutools para Excel, faça o seguinte:（Baixe gratuitamente o Kutools para Excel agora!)

1. Destaque as células que deseja definir em centímetros.

2. Clique Kutools > Format > Adjust Cell Size, veja a captura de tela:

3. No Adjust Cell Size caixa de diálogo, escolha o Unit type você precisa e especifique o Row height e Column width da Set values seção. Veja a imagem:

4. Então clique OK or Aplicar. Você obterá células com 2 cm de altura de linha e 3 cm de largura de coluna.

Demonstração: Defina o tamanho da célula em cm (centímetros) com o Kutools para Excel

Artigos relacionados:

Defina a largura da coluna e a altura da linha para um intervalo

Como quadrar várias células no Excel?