VBA语句解释

(1) Set objExcel = CreateObject("Excel.Application")

objExcel.Workbooks.Add ‘ 创建 Excel 工作簿
(2) Application.ActivateMicrosoftApp xlMicrosoftWord ' 开启 Word 应用程序
(3) Application.TemplatesPath ‘ 获取工作簿模板的位置
(4) Application.Calculation = xlCalculationManual ‘ 设置工作簿手动计算
    Application.Calculation = xlCalculationAutomatic ‘ 工作簿自动计算
(5) Worksheets(1).EnableCalculation = False ‘ 不对第一张工作表自动进行重算
(6) Application.CalculateFull ' 重新计算所有打开的工作簿中的数据
(7) Application.RecentFiles.Maximum = 5 ' 将最近使用的文档列表数设为 5
(8) Application.RecentFiles(4).Open ' 打开最近打开的文档中的第 4 个文档
(9) Application.OnTime DateSerial(2006,6,6)+TimeValue(“16:16:16”),“BaoPo” ‘ 在 2006 年 6 月 6 日的 16:16:16 开始运行 BaoPo 过程
(10) Application.Speech.Speak ("Hello" & Application.UserName) ‘ 播放声音，并使用用户的姓名问候用户

(11) MsgBox Application.PathSeparator ' 获取 "/" 号
(12) MsgBox Application.International(xlCountrySetting) ' 返回应用程序当前所在国家的设置信息
(13) Application.AutoCorrect.AddReplacement " 葛洲坝 ", " 三峡 " ' 自动将在工作表中进行输入的 " 葛洲坝 " 更正为 " 三峡 "
(14) Beep ' 让计算机发出声音
(15) Err.Number ‘ 返回错误代码
(16) MsgBox IMEStatus ' 获取输入法状态
(17) Date = #6/6/2006#
Time = #6:16:16 AM# ' 将系统时间更改为 2006 年 6 月 6 日上午 6 时 16 分 16 秒
(18) Application.RollZoom = Not Application.RollZoom ' 切换是否能利用鼠标中间的滑轮放大 / 缩小工作表
(19) Application.ShowWindowsInTaskba = True ‘ 显示任务栏中的窗口 , 即各工作簿占用各自的窗口
(20) Application.DisplayScrollBars = True ‘ 显示窗口上的滚动条
(21) Application.DisplayFormulaBar = Not Application.DisplayFormulaBar ' 切换是否显示编辑栏
(22) Application.Dialogs(xlDialogPrint).Show ‘ 显示打印内容对话框
(23) Application.MoveAfterReturnDirection = xlToRight ' 设置按 Enter 键后单元格的移动方向向右
(24) Application.FindFile ' 显示打开对话框
(25) ThisWorkbook.FollowHyperlink http://hi.baidu.com/vba123 ‘ 打开超链接文档
(26) ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly ' 将当前工作簿设置为只读
(27) ActiveWorkbook.AddToFavorites ' 将当前工作簿添加到收藏夹文件夹中
(28) ActiveSheet.CheckSpelling ' 在当前工作表中执行 " 拼写检查 "
(29) ActiveSheet.Protect userinterfaceonly:=True ‘ 保护当前工作表
(30) ActiveSheet.PageSetup.LeftHeader = ThisWorkbook.FullName ‘ 在当前工作表的左侧页眉处打印出工作簿的完整路径和文件名
(31) Worksheets("Sheet1").Range("A1:G37").Locked = False
Worksheets("Sheet1").Protect
' 解除对工作表 Sheet1 中 A1:G37 区域单元格的锁定
' 以便当该工作表受保护时也可对这些单元格进行修改
(32) Worksheets("Sheet1").PrintPreview ' 显示工作表 sheet1 的打印预览窗口
(33) ActiveSheet.PrintPreview Enablechanges:=False ‘ 禁用显示在 Excel 的 “ 打印预览 ” 窗口中的 “ 设置 ” 和 “ 页边距 ” 按钮
(34) ActiveSheet.PageSetup.PrintGridlines = True ' 在打印预览中显示网格线
ActiveSheet.PageSetup.PrintHeadings = True ' 在打印预览中显示行列编号
(35) ActiveSheet.ShowDataForm ' 开启数据记录单
(36) Worksheets("Sheet1").Columns("A").Replace _
What:="SIN", Replacement:="COS", _
SearchOrder:=xlByColumns, MatchCase:=True ' 将工作表 sheet1 中 A 列的 SIN 替换为 COS
(37) Rows(2).Delete ' 删除当前工作表中的第 2 行
Columns(2).Delete ' 删除当前工作表中的第 2 列
(38) ActiveWindow.SelectedSheets.VPageBreaks.Add before:=ActiveCell ' 在当前单元格左侧插入一条垂直分页符
ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell ' 在当前单元格上方插入一条垂直分页符
(39) ActiveWindow.ScrollRow = 14 ' 将当前工作表窗口滚动到第 14 行
ActiveWindow.ScrollColumn = 13 ' 将当前工作表窗口滚动到第 13 列
(40) ActiveWindow.Close ' 关闭当前窗口
(41) ActiveWindow.Panes.Count ' 获取当前窗口中的窗格数
(42) Worksheets("sheet1").Range("A1:D2").CreateNames Top:=True ' 将 A2 至 D2 的单元格名称设定为 A1 到 D1 单元格的内容
(243) Application.AddCustomList listarray:=Range("A1:A8") ' 自定义当前工作表中单元格 A1 至 A8 中的内容为自动填充序列
(44) Worksheets("sheet1").Range("A1:B2").CopyPicture xlScreen, xlBitmap ' 将单元格 A1 至 B2 的内容复制成屏幕快照
(45) Selection.Hyperlinks.Delete ‘ 删除所选区域的所有链接
Columns(1).Hyperlinks.Delete ‘ 删除第 1 列中所有的链接
Rows(1).Hyperlinks.Delete   ‘ 删除第 1 行中所有的链接
Range("A1:Z30").Hyperlinks.Delete ‘ 删除指定范围所有的链接
(46) ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, _
Address:="C:/Windows/System32/Calc.exe", ScreenTip:=" 按下我，就会开启 Windows 计算器 ", TextToDisplay:="Windows 计算器 " ' 在活动单元格中设置开启 Windows 计算器链接
(47) ActiveCell.Value = Shell("C:/Windows/System32/Calc.exe", vbNormalFocus) ' 开启 Windows 计算器
(48) ActiveSheet.Rows(1).AutoFilter ‘ 打开自动筛选。若再运行一次，则关闭自动筛选
(49) Selection.Autofilter ‘ 开启 / 关闭所选区域的自动筛选
(50) ActiveSheet.ShowAllData ‘ 关闭自动筛选
(51) ActiveSheet.AutoFilterMode ‘ 检查自动筛选是否开启，若开启则该语句返回 True
(52) ActiveSheet.Columns("A").ColumnDifferences(Comparison:=ActiveSheet. _
Range("A2")).Delete ' 在 A 列中找出与单元格 A2 内容不同的单元格并删除
(53) ActiveSheet.Range("A6").ClearNotes ' 删除单元格 A6 中的批注，包括声音批注和文字批注
(54) ActiveSheet.Range("B8").ClearComments ' 删除单元格 B8 中的批注文字
(55) ActiveSheet.Range("A1:D10").ClearFormats ' 清除单元格区域 A1 至 D10 中的格式
(56) ActiveSheet.Range("B2:D2").BorderAround ColorIndex:=5, _
Weight:=xlMedium, LineStyle:=xlDouble ' 将单元格 B2 至 D2 区域设置为蓝色双线
(57) Range("A1:B2").Item(2, 3) 或 Range("A1:B2")(2, 3) ‘ 引用单元格 C2 的数据
Range("A1:B2")(3)   ‘ 引用单元格 A2
(58) ActiveSheet.Cells(1, 1).Font.Bold = TRUE ‘ 设置字体加粗
ActiveSheet.Cells(1, 1).Font.Size = 24 ‘ 设置字体大小为 24 磅
ActiveSheet.Cells(1, 1).Font.ColorIndex = 3 ‘ 设置字体颜色为红色
ActiveSheet.Cells(1, 1).Font.Italic = TRUE ‘ 设置字体为斜体
ActiveSheet.Cells(1, 1).Font.Name = "Times New Roman" ‘ 设置字体类型
ActiveSheet.Cells(1, 1).Interior.ColorIndex = 3 ‘ 将单元格的背景色设置为红色
(59) ActiveSheet.Range("C2:E6").AutoFormat Format:=xlRangeAutoFormatColor3 ' 将当前工作表中单元格区域 C2 至 E6 格式自动调整为彩色 3 格式
(60) Cells.SpecialCells(xlCellTypeLastCell) ‘ 选中当前工作表中的最后一个单元格
(61) ActiveCell.CurrentArray.Select ' 选定包含活动单元格的整个数组单元格区域 . 假定该单元格在数据单元格区域中
(62) ActiveCell.NumberFormatLocal = "0.000; [ 红色 ] 0.000" ' 将当前单元格数字格式设置为带 3 位小数 , 若为负数则显示为红色
(63) IsEmpty (ActiveCell.Value) ' 判断活动单元格中是否有值
(64) ActiveCell.Value = LTrim(ActiveCell.Value) ' 删除字符串前面的空白字符
(65) Len(ActiveCell.Value) ' 获取活动单元格中字符串的个数
(66) ActiveCell.Value = UCase(ActiveCell.Value) ' 将当前单元格中的字符转换成大写
(67) ActiveCell.Value = StrConv(ActiveCell.Value, vbLowerCase) ' 将活动单元格中的字符串转换成小写
(68) ActiveSheet.Range("C1").AddComment ' 在当前工作表的单元格 C1 中添加批注
(69) Weekday(Date) ' 获取今天的星期 , 以数值表示 ,1-7 分别对应星期日至星期六
(70) ActiveSheet.Range("A1").AutoFill Range(Cells(1, 1), Cells(10, 1)) ' 将单元格 A1 的数值填充到单元格 A1 至 A10 区域中
(71) DatePart("y", Date) ' 获取今天在全年中的天数
(72) ActiveCell.Value = DateAdd("yyyy", 2, Date) ' 获取两年后的今天的日期
(73) MsgBox WeekdayName(Weekday(Date)) ' 获取今天的星期数
(74) ActiveCell.Value = Year(Date) ' 在当前单元格中输入今年的年份数
ActiveCell.Value = Month(Date) ' 在当前单元格中输入今天所在的月份数
ActiveCell.Value = Day(Date) ' 在当前单元格中输入今天的日期数
(75) ActiveCell.Value = MonthName(1) ' 在当前单元格中显示月份的名称 , 本句为显示 " 一月 "
(76) ActiveCell.Value = Hour(Time) ' 在当前单元格中显示现在时间的小时数
ActiveCell.Value = Minute(Time) ' 在当前单元格中显示现在时间的分钟数
ActiveCell.Value = Second(Time) ' 在当前单元格中显示现在时间的秒数
(77) ActiveSheet.Shapes(1).Delete ' 删除当前工作表中的第一个形状
(78) ActiveSheet.Shapes.Count ' 获取当前工作表中形状的数量
(79) ActiveSheet.Shapes(1).TextEffect.ToggleVerticalText ' 改变当前工作表中第一个艺术字的方向
(80) ActiveSheet.Shapes(1).TextEffect.FontItalic = True ' 将当前工作表中第一个艺术字的字体设置为斜体
(81) ActiveSheet.Shapes.AddTextEffect(msoTextEffect21, " 三峡 ",   _
"Arial Black", 22#, msoFalse, msoFalse, 66#, 80).Select ' 在当前工作表中创建一个名为 " 三峡 " 的艺术字并对其进行格式设置和选中
(82) ActiveSheet.Shapes.AddLine(BeginX:=10, BeginY:=10, EndX:=250, _
EndY:=100).Select ' 在当前工作表中以 (10,10) 为起点 (250,100) 为终点画一条直线并选中
(83) ActiveSheet.Shapes.AddShape(Type:=msoShapeRightTriangle, _
Left:=70, Top:=40, Width:=130, Height:=72).Select ' 在当前工作表中画一个左上角在 (70,40), 宽为 130 高为 72 的三角形并选中
(84) ActiveSheet.Shapes.AddShape(Type:=msoShapeRectangle, _
Left:=70, Top:=40, Width:=130, Height:=72).Select ' 在当前工作表中画一个以点 (70,40) 为起点 , 宽 130 高 72 的矩形并选中
(85) ActiveSheet.Shapes.AddShape(Type:=msoShapeOval, _
Left:=70, Top:=40, Width:=130, Height:=72).Select ' 在当前工作表中画一个左上角在 (70,40), 宽为 130 高为 72 的椭圆
(86) ActiveSheet.Shapes(1).Line.ForeColor.RGB = RGB(0, 0, 255) ' 将当前工作表中第一个形状的线条颜色变为蓝色
(87) ActiveSheet.Shapes(2).Fill.ForeColor.RGB = RGB(255, 0, 0) ' 将当前工作表中第 2 个形状的前景色设置为红色
(88) ActiveSheet.Shapes(1).Rotation = 20 ' 将当前工作表中的第 1 个形状旋转 20 度
(89) Selection.ShapeRange.Flip msoFlipHorizontal ' 将当前选中的形状水平翻转
Selection.ShapeRange.Flip msoFlipVertical ' 将当前选中的形状垂直翻转
(90) Selection.ShapeRange.ThreeD.SetThreeDFormat msoThreeD1 ' 将所选取的形状设置为第 1 种立体样式
(91) ActiveSheet.Shapes(1).ThreeD.Depth = 20 ' 将当前工作表中第一个立体形状的深度设置为 20
(92) ActiveSheet.Shapes(1).ThreeD.ExtrusionColor.RGB = RGB(0, 0, 255) ' 将当前工作表中第 1 个立体形状的进深部分的颜色设为蓝色
(93) ActiveSheet.Shapes(1).ThreeD.RotationX = 60 ' 将当前工作表中的第 1 个立体形状沿 X 轴旋转 60 度
ActiveSheet.Shapes(1).ThreeD.RotationY = 60 ' 将当前工作表中的第 1 个立体形状沿 Y 轴旋转 60 度
(94) Selection.ShapeRange.ThreeD.Visible = msoFalse ' 将所选择的立体形状转换为平面形状
(95) Selection.ShapeRange.ConnectorFormat.BeginDisconnect ' 在形状中让指定的连接符起点脱离原来所连接的形状
(96) ActiveSheet.Shapes(1).PickUp ' 复制当前工作表中形状 1 的格式
(97) ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 260, 160, 180, 30). TextFrame.Characters.Text = "fanjy.blog.excelhome.net" ' 在工作簿中新建一个文本框并输入内容
(98) ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, 20, 80, 100, 200). TextFrame.Characters.Text = "fanjy.blog.excelhome.net" ' 在当前工作表中建立一个水平文本框并输入内容
(99) ActiveSheet.Shapes.AddPicture "d:/sx.jpg", True, True, 60, 20, 400, 300 ' 在当前工作表中插入一张 d 盘中名为 sx 的图片
(100) ActiveChart.ApplyCustomType xl3DArea ' 将当前图表类型改为三维面积图