南京誉迈食品有限公司:EXCEL?VBA经典常用语句四百句（三）

EXCEL VBA经典常用语句四百句（三）

转载

excel

vba

经典语句

VBA经典常用语句400句（三）

'(261)选定包含活动单元格的整个数组单元格区域.假定该单元格在数据单元格区域中
ActiveCell.CurrentArray.Select
'(262)将当前单元格数字格式设置为带3位小数,若为负数则显示为红色
ActiveCell.NumberFormatLocal = "0.000; [红色] 0.000"
'(263)判断活动单元格中是否有值
IsEmpty (ActiveCell.Value)
'(264)删除字符串前面的空白字符
ActiveCell.Value = LTrim(ActiveCell.Value)
'(265)获取活动单元格中字符串的个数
Len(ActiveCell.Value)
'(266)将当前单元格中的字符转换成大写
ActiveCell.Value = UCase(ActiveCell.Value)
'(267)将活动单元格中的字符串转换成小写
ActiveCell.Value = StrConv(ActiveCell.Value, vbLowerCase)
'(268)在当前工作表的单元格C1中添加批注
ActiveSheet.Range("C1").AddComment
'(269)获取今天的星期,以数值表示,1-7分别对应星期日至星期六
Weekday (Date)
'(270)将单元格A1的数值填充到单元格A1至A10区域中
ActiveSheet.Range("A1").AutoFill Range(Cells(1, 1), Cells(10, 1))
'(271)获取今天在全年中的天数
DatePart("y", Date)
'(272)获取两年后的今天的日期
ActiveCell.Value = DateAdd("yyyy", 2, Date)
'(273)获取今天的星期数
MsgBox WeekdayName(Weekday(Date))
'(274)在当前单元格中输入今年的年份数
ActiveCell.Value = Year(Date)
'在当前单元格中输入今天所在的月份数
ActiveCell.Value = Month(Date)
'在当前单元格中输入今天的日期数
ActiveCell.Value = Day(Date)
'(275)在当前单元格中显示月份的名称,本句为显示"一月"
ActiveCell.Value = MonthName(1)
'(276)在当前单元格中显示现在时间的小时数
ActiveCell.Value = Hour(Time)
'在当前单元格中显示现在时间的分钟数
ActiveCell.Value = Minute(Time)
'在当前单元格中显示现在时间的秒数
ActiveCell.Value = Second(Time)
'(277)删除当前工作表中的第一个形状
ActiveSheet.Shapes(1).Delete
'(278)获取当前工作表中形状的数量
ActiveSheet.Shapes.Count
'(279)改变当前工作表中第一个艺术字的方向
ActiveSheet.Shapes(1).TextEffect.ToggleVerticalText
'(280)将当前工作表中第一个艺术字的字体设置为斜体
ActiveSheet.Shapes(1).TextEffect.FontItalic = True
'(281)在当前工作表中创建一个名为"三峡"的艺术字并对其进行格式设置和选中
ActiveSheet.Shapes.AddTextEffect(msoTextEffect21, "三峡", _
"Arial Black", 22#, msoFalse, msoFalse, 66#, 80).Select
'(282)在当前工作表中以(10,10)为起点(250,100)为终点画一条直线并选中
ActiveSheet.Shapes.AddLine(BeginX:=10, BeginY:=10, EndX:=250, _
EndY:=100).Select
'(283)在当前工作表中画一个左上角在(70,40),宽为130高为72的三角形并选中
ActiveSheet.Shapes.AddShape(Type:=msoShapeRightTriangle, _
Left:=70, Top:=40, Width:=130, Height:=72).Select
'(284)在当前工作表中画一个以点(70,40)为起点,宽130高72的矩形并选中
ActiveSheet.Shapes.AddShape(Type:=msoShapeRectangle, _
Left:=70, Top:=40, Width:=130, Height:=72).Select
'(285)在当前工作表中画一个左上角在(70,40),宽为130高为72的椭圆
ActiveSheet.Shapes.AddShape(Type:=msoShapeOval, _
Left:=70, Top:=40, Width:=130, Height:=72).Select
'(286)将当前工作表中第一个形状的线条颜色变为蓝色
ActiveSheet.Shapes(1).Line.ForeColor.RGB = RGB(0, 0, 255)
'(287)将当前工作表中第2个形状的前景色设置为红色
ActiveSheet.Shapes(2).Fill.ForeColor.RGB = RGB(255, 0, 0)
'(288)将当前工作表中的第1个形状旋转20度
ActiveSheet.Shapes(1).Rotation = 20
'(289)将当前选中的形状水平翻转
Selection.ShapeRange.Flip msoFlipHorizontal
'将当前选中的形状垂直翻转
Selection.ShapeRange.Flip msoFlipVertical
'(290)将所选取的形状设置为第1种立体样式
Selection.ShapeRange.ThreeD.SetThreeDFormat msoThreeD1
'(291)将当前工作表中第一个立体形状的深度设置为20
ActiveSheet.Shapes(1).ThreeD.Depth = 20
'(292)将当前工作表中第1个立体形状的进深部分的颜色设为蓝色
ActiveSheet.Shapes(1).ThreeD.ExtrusionColor.RGB = RGB(0, 0, 255)
'(293)将当前工作表中的第1个立体形状沿X轴旋转60度
ActiveSheet.Shapes(1).ThreeD.RotationX = 60
'将当前工作表中的第1个立体形状沿Y轴旋转60度
ActiveSheet.Shapes(1).ThreeD.RotationY = 60
'(294)将所选择的立体形状转换为平面形状
Selection.ShapeRange.ThreeD.Visible = msoFalse
'(295)在形状中让指定的连接符起点脱离原来所连接的形状
Selection.ShapeRange.ConnectorFormat.BeginDisconnect
'(296)复制当前工作表中形状1的格式
ActiveSheet.Shapes(1).PickUp
'(297)在工作簿中新建一个文本框并输入内容
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 260, 160, 180, 30).TextFrame.Characters.Text = _
"fanjy.blog.excelhome.net"
'(298)在当前工作表中建立一个水平文本框并输入内容
ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, 20, 80, 100, 200).TextFrame.Characters.Text = _
"fanjy.blog.excelhome.net"
'(299)在当前工作表中插入一张d盘中名为sx的图片
ActiveSheet.Shapes.AddPicture "d:\sx.jpg", True, True, 60, 20, 400, 300
'(300)将当前图表类型改为三维面积图
ActiveChart.ApplyCustomType xl3DArea

前面的VBA语句集为ExcelVBA语句，共有300句ExcelVBA常用代码及代码功能的简要解释。本辑为WordVBA语句，为保持连续，仍源用原名称并顺延编号。
VBA语句集的特点是：一句VBA代码，后面配有代码功能简要的说明或解释。
- - - - - - - - - - - - - - - - - - --

Application对象

(301)Application.ActivePrinter ‘获取当前打印机
(302)Application.Height '当前应用程序文档的高度
(303) Application.Width ‘当前应用程序文档的宽度
(304)Application.Build ‘获取Word版本号和编译序号
(305) Application.Caption ‘当前应用程序名
(306)Application.DefaultSaveFormat '返回空字符串，表示Word文档
(307)Application.DisplayRecentFiles '返回是否显示最近使用的文档的状态
(308)Application.Documents.Count '返回当前打开的文档数
(309)Application.FontNames.Count ‘返回当前可用的字体数
(310) Application.Left ‘返回当前文档的水平位置
(311)Application.MacroContainer.FullName '返回当前文档名，包括所在路径
(312)Application.NormalTemplate.FullName '返回文档标准模板名称及所在位置
(313)Application.RecentFiles.Count '返回最近打开的文档数目
(314)Application.System.CountryRegion '返回应用程序所在的地区代码
(315)Application.System.FreeDiskSpace ‘返回应用程序所在磁盘可用空间
(316)Application.System.HorizontalResolution '返回显示器的水平分辨率
(317)Application.System.VerticalResolution '返回显示器的垂直分辨率
(318)Application.System.LanguageDesignation '返回系统所使用的语言
(319)Application.System.MathCoprocessorInstalled ‘返回系统是否安装了数学协处理器
(320)Application.System.OperatingSystem ‘返回当前操作系统名
(321)Application.System.ProcessorType '返回计算机处理器名
(322)Application.System.Version ‘返回操作系统的版本号
(323)Application.Templates.Count '返回应用程序所使用的模板数
(324)Application.UserName'返回应用程序用户名
(325)Application.Version ‘返回应用程序的版本号
- - - - - - - - - - - - - - - - - - - - - -

Documents/Document对象
(326)ActiveDocument.AttachedTemplate.FullName '返回当前文档采用的模板名及模板所在位置
(327)ActiveDocument.Bookmarks.Count '返回当前文档中的书签数
(328)ActiveDocument.Characters.Count '返回当前文档的字符数
(329)ActiveDocument.CodeName ‘返回当前文档的代码名称
(330)ActiveDocument.Comments.Count ‘返回当前文档中的评论数
(331)ActiveDocument.Endnotes.Count '返回当前文档中的尾注数
(332)ActiveDocument.Fields.Count '返回当前文档中的域数目
(333)ActiveDocument.Footnotes.Count ‘返回当前文档中的脚注数
(334)ActiveDocument.FullName '返回当前文档的全名及所在位置
(335)ActiveDocument.HasPassword '当前文档是否有密码保护
(336)ActiveDocument.Hyperlinks.Count '返回当前文档中的链接数
(337) ActiveDocument.Indexes.Count '返回当前文档中的索引数
(338)ActiveDocument.ListParagraphs.Count '返回当前文档中项目编号或项目符号数
(339)ActiveDocument.ListTemplates.Count '返回当前文档中使用的列表模板数
(340)ActiveDocument.Paragraphs.Count '返回当前文档中的段落数
(341)ActiveDocument.Password=XXX '设置打开文件使用的密码
(342)ActiveDocument.ReadOnly '获取当前文档是否为只读属性
(343)ActiveDocument.Saved '当前文档是否被保存
(344)ActiveDocument.Sections.Count '当前文档中的节数
(345)ActiveDocument.Sentences.Count ‘当前文档中的语句数
(346)ActiveDocument.Shapes.Count'当前文档中的形状数
(347)ActiveDocument.Styles.Count '当前文档中的样式数
(348)ActiveDocument.Tables.Count ‘当前文档中的表格数
(349)ActiveDocument.TablesOfAuthorities.Count ‘返回当前文档中的引文目录数
(350)ActiveDocument.TablesOfAuthoritiesCategories.Count ‘返回当前文档中引文目录类别数
(351)ActiveDocument.TablesOfContents.Count ‘返回当前文档中的目录数
(352)ActiveDocument.TablesOfFigures.Count '返回当前文档中的图表目录数

-- - - - - - - - - - - - - - - - - - - - -

Paragraphs/Paragraph对象

(353)Selection.Paragraphs.Count '返回所选区域的段落数
(354)Selection.Paragraphs.First '返回所选区域中的第一段
(355)ActiveDocument.Paragraphs(1).LeftIndent '返回当前文档中第一段的左缩进值
(356)ActiveDocument.Paragraphs(1).LineSpacing '返回当前文档中第一段的行距
(357)ActiveDocument.Paragraphs(1).OutlineLevel ‘返回或设置当前文档中第一段的大纲级别
(358)ActiveDocument.Paragraphs(1).RightIndent ‘返回当前文档中第一段的右缩进量
(359)ActiveDocument.Paragraphs(1).SpaceBefore '返回当前文档中第一段的段前间距
(360)ActiveDocument.Paragraphs(1).SpaceAfter ‘返回当前文档中第一段的段后间距
(361)ActiveDocument.Paragraphs(1).Range.Text '返回当前文档中第一段的内容
(362)ActiveDocument.Paragraphs(1).Range.Style.NameLocal '返回当前文档中第一段应用的样式名
(363)ActiveDocument.Paragraphs(1).Range.Style.Description '返回当前文档中第一段所应用样式的详细描述
(364)ActiveDocument.Paragraphs(1).Range.Style.Font.Name '返回当前文档中第一段所应用样式的字体名
(365)ActiveDocument.Paragraphs(1).Range.Style.Font.NameFarEast'返回或设置一种东亚字体名
(366) ActiveDocument.Paragraphs(1).Range.Style.Font.Size'返回或设置当前文档中第一段所应用样式的字体大小
(367) ActiveDocument.Paragraphs(1).Range.Style.Font.Spacing'返回或设置字符间距
(368)Selection.Words.Count '所选区域的字数
- - - - - - - - - - - - -
Sentences对象

(369)Selection.Sentences.Item(1)'所选区域中的第一句的内容
- - - - - - - - - -
Words对象

(371)ActiveDocument.Words(1).Select '选择当前文档中的第一个词
(372)ActiveDocument.Range.Words(1).InsertAfter "我爱你！" '在当前文档中的第一个词后插入“我爱你”
-- - - - - - - - - - - -
Characters对象

(373)Selection.Characters.Count '当前文档中所选区域的字符数
(374)ActiveDocument.Paragraphs(1).Range.InsertParagraphAfter'在当前文档的第一段之后插入一个新段落
-- - - - - - - - - - - - - - - - -

Sections/Section对象

(375)ActiveDocument.Sections.First '当前文档的第一节
(376)ActiveDocument.Sections.First.PageSetup.BottomMargin '当前文档第一节所在页的底边距
(377)ActiveDocument.Sections.First.PageSetup.LeftMargin '当前文档第一节所在页的左边距
(378)ActiveDocument.Sections.First.PageSetup.RightMargin '当前文档第一节所在页的右边距
(379)ActiveDocument.Sections.First.PageSetup.TopMargin '当前文档第一节所在页的顶边距
(380)ActiveDocument.Sections.First.PageSetup.PaperSize '返回或设置当前文档第一节所在页的大小
(381)ActiveDocument.Sections.First.PageSetup.PageHeight '返回或设置当前文档第一节所在页的高度
(382)ActiveDocument.Sections.First.PageSetup.PageWidth '返回或设置当前文档第一节所在页的宽度
(383)ActiveDocument.Sections.Add Range:=myRange '在当前文档中添加新节
(384)ActiveDocument.Sections.Item(2) '当前文档中的第二节
(385)ActiveDocument.Sections.Last.Range.InsertAfter "文档结束！"'在当前文档中最后一节的结尾添加文字“文档结束！”
- - - - - - - - - -

Range对象

(386)ActiveDocument.Range(Start:=0, End:=10) '表示当前文档前10个字符所组成的一个Range对象
(387)Set myRange = ActiveDocument.Range( _
Start:=ActiveDocument.Paragraphs(2).Range.Start, _
End:=ActiveDocument.Paragraphs(4).Range.End) '将当前文档第2段至第4段设置为一个Range对象
(388)ActiveDocument.Paragraphs(1).Range.Copy '复制当前文档中的第一段
(389) Selection.Copy
Documents.Add.Content.Paste '复制所选内容到新文档中
(390)ActiveDocument.Bookmarks("Book1").Copy Name:="Book2" '将Book2书签复制Book1书签标记的位置
(391)Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=4'将所选内容移至文档中的第4行
(392)Selection.GoTo What:=wdGoToTable, Which:=wdGoToNext '将所选内容移至下一个表格的第1个单元格
(393)Selection.Range.AutoFormat '为所选内容套用格式
(394)ActiveDocument.Content.Font.Name = "Arial" '将当前文档的字体设置为斜体
(395)ActiveDocument.Content.Select
Selection.Delete '将当前文档中的内容删除
- - - - -

其它

(396) Documents.Add '添加一个新文档
(397) Set myTable =ActiveDocument.Tables.Add(Selection.Range, 2, 2) '在当前文档所选区域添加一个2行2列的表格
(398)Open "C:\my.txt" For Input As #1 '打开一个用于输入的文件并令其编号为1
(399)Line Input #1, TextLine'读取被打开用于输入且编号为1的文件
(400)Close #1 '关闭编号为1的文件