一磅等于多少厘米(wps一磅等于多少厘米)
技巧 单元格格式操作1-1 单元格字体格式设置
在VBA中可以对单元格的字体格式进行各种设置,如下面的代码所示。
#001 Public Sub RngFont()
#002 With Range("A1").Font
#003 .Name = "华文彩云"
#004 .FontStyle = "Bold"
#005 .Size = 18
#006 .ColorIndex = 3
#007 .Underline = 2
#008 End With
#009 End Sub
代码解析:
RngFont过程对单元格A1的字体格式进行设置。
其中第3行代码设置字体为"华文彩云",应用于Font对象的Name属性返回或设置对象的名称。
第4行代码设置字体为加粗,FontStyle属性返回或设置字体样式。设置为"Bold" 加粗字体,设置为"Italic"倾斜字体,也可以设置成"Bold Italic"。
第5行代码设置字体的大小为18磅,Size属性返回或设置字体大小。
第6行代码设置字体的颜色为红色,应用于Font对象的ColorIndex属性返回或设置字体的颜色,该颜色可指定为当前调色板中颜色的编号,如图 111所示。
图 111 调色板中颜色的编号
第7行代码设置字体为单下划线类型,Underline属性返回或设置应用于字体的下划线类型,可为表格 111所列的XlUnderlineStyle常量之一。
常量
值
描述
xlUnderlineStyleNone
-4142
无
xlUnderlineStyleSingle
2
单下划线
xlUnderlineStyleDouble
-4119
双下划线
xlUnderlineStyleSingleAccounting
4
会计用单下划线
xlUnderlineStyleDoubleAccounting
5
会计用双下划线
表格 111 XlUnderlineStyle常量
运行RngFont过程结果如图 112所示。
图 112 单元格字体设置1-2 设置单元格内部格式
设置单元格的Interior属性可以对单元格的内部格式进行设置,如下面的代码所示。
#001 Sub RngInterior()
#002 With Range("A1").Interior
#003 .ColorIndex = 3
#004 .Pattern = xlPatternCrissCross
#005 .PatternColorIndex = 6
#006 End With
#007 End Sub
代码解析:
RngInterior过程对A1单元格的内部格式进行设置。
第2行代码使用Interior属性返回单元格对象的内部。
第3行代码设置单元格边框内部的颜色为红色。应用于Interior对象的ColorIndex属性返回或设置边框内部的颜色,可指定为如图 111所示的当前调色板中颜色的编号或为XlColorIndex 常量之一:xlColorIndexAutomatic (自动填充)、xlColorIndexNone (无内部填充)。
第4行代码设置单元格设置内部图案为十字图案。应用于Interior对象的Pattern属性返回或者设置内部图案。
第5行代码设置单元格设置内部图案的颜色为黄色。应用于Interior对象的PatternColorIndex属性返回或设置内部图案的颜色,可指定为如图 111所示的当前调色板中颜色的编号XlColorIndex常量之一:xlColorIndexAutomatic (自动填充)、xlColorIndexNone (无内部填充)。
运行RngInterior过程结果如图 113所示。
图 113 设置单元格内部格式1-3 为单元格区域添加边框
我们为单元格区域添加边框时往往通过录制宏获取代码,但宏录制器生成的代码分别设置单元格区域的每个边框,因此代码多且效率低。使用Range对象的Borders集合可以快速地对单元格区域的每个边框应用相同的格式,而Range对象的BorderAround方法则可以快速地为单元格区域添加一个外边框,如下面的代码所示。
#001 Sub AddBorders()
#002 Dim rng As Range
#003 Set rng = Range("B4:G10")
#004 With rng.Borders
#005 .LineStyle = xlContinuous
#006 .Weight = xlThin
#007 .ColorIndex = 5
#008 End With
#009 rng.BorderAround xlContinuous, xlMedium, 5
#010 Set rng = Nothing
#011 End Sub
代码解析:
AddBorders过程为单元格区域B4:G10设置内部统一边框并添加一个加粗外边框。
第4行到第8行代码使用Borders属性引用单元格区域的Borders集合,其中第5行代码设置其边框样式线条的样式,第6行代码设置边框线条的粗细,第7行代码设置边框的颜色。
应用于Range对象的Borders集合代表Range对象的4个边框(左边框、右边框、顶部边框和底部边框)的4个Border对象组成的集合,这4个边框既可单独返回,也可作为一个组同时返回。
第9行代码使用BorderAround方法为单元格区域添加一个加粗外边框。
应用于Range对象的BorderAround方法向单元格区域添加整个区域的外边框,并设置该边框的相关属性,其语法如下:
BorderAround(LineStyle, Weight, ColorIndex, Color)
其中LineStyle参数设置边框线条的样式,Weight参数设置边框线条的粗细,ColorIndex 设置边框颜色,Color参数以RGB值指定边框的颜色。
注意 指定Color参数可以设置颜色为当前调色板之处的其它颜色,不能同时指定ColorIndex参数和Color参数。
运行AddBorders过程,效果如图 114所示。
图 114 设置单元格区域边框
如果需要在单元格区域中应用多种边框格式,则需分别设置各边框格式,如下面的代码所示。
#001 Sub BordersDemo()
#002 Dim rng As Range
#003 Set rng = Sheet2.Range("B4:G10")
#004 With rng.Borders(xlInsideHorizontal)
#005 .LineStyle = xlDot
#006 .Weight = xlThin
#007 .ColorIndex = 5
#008 End With
#009 With rng.Borders(xlInsideVertical)
#010 .LineStyle = xlContinuous
#011 .Weight = xlThin
#012 .ColorIndex = 5
#013 End With
#014 rng.BorderAround xlContinuous, xlMedium, 5
#015 Set rng = Nothing
#016 End Sub
代码解析:
BordersDemo过程代码为单元格区域内部边框在水平和垂直方向上应用不同格式,并为区域添加一个加粗外边框。
Borders(index)属性返回单个Border对象,其Index参数取值可为表格 112所列的XlBordersIndex常量之一:
常量
值
描述
xlDiagonalDown
5
斜下边框
xlDiagonalUp
6
斜上边框
xlEdgeBottom
9
底部边框
xlEdgeLeft
7
左边框
xlEdgeRight
10
右边框
xlEdgeTop
8
顶部边框
xlInsideHorizontal
12
内部水平
xlInsideVertical
11
内部垂直
表格 112 XlBordersIndex常量
运行BordersDemo过程效果如图 11所示。
图 115 应用不同格式内部边框1-4 灵活设置单元格的行高列宽
一般情况下单元格的行高列宽都是以磅为单位进行设置的,也可以使用英寸和厘米计量单位设置单元格的行高列宽,如下面的代码 所示。
#001 Sub RngToPoints()
#002 With Range("A1")
#003 .RowHeight = Application.CentimetersToPoints(2)
#004 .ColumnWidth = Application.CentimetersToPoints(1.5)
#005 End With
#006 With Range("A2")
#007 .RowHeight = Application.InchesToPoints(1.2)
#008 .ColumnWidth = Application.InchesToPoints(0.3)
#009 End With
#010 End Sub
代码解析:
RngToPoints过程以英寸和厘米计量单位设置单元格的行高列宽。
第3、4行代码使用CentimetersToPoints方法以厘米为计量单位设置A1单元格的行高列宽。CentimetersToPoints方法将计量单位从厘米转换为磅(一磅等于 0.035 厘米),语法如下:
expression.CentimetersToPoints(Centimeters)
参数expression是必需的,返回一个Application对象。
参数Centimeters是必需的,指定要转换为磅值的厘米值。
第5、6行代码使用InchesToPoints方法以英寸为计量单位设置A2单元格的行高列宽。InchesToPoints方法将计量单位从英寸转换为磅,语法如下:
expression.InchesToPoints(Inches)
参数expression是必需的,返回一个Application对象。
参数Inches是必需的,指定要转换为磅值的英寸值。
运行RngToPoints过程结果如图 116所示。
图 116 灵活设置单元格的行高列宽
黍是什么(黍是哪个原始居民种植的)传统上,莆仙地区的农作物以粮食作物为主,而粮食作物又以水稻为主,并且本地传统上只种植水稻而不种植旱稻,这就导致稻在方言被默认为水稻,平读谷字则特指稻谷(或特指水稻的子实),而不用于
镜像文件是什么(原始镜像文件)大家好,今天分享一篇来自小白系统官网(xiaobaixitong。com)的图文教程。镜像文件是一种光盘镜像文件格式,和压缩文件类似。常见的镜像文件一般是ISO格式,一般需要通过一
大学生创业策划书给你致富的平台让你走上人生巅峰大学生创业策划书怎么写?那么什么叫创业策划书呢?其实创业策划书很简单,它其实是创业者想投资大门的一种敲门砖,那么优秀的创业书往往会使得创业者达到一种事半功倍的效果,创业生活中其实是
中华汽车闪耀40超越巅峰董事长严凯泰期许中华再创璀璨40年为了感谢全体同仁一年来的努力,中华汽车今(126)在杨梅厂内员工餐厅举办2012年终尾牙聚餐,董事长严凯泰总经理刘兴台带领全公司2,000位员工日
中国好声音第二季巅峰之夜(2020中国好声音鸟巢巅峰之夜)中国好声音第二季巅峰之夜(2020中国好声音鸟巢巅峰之夜)震撼人心,美好中国!万众期待的金典2020中国好声音巅峰之夜演唱会正在紧张筹备中,深表敬意的温情巨制即将上线。百米超大舞台
今日四川省内肥猪价(你这肥猪)这是继2月以来,均价为1752元公斤,但是对养猪朋友们来说无疑是对12月猪价能够上涨的信心吃下了一颗定心丸,成都09年下半年肥猪价钱还会下降吗,四川启动年内第二次省级猪肉收储。启动
赵本山资产(一线明星代言费一般多少)赵本山资产(一线明星代言费一般多少)前段时间,赵本山的女儿球球在直播时遇到了一些小麻烦。本来愉快的直播,有人故意发难,不依不饶追问家里究竟有多少资产。面对这样的问题,球球并未正面回
湖南卫视主持人工资排名(明星代言报价一览表)湖南卫视主持人工资排名(明星代言报价一览表)湖南台作为全国顶尖的电视台,里面的每个主持人不光是主持人了,还是理所当然的大明星。众所周知,大明星特别是小鲜肉的收入堪称天价,花3个月拍
四小花旦之首(一线明星代言费一般多少)四小花旦之首(一线明星代言费一般多少)黄圣依和杨子参加婆婆和妈妈的时候,告别之际,黄圣依拿出自己妈妈自己创作的书岁月可当歌送给大家。除了有家庭故事,还有教育子女的故事和经验,以及妈
师德小故事(用身边故事诠释师德内涵岳麓区这个师德师风工作室成立了)师德小故事(用身边故事诠释师德内涵岳麓区这个师德师风工作室成立了)研讨和分享现场。红网时刻长沙7月10日讯(记者贺卫玲通讯员梁亚)班上特殊的孩子占用老师的精力,影响其他的孩子导致正
在线查开的房记录查询查kaifang网址在线查开的房记录查询(查kaifang网址)我们可以通过在线查看房间记录(查看凯方网站)来查找记录。还有很多方法。例如,您可以从当地税务局找到您的房地产契税记录,从银行找到您的抵押
如何域名注册(域名注册平台)在米市,除了自身建站需要之外,其实注册域名就是注册到一个有价值的域名从而出售。那么如何去注册到价值高市场需求度大的域名呢?有什么如何到好域名的通用方法吗?以下是有关如何注册价值高市
域名如何注册(如何申请一个域名)简单来说,如果你的网站是一所房子,那么域名便是它的地址。与现实社会不同,域名被赋予了太多的含义,品牌商标行业意义等等,除此之外,它还要方便记忆,甚至还要考虑被仿冒我们总结了一些域名
如何绑定域名(自建动态域名解析服务器)有很多用户都希望通过一个域名来访问自己的看云文档,其实这个非常容易实现。如果你只有一个文档需要绑定域名,那么可以使用下面的方法进行域名绑定。很简单,只要两个步骤哦。第一步在文档的域
如何解析域名(域名无法访问的原因)由于计算机无法直接识别我们输入的域名,所以必须通过DNS解析环节将域名翻译成可由计算机识别的IP地址,才能完成整个访问过程。如果DNS发生故障就无法将域名正确指向对应的IP地址,进
二级域名是什么(二级域名解析)随着互联网的发展,很多企业都会选择使用二级域名,那么,什么是二级域名呢?什么是二级域名?域名由一串字符域名后缀组成。顶级域名为一串字符中间一个点隔开的域名,二级域名则是两个点隔开。
中文域名有什么用(什么公司看中中文域名)对于网站,大家是不是还停留在数字或字母等字符上,如想到一个中文名称,如百度,就能联想到官网为BAIDU,就是尾巴多变,可能是com,也有cn,或是net等等,以及一些并不常见的网站
什么是中文域名(域名是什么有什么用)域名,被形象地称为计算机的门牌号。一直以来,英文始终是互联网资源的主要描述语言,域名也不例外。自1994年中国正式接入国际互联网起,多名中国互联网专家致力于推动中文域名国际标准的制
域名注册多久(域名注册备案要多久)众所周知,在购买了域名,要在国内进行正常使用的话,是必须进行备案的。备案大体经常用到的有两种,一种是企业备案,一种就是个人备案。这两天也是赶着双十一的活动,便宜购买了一个服务器,顺
域名解析的两种主要方式(域名解析主要分为哪两种类型)一域名分级结构互联网采用了层次树状结构的命名方法。任何一个连接在互联网上的主机或路由器,都有一个唯一的层次结构的名字,即域名。域名的结构由标号序列组成,各标号之间用点隔开。类似于这
艾滋病症状(感染艾滋病的6个症状)艾滋病症状(感染艾滋病的6个症状)艾滋病在我们国家绝大部分都是通过性传播,性传播已经占到了所有传播途径的90以上。除了性传播,还可以通过血液传播母婴传播。一般普通的接触,不会发生感
女人艾滋病的症状(女人感染艾滋病的6个症状)女人艾滋病的症状(女人感染艾滋病的6个症状)艾滋病在我们国家绝大部分都是通过性传播,性传播已经占到了所有传播途径的90以上。除了性传播,还可以通过血液传播母婴传播。一般普通的接触,