Как установить размер ячейки в см (сантиметрах) в Excel?

На листе единицы измерения высоты строки и ширины столбца установлены по умолчанию, при этом стандартная ширина столбца составляет 8,38 символов, а стандартная высота строки — 12,75 пунктов. В Excel сложно установить высоту строки или ширину столбца в дюймах или сантиметрах. Однако иногда вам может понадобиться изменить высоту и ширину на сантиметры для определённых целей. Как можно решить эту проблему?

Установка размера ячейки в см (сантиметрах) с помощью кода VBA

Установка размера ячейки в см (сантиметрах) с помощью Kutools для Excel

Установка размера ячейки в см (сантиметрах) с помощью кода VBA

Вы не можете установить высоту и ширину в сантиметрах с помощью функций Excel, за исключением использования кода VBA. Следующие два кода помогут вам установить ширину столбца и высоту строки. Действуйте следующим образом:

1. Выберите ячейки, которые вы хотите установить в сантиметрах.

2. Нажмите Разработчик > Visual Basic, откроется новое окно Microsoft Visual Basic для приложений, нажмите Вставить > Модуль и введите следующий код в Модуль:

Код для установки высоты строки в сантиметрах:

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. Затем нажмите кнопку для выполнения кода. Появится всплывающее окно, которое предложит вам ввести значение высоты строки. Смотрите скриншот:

Примечание: число, которое вы вводите, должно быть меньше 15. Этот код VBA не изменит высоту строки, если вы введёте 0 в этом диалоговом окне.

4. Нажмите ОК. Высота строки выбранных ячеек будет установлена на 2 сантиметра. Смотрите скриншот:

Если вы также хотите установить ширину столбца в сантиметрах, вы можете ввести следующий код:

Код для установки ширины столбца в сантиметрах:

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

Установка размера ячейки в см (сантиметрах) с помощью Kutools для Excel

С помощью вышеуказанных кодов вы можете только установить размер ячейки в сантиметрах. Сегодня я хочу представить вам многофункциональный инструмент, Kutools для Excel, который позволяет не только устанавливать размер ячейки в сантиметрах, но также в дюймах, фунтах и пикселях.

После установки Kutools для Excel выполните следующие действия:（Бесплатная загрузка Kutools для Excel прямо сейчас!)

1. Выделите ячейки, которые вы хотите установить в сантиметрах.

2. Нажмите Kutools > Формат > Настроить размер ячейки, смотрите скриншот:

3. В диалоговом окне Настройка размера ячейки выберите нужный Тип единицы измерения и укажите Высоту строки и Ширину столбца в разделе Установить значения . Смотрите скриншот:

4. Затем нажмите ОК или Применить. Вы получите ячейки с высотой строки 2 см и шириной столбца 3 см.

Демонстрация: Установка размера ячейки в см (сантиметрах) с помощью Kutools для Excel

Связанные статьи:

Установка ширины столбца и высоты строки для диапазона

Как сделать квадратные ячейки в Excel?