Note: The other languages of the website are Google-translated. Back to English
登陆  \/ 
x
or
x
点此注册  \/ 
x

or

如何在Excel中以cm(厘米)为单位设置单元格大小?

在工作表上,行高和列宽的默认单位是预设的,默认列宽为8.38个字符,默认行高为12.75点。 在Excel中,很难以英寸或厘米为单位设置行高或列宽。 但是,有时您出于某些目的需要将高度和宽度更改为厘米。 您如何解决这个问题?

使用VBA代码以cm(厘米)为单位设置像元大小

使用Kutools for Excel以cm(厘米)为单位设置单元格大小好主意3


箭头蓝色右气泡 使用VBA代码以cm(厘米)为单位设置像元大小

除了使用VBA代码外,您无法使用Excel的功能以厘米为单位设置高度和宽度。 以下两个代码可以帮助您设置列宽和行高。 进行如下操作:

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。 然后点击 doc-multiply-calculation-3 按钮执行代码。 然后会弹出一个提示框,告诉您输入多个行高。 看截图:

doc-set-cell-size-cm1

备注:输入的数字必须小于15。如果在此对话框中输入0,则此VBA代码不会更改行高。

4。 点击 OK。 所选单元格的行高已设置为2厘米。 看截图:

doc-set-cell-size-cm2 -2 doc-set-cell-size-cm3

如果还要以厘米为单位设置列宽,则可以输入以下代码:

设置列宽(厘米)的代码:

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 for Excel以cm(厘米)为单位设置单元格大小

有了上述代码,您只能以厘米为单位设置像元大小,今天,我将向您介绍一个多功能工具, Kutools for Excel 它不仅可以设置厘米大小,还可以设置英寸,磅和像素。

Kutools for Excel, 与超过 300 方便的功能,使您的工作更加轻松。 

安装后 Kutools for Excel,请执行以下操作:(立即免费下载Kutools for Excel!)

1.突出显示要设置的单元格(以厘米为单位)。

2。 点击 Kutools > Format > Adjust Cell Size,请参见屏幕截图:

doc设定储存格大小cm9

3。 在里面 Adjust Cell Size 对话框中选择 Unit type 您需要并指定 Row heightColumn width 低至 Set values 部分。 看截图:

doc以cm 5为单位设置单元格大小

4。 然后点击 OK or 申请。 您将获得具有2 cm行高和3cm列宽的单元格。

doc-set-cell-size-cm6


箭头蓝色右气泡 使用Kutools for Excel以cm(厘米)为单位设置单元格大小

Kutools for Excel:您必须在Excel中拥有300多种功能, 从这里免费试用30天。

相关文章:

设置范围的列宽和行高

如何在Excel中对多个单元格求平方?


最佳办公效率工具

Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%

  • 重用: 快速插入 复杂的公式,图表 以及您以前使用过的任何东西; 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不会丢失数据; 拆分单元格内容; 合并重复的行/列...防止细胞重复; 比较范围...
  • 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
  • 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
  • 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
  • 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
  • 超过300种强大功能。 支持Office / Excel 2007-2019和365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能30天免费试用。 60天退款保证。
kte选项卡201905

Office选项卡为Office带来了选项卡式界面,使您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
officetab底部
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Iverson Farias Costa · 6 years ago
    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);

    ExcelApp.ActiveCell.ColumnWidth := ((points * dColumnWidth) / dWidth);
    end;
  • To post as a guest, your comment is unpublished.
    dm · 6 years ago
    Seems redundant.

    Just go into the regular column size dialogue and add "cm" after typing the size.
  • To post as a guest, your comment is unpublished.
    Sani · 6 years ago
    Needed this badly. [b]Thank you so much![/b]
  • To post as a guest, your comment is unpublished.
    MrsJennyk · 7 years ago
    Wow - that is awesome! I needed to set cells to print at a certain size. I have never been able to figure out how to do that before. Yay for VBA!