Office中国论坛/Access中国论坛

标题: 如果改变EXCEL行高等单位为厘米 [打印本页]

作者: make 时间: 2004-6-22 21:13
标题: 如果改变EXCEL行高等单位为厘米
如果改变EXCEL行高等单位为厘米,在哪里设置,我找了一天都没找到.

请高手赐教

作者: hzg7818 时间: 2004-6-24 05:01
估计在等到微软成为一家中国公司的时候有望实现

作者: stanleypan 时间: 2004-6-24 23:44
标题: 给一个单位转换:
我们在EXCEL中目前还没有可以设置单元格成CM为单位,但可以通过VBA编程让单元格的ROW或COLUMN等于1CM.

[attach]4991[/attach]

作者: ganrong 时间: 2004-6-24 23:47
提示: 作者被禁止或删除内容自动屏蔽

作者: tmtony 时间: 2004-6-25 05:32
好像没有直接设置的选项，stanleypan的方法不错也可试试下面这个方法

Sub SetColumnWidthMM(ColNo As Long, mmWidth As Integer)

' 改变栏宽为MM

Dim w As Single

If ColNo < 1 Or ColNo > 255 Then Exit Sub

Application.ScreenUpdating = False

w = Application.CentimetersToPoints(mmWidth / 10)

Dim w As Single

If ColNo < 1 Or ColNo > 255 Then Exit Sub

Application.ScreenUpdating = False

w = Application.CentimetersToPoints(mmWidth / 10)

While Columns(ColNo + 1).Left - Columns(ColNo).Left - 0.1 > w

      Columns(ColNo).ColumnWidth = Columns(ColNo).ColumnWidth - 0.1

Wend

While Columns(ColNo + 1).Left - Columns(ColNo).Left + 0.1 < w

      Columns(ColNo).ColumnWidth = Columns(ColNo).ColumnWidth + 0.1

Wend

End Sub

Sub SetRowHeightMM(RowNo As Long, mmHeight As Integer)

' 改变行高为MM

If RowNo < 1 Or RowNo > 65536 Then Exit Sub

Rows(RowNo).RowHeight = Application.CentimetersToPoints(mmHeight / 10)

End Sub

下面例子设置行3 列C的列宽和行高为3.5CMSub ChangeWidthAndHeight()

  SetColumnWidthMM 3, 35

  SetRowHeightMM 3, 35

End Sub

应该大致可实现

[此贴子已经被作者于2004-6-24 21:35:13编辑过]

作者: stanleypan 时间: 2004-6-25 22:09
标题: 单元格或Range高宽单位转换.
[attach]5020[/attach]

作者: make 时间: 2004-6-25 23:10
非常感谢stanleypan帮助

作者: tony666 时间: 2006-7-3 19:08
请教tmtony

这段代码如何用啊

作者: yfm007 时间: 2006-10-12 05:22

以下是引用make在2004-6-22 13:13:00的发言：

如果改变EXCEL行高等单位为厘米,在哪里设置,我找了一天都没找到.
请高手赐教

如果改变EXCEL行高等单位为厘米,在哪里设置,我找了一天都没找到.
请高手赐教

我也非常想知道

作者: zx733 时间: 2009-1-3 12:46
支持就是力量！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)