Як встановити розмір комірки в см (сантиметри) в Excel?
На аркуші попередньо встановлені одиниці за замовчуванням для висоти рядка та ширини стовпця, а ширина стовпця за замовчуванням - 8.38 символів, а висота рядка за замовчуванням - 12.75 бала. А в 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 який не тільки може встановити розмір комірки в сантиметрах, але також у дюймах, фунтах та пікселях.
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 вирішує більшість ваших проблем і збільшує продуктивність на 80%
Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
Thank you. I used your idea to compare ColumnWidth and Width, and it was very helpful. I did this function in Object Pascal and want to share it with you. Thanks.
procedure ActiveCellColumnWidthInCentimeters(ExcelApp: Variant; CM: Double); var dColumnWidth, dWidth, points: Double; begin dColumnWidth := ExcelApp.ActiveCell.ColumnWidth; dWidth := ExcelApp.ActiveCell.Width; points := ExcelApp.CentimetersToPoints(CM);
кнопку для виконання коду. І з’явиться відповідне вікно із запитом ввести номер висоти рядка. Дивіться знімок екрана:
