Как да задам размер на клетката в см (сантиметри) в Excel?
В работния лист единиците по подразбиране за височината на реда и ширината на колоната са предварително зададени, а ширината на колоната по подразбиране е 8.38 знака, а височината на реда по подразбиране е 12.75 точки. И в Excel ви е трудно да зададете височината на реда или ширината на колоната в инчове или сантиметри. Но понякога трябва да промените височината и ширината на сантиметри за някаква цел. Как бихте могли да разрешите този проблем?
Задайте размер на клетката в cm (сантиметри) с VBA код
Задайте размер на клетката в cm (сантиметри) с Kutools за Excel
Задайте размер на клетката в cm (сантиметри) с 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 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 Задайте размер на клетката в cm (сантиметри) с 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 см ширина на колоната.
Задайте размер на клетката в cm (сантиметри) с Kutools за Excel
| Kutools за Excel: 300 + функции, които трябва да имате в Excel, 30-дневен безплатен пробен период от тук. |
Още по темата:
Задайте ширина на колона и височина на ред за диапазон
Как да поставите на квадрат няколко клетки в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
