Як встановити розмір комірки в см (сантиметри) в 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 Sub3 Потім натисніть 
кнопку для виконання коду. І з’явиться відповідне вікно із запитом ввести номер висоти рядка. Дивіться знімок екрана:
примітки: число, яке ви вводите, має бути менше 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, з більш ніж 300 зручні функції, полегшує вам роботу. | ||
після установки 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
| Kutools для Excel: понад 300 функцій, які ви повинні мати в Excel, 30-денна безкоштовна пробна версія звідси. |
Статті по темі:
Встановіть ширину стовпця та висоту рядка для діапазону
Як квадратувати кілька клітинок у Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
