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 Sub3. 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.
| Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis. | ||
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 Inscreva-se. Você obterá células com 2 cm de altura de linha e 3 cm de largura de coluna.
Defina o tamanho da célula em cm (centímetros) com Kutools para Excel
| Kutools para Excel: mais de 300 funções que você deve ter no Excel, 30 dias de teste gratuito a partir daqui. |
Artigos relacionados:
Defina a largura da coluna e a altura da linha para um intervalo
Como quadrar várias células no Excel?
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!
