根据单位换算的关系，设定厘米对应的磅值大小；一厘米大概等于28.57143磅，即1CM＝28.57143磅；（6厘米等于多少磅呢？）大家可能已发现了，这种换算关系只是一种近似值，所以，难于精确到位，只能做个差强人意的近似换算；但是，蛮天不过，蛮地不成，蛮人的眼睛(视觉惰性)应该没有问题滴！只要值取得越近似，人的眼睛就越觉察不到！
　　二：得使用不为常人使用的VBA绝招了
　　以下提供源代码，能利用则利用，不能利用就按上述方法实现吧，该问题非己之过，俺也没理亏！！
＝＝＝代码开始＝＝＝
Sub MakeRuler_cm()'以厘米為單位'Define the size of a new ruler.Const Ruler_Width As Double = 10 'Width 16 cmConst Ruler_Height As Double = 10 'Height 14 cm
'The setting size on the screen and the actual size on the printer.Const Screen_Width As Double = 16Const Screen_Height As Double = 14Const Printer_Width As Double = 16Const Printer_Height As Double = 14
Dim i As LongDim l As LongDim x As LongDim y As LongDim ws As WorksheetDim x2 As DoubleDim y2 As Double
x = Ruler_Width * 10y = Ruler_Height * 10
Applation.ScreenUpdating = False
Set ws = ActiveSheetWorksheets.AddActiveSheet.MoveActiveSheet.Lines.Add 0, 0, 3 * x, 0For i = 1 To xIf i Mod 10 = 0 Then l = 5 Else: If i Mod 5 = 0 Then l = 4 Else l = 3ActiveSheet.Lines.Add 3 * i, 0, 3 * i, 3 * lNextActiveSheet.Lines.Add 0, 0, 0, 3 * yFor i = 1 To yIf i Mod 10 = 0 Then l = 5 Else: If i Mod 5 = 0 Then l = 4 Else l = 3ActiveSheet.Lines.Add 0, 3 * i, 3 * l, 3 * iNextActiveSheet.Lines.Border.ColorIndex = 55
For i = 10 To x - 1 Step 10With ActiveSheet.TextBoxes.Add(3 * i - 9, 3 * 5, 18, 12).Text = Format(i \ 10, "!@@")End WithNextFor i = 10 To y - 1 Step 10With ActiveSheet.TextBoxes.Add(3 * 5, 3 * i - 9, 12, 18).Orientation = xlDownward.Text = Format(i \ 10, "!@@")End WithNextWith ActiveSheet.TextBoxes.Font.Size = 9.Font.ColorIndex = 55.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenter.Border.ColorIndex = xlNone.Interior.ColorIndex = xlNoneEnd With
With ActiveSheet.DrawingObjects.Group.Placement = xlFreeFloating.Width = Application.CentimetersToPoints(x / 10).Height = Application.CentimetersToPoints(y / 10).CopyPicture xlScreen, xlPictureActiveSheet.Pastex2 = (Selection.Width - .Width) / 3y2 = (Selection.Height - .Height) / 3Selection.Delete.CopyPicture xlPrinter, xlPictureActiveSheet.Paste.Width = .Width * .Width / (Selection.Width - x2 * 2) * Screen_Width / Printer_Width.Height = .Height * .Height / (Selection.Height - y2 * 2) * Screen_Height / Printer_HeightSelection.DeleteIf Val(Application.Version)&&= 9 Then.CopyActiveSheet.PasteSpecial 'Format:="Picture (PNG)"With Selection.ShapeRange.PictureFormat.CropLeft = x2.CropTop = y2.CropRight = x2.CropBottom = y2End WithSelection.Copyws.Activatews.PasteSpecial 'Format:="Picture (PNG)"Selection.Placement = xlFreeFloating.Parent.Parent.Close FalseEnd IfEnd WithApplication.ScreenUpdating = TrueEnd Sub
＝＝代码结束＝＝＝
试试再找找您想看的资料
资料搜索：
查看相关资料 & & &
　　　同意评论声明
　　　发表
尊重网上道德，遵守中华人民共和国的各项有关法律法规
承担一切因您的行为而直接或间接导致的民事或刑事法律责任
本站管理人员有权保留或删除其管辖留言中的任意内容
本站有权在网站内转载或引用您的评论
参与本评论即表明您已经阅读并接受上述条款
copyright & &广电电器(中国梧州) -all right reserved& 若您有什么意见或建议请mail: & &
地址： 电话：(86)774-2826670&查看: 10437|回复: 6
阅读权限2UID539700函数0 关最后登录经验148 点在线时间13 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币67 个积分148精华0帖子日志注册时间
幼儿园中班, 积分 148, 距离下一级还需 52 积分
金币67 个积分148帖子
在一张A4纸里面，打两个大小等同的表格，设置为横向打印。 要怎么怎么知道一张A4纸的宽有多宽，长有多长呢？ 因为我想设置两个表格格子平分一半的A4纸宽。但不知道怎么设置？谢谢大家解答！
阅读权限3UID512034函数0 关最后登录经验209 点在线时间28 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币369 个积分209精华0帖子日志注册时间
幼儿园大班, 积分 209, 距离下一级还需 91 积分
金币369 个积分209帖子
选中全部列，用鼠标拖动，要多宽有多宽，而且是平均得
阅读权限1UID526896函数0 关最后登录经验36 点在线时间8 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币48 个积分36精华0帖子日志注册时间
幼儿园小班, 积分 36, 距离下一级还需 64 积分
金币48 个积分36帖子
不用知道A4纸多宽多长，打印的时候，设置一页宽，一页高就好了，当然之前按照楼上的兄弟先把两个表格做的一样大小
阅读权限255UID18803函数1 关最后登录经验11120 点在线时间1273 小时VBA0 关分享记录好友技巧5 关相册主题段位3 段金币8270 个积分11237精华1帖子日志注册时间
金币8270 个积分11237帖子
A4=21*29.7
阅读权限255UID62147函数0 关最后登录经验8293 点在线时间921 小时VBA2 关分享记录好友技巧8 关相册主题段位3 段金币973 个积分8643精华1帖子日志注册时间
三极管 场效应【开关电源管】
金币973 个积分8643帖子
打印预览，调整到 合适大小！
偶空间有金币，一般人我不告诉她!
阅读权限3UID486480函数0 关最后登录经验285 点在线时间48 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币44 个积分298精华0帖子日志注册时间
幼儿园大班, 积分 298, 距离下一级还需 2 积分
金币44 个积分298帖子
当你设定的分辨率是72像素/英寸时，A4纸的尺寸的图像的像素是595×842，
当你设定的分辨率是150像素/英寸时，A4纸的尺寸的图像的像素是，
当你设定的分辨率是300像素/英寸时，A4纸的尺寸的图像的像素是，
你选择不同的分辨率，图像像素大小也随之变化。
当然，别忘了1英寸＝25.4毫米。
& && && && && && &A4纸长29.7厘米，宽21厘米==297/25.4=11.69英寸，210/25.4=8.26英寸
根据自己需要的分辨率就可以算了。
以300dpi为例：297/25.4*300,210/25.4*300，长和宽自己转换了。太多小数了，可能有一个像素的误差
我也是百度来的，仅供参考。
阅读权限2UID539700函数0 关最后登录经验148 点在线时间13 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币67 个积分148精华0帖子日志注册时间
幼儿园中班, 积分 148, 距离下一级还需 52 积分
金币67 个积分148帖子
wite007 发表于
当你设定的分辨率是72像素/英寸时，A4纸的尺寸的图像的像素是595×842，
当你设定的分辨率是150像素/英寸 ...
谢谢很窝心的百度资料！
最佳答案累计大于100
站长推荐 /1
由兰色幻想+小妖录制，全套290集excel高清视频，包括108集技巧，98个常用函数、80集VBA宏编程等内容，你想学的这里都有。双11活动继续，限时5折优惠！
Powered by我看了，在工具……选项中没有该设置
猜你喜欢看
在线时间0 小时经验8 威望0 性别男最后登录注册时间阅读权限10UID21958积分8帖子精华0分享0
EH新人, 积分 8, 距离下一级还需 12 积分
积分排行3000+帖子精华0微积分0
谁能帮我解答？
在线时间0 小时经验8 威望0 性别男最后登录注册时间阅读权限10UID21958积分8帖子精华0分享0
EH新人, 积分 8, 距离下一级还需 12 积分
积分排行3000+帖子精华0微积分0
都20个人看了，还没人回答，惨哦
在线时间1016 小时经验4324 威望29 性别男最后登录注册时间阅读权限100UID324积分8924帖子精华12分享0
积分排行81帖子精华12微积分0
I don't think it's feasible.
在线时间0 小时经验1466 威望9 性别男最后登录注册时间阅读权限50UID30积分1666帖子精华2分享0
EH高级, 积分 1666, 距离下一级还需 334 积分
积分排行633帖子精华2微积分0
现在的答案是：没有！
将复杂的事情简单化
积分≥4700即可申请
- 注意：自起，未完成邮箱认证的会员将无法发帖！如何完成邮箱认证？请点击下方“查看”。
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&在Excel中设计表格时如何使用厘米为单位来设置行高和列宽
我们最熟悉的单位莫过于CM厘米，在设计表格的时候，当然也以CM作为单位，那么在设置行高和列宽时如何以厘米为单位呢？关于这个问题，其实很简单，切换一下视图就可以搞定了。有此需求的朋友可以参考下。
首先切换到【页面布局】视图，选择一列，右键单击，选择【列宽】，在弹出的对话框中就可以看到是以CM厘米为单位的。如要设置行高，，可以执行同样的步骤。：
在视图标签下，切换到【页面布局】视图
我们看到这里出现尺子刻度就知道可以了
选择一列，右键单击，选择【列宽】
弹出一个对话框，你可以看到它是以厘米为单位的，点击确定
同样的方法我们设置行高，右键单击-选择【行高】
输入数值，点击确定按钮。
PowerPoint
《全集共50课》分别有基础入门和高级两部教程，让你从零开始学起，从菜鸟变成高手
《全集共43课》从Word发展历史到文档操作应用到打印，教程风趣幽默通俗易懂
《全集共47课》由微软官方提供的视频教程，详细讲解了Word2010的新功能
《全集共65课》详细讲解了Excel表格的基础操作与图表、图形、数据、打印等
《全集共36课》从Excel的初步了解到表格透视图表制作和函数公式应用
《全集共22课》Excel2010最新功能介绍和使用，还在不断更新，尽情关注
《全集共22课》PowerPoint软件的介绍和应用每篇都讲解了多个功能的使用
《全集共29课》不会制作幻灯片不用担心，本篇视频教程详细讲解幻灯片制作和动画制作
《全集共29课》新版本的PPT中增添了许多意想不到的功能，让你设计幻灯片时更加轻松您还未登陆，请登录后操作！
悬赏20爱心点
分享到微博
excel 怎么毫米值替换厘米?
表格里单位都是全的毫米,现在领导要求最小单位是厘米,这个可以自动把毫米值转换成厘米值吗,能给我的点详细操作过程吗,不太会用EXCEL表格,哪位好心人教下吧,谢谢了
揣测题意的两种可能：
1、将毫米数值转换为厘米数值：在空格输入10，复制，选中全部毫米数据，“选择性粘贴/运算/除/确定”，即可将原毫米数据一次性全部转换为厘米数据。
2、将毫米单位符号转换为厘米单位符号：选中全部毫米单位符号区域，“编辑/替换/查找内容/毫米/替换为/厘米/全部替换”，即可将毫米二字全部更改为厘米二字。
我看也是这个意思
回答数：12090