Як встановити розмір комірки в см (сантиметри) в Excel?
На аркуші попередньо встановлені одиниці за замовчуванням для висоти рядка та ширини стовпця, а ширина стовпця за замовчуванням - 8.38 символів, а висота рядка за замовчуванням - 12.75 бала. А в Excel вам важко встановити висоту рядка або ширину стовпця в дюймах або сантиметрах. Але, іноді для деяких цілей потрібно змінити висоту та ширину на сантиметри. Як ви могли вирішити цю проблему?
Встановіть розмір комірки в см (сантиметри) за допомогою коду VBA
Встановіть розмір комірки в см (сантиметри) за допомогою Kutools для Excel
Встановіть розмір комірки в см (сантиметри) за допомогою коду VBA
Ви не можете встановити висоту та ширину в сантиметрах за допомогою функцій Excel, за винятком використання коду VBA. Наведені нижче два коди можуть допомогти вам встановити ширину стовпця та висоту рядка. Виконайте наступне:
1. Виділіть клітинки, які потрібно встановити в сантиметрах.
2. клацання Розробник > Візуальний Бейсік, новий Microsoft Visual Basic для програм відобразиться вікно, натисніть Insert > Модуліта введіть наступний код в Модуль:
Код для встановлення висоти рядка в сантиметрах:
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. клацання OK. А висоту рядків для вибраних комірок встановлено на 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 > Format > Adjust Cell Size, див. скріншот:

3 В Adjust Cell Size діалоговому вікні, виберіть Unit type вам потрібно і вказати Row height і Column width від Set values розділ. Дивіться знімок екрана:

4 Потім натисніть OK or застосовувати. Ви отримаєте клітинки з висотою рядків 2 см і шириною стовпця 3 см.

Встановіть розмір комірки в см (сантиметри) за допомогою Kutools для Excel
Статті по темі:
Встановіть ширину стовпця та висоту рядка для діапазону
Як квадратувати кілька клітинок у Excel?
Найкращі інструменти для підвищення продуктивності офісу
Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%
- Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
- Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
- Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
- Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
- Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
- Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
- Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
- Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
- Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!