信息
(213) Application.AutoCorrect.AddReplacement \葛洲坝\三峡\自动将在工作表中进行输入的\葛洲坝\更正为\三峡\
(214) Beep '让计算机发出声音 (215) Err.Number ?返回错误代码
(216) MsgBox IMEStatus '获取输入法状态 (217) Date = #6/6/2006#
Time = #6:16:16 AM# '将系统时间更改为2006年6月6日上午6时16分16秒
(218) Application.RollZoom = Not Application.RollZoom '切换是否能利用鼠标中间的滑轮放大/缩小工作表
(219) Application.ShowWindowsInTaskba = True ?显示任务栏中的窗口,即各工作簿占用各自的窗口
(220) Application.DisplayScrollBars = True ?显示窗口上的滚动条
(221) Application.DisplayFormulaBar = Not Application.DisplayFormulaBar '切换是否显示编辑栏
(222) Application.Dialogs(xlDialogPrint).Show ?显示打印内容对话框
(223) Application.MoveAfterReturnDirection = xlToRight '设置按Enter键后单元格的移动方向向右
(224) Application.FindFile '显示打开对话框
(225) ThisWorkbook.FollowHyperlink http://fanjy.blog.excelhome.net ?打开超链接文档 (226) ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly '将当前工作簿设置为只读 (227) ActiveWorkbook.AddToFavorites '将当前工作簿添加到收藏夹文件夹中 (228) ActiveSheet.CheckSpelling '在当前工作表中执行\拼写检查\(229) ActiveSheet.Protect userinterfaceonly:=True ?保护当前工作表
(230) ActiveSheet.PageSetup.LeftHeader = ThisWorkbook.FullName ?在当前工作表的左侧页眉处打印出工作簿的完整路径和文件名
(231) Worksheets(\Worksheets(\
'解除对工作表Sheet1中A1:G37区域单元格的锁定 '以便当该工作表受保护时也可对这些单元格进行修改
(232) Worksheets(\显示工作表sheet1的打印预览窗口
(233) ActiveSheet.PrintPreview Enablechanges:=False ?禁用显示在Excel的“打印预览”窗口中的“设置”和“页边距”按钮
(234) ActiveSheet.PageSetup.PrintGridlines = True '在打印预览中显示网格线 ActiveSheet.PageSetup.PrintHeadings = True '在打印预览中显示行列编号 (235) ActiveSheet.ShowDataForm '开启数据记录单 (236) Worksheets(\What:=\
SearchOrder:=xlByColumns, MatchCase:=True '将工作表sheet1中A列的SIN替换为COS (237) Rows(2).Delete '删除当前工作表中的第2行 Columns(2).Delete '删除当前工作表中的第2列
(238) ActiveWindow.SelectedSheets.VPageBreaks.Add before:=ActiveCell '在当前单元格左侧插入一条垂直分页符
ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell '在当前单元格上方插入一
条垂直分页符
(239) ActiveWindow.ScrollRow = 14 '将当前工作表窗口滚动到第14行 ActiveWindow.ScrollColumn = 13 '将当前工作表窗口滚动到第13列 (240) ActiveWindow.Close '关闭当前窗口
(241) ActiveWindow.Panes.Count '获取当前窗口中的窗格数
(242) Worksheets(\Top:=True '将A2至D2的单元格名称设定为A1到D1单元格的内容
(243) Application.AddCustomList listarray:=Range(\'自定义当前工作表中单元格A1至A8中的内容为自动填充序列
(244) Worksheets(\将单元格A1至B2的内容复制成屏幕快照
(245) Selection.Hyperlinks.Delete ?删除所选区域的所有链接 Columns(1).Hyperlinks.Delete ?删除第1列中所有的链接 Rows(1).Hyperlinks.Delete ?删除第1行中所有的链接
Range(\删除指定范围所有的链接 (246) ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, _
Address:=\按下我，就会开启Windows计算器\TextToDisplay:=\计算器\在活动单元格中设置开启Windows计算器链接
(247) ActiveCell.Value = Shell(\vbNormalFocus) '开启Windows计算器
(248) ActiveSheet.Rows(1).AutoFilter ?打开自动筛选。若再运行一次，则关闭自动筛选 (249) Selection.Autofilter ?开启/关闭所选区域的自动筛选 (250) ActiveSheet.ShowAllData ?关闭自动筛选
(251) ActiveSheet.AutoFilterMode ?检查自动筛选是否开启，若开启则该语句返回True (252) ActiveSheet.Columns(\Range(\在A列中找出与单元格A2内容不同的单元格并删除
(253) ActiveSheet.Range(\删除单元格A6中的批注，包括声音批注和文字批注
(254) ActiveSheet.Range(\删除单元格B8中的批注文字
(255) ActiveSheet.Range(\清除单元格区域A1至D10中的格式 (256) ActiveSheet.Range(\
Weight:=xlMedium, LineStyle:=xlDouble '将单元格B2至D2区域设置为蓝色双线 (257) Range(\或Range(\引用单元格C2的数据 Range(\引用单元格A2
(258) 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 = \设置字体类型
ActiveSheet.Cells(1, 1).Interior.ColorIndex = 3 ?将单元格的背景色设置为红色
(259) ActiveSheet.Range(\Format:=xlRangeAutoFormatColor3 '将当前工作表中单元格区域C2至E6格式自动调整为彩色3格式
(260) Cells.SpecialCells(xlCellTypeLastCell) ?选中当前工作表中的最后一个单元格
(261) ActiveCell.CurrentArray.Select '选定包含活动单元格的整个数组单元格区域.假定该单
元格在数据单元格区域中
(262) ActiveCell.NumberFormatLocal = \[红色] 0.000\'将当前单元格数字格式设置为带3位小数,若为负 数则显示为红色
(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) ActiveSheet.Range(\在当前工作表的单元格C1中添加批注 (269) Weekday(Date) '获取今天的星期,以数值表示,1-7分别对应星期日至星期六
(270) ActiveSheet.Range(\将单元格A1的数值填充到单元格A1至A10区域中
(271) DatePart(\获取今天在全年中的天数
(272) ActiveCell.Value = DateAdd(\获取两年后的今天的日期 (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, \三峡\
\在当前工作表中创建一个名为\三峡\的艺术字并对其进行格式设置和选中
(282) ActiveSheet.Shapes.AddLine(BeginX:=10, BeginY:=10, EndX:=250, _
EndY:=100).Select '在当前工作表中以(10,10)为起点(250,100)为终点画一条直线并选中 (283) ActiveSheet.Shapes.AddShape(Type:=msoShapeRightTriangle, _
Left:=70, Top:=40, Width:=130, Height:=72).Select '在当前工作表中画一个左上角在(70,40),宽为130高为72的三角形并选中
(284) ActiveSheet.Shapes.AddShape(Type:=msoShapeRectangle, _
Left:=70, Top:=40, Width:=130, Height:=72).Select '在当前工作表中画一个以点(70,40)为起点,宽130高72的矩形并选中
(285) ActiveSheet.Shapes.AddShape(Type:=msoShapeOval, _
Left:=70, Top:=40, Width:=130, Height:=72).Select '在当前工作表中画一个左上角在(70,40),宽为130高为72的椭圆
(286) ActiveSheet.Shapes(1).Line.ForeColor.RGB = RGB(0, 0, 255) '将当前工作表中第一个形状的线条颜色变为蓝色
(287) ActiveSheet.Shapes(2).Fill.ForeColor.RGB = RGB(255, 0, 0) '将当前工作表中第2个形状的前景色设置为红色
(288) ActiveSheet.Shapes(1).Rotation = 20 '将当前工作表中的第1个形状旋转20度 (289) Selection.ShapeRange.Flip msoFlipHorizontal '将当前选中的形状水平翻转 Selection.ShapeRange.Flip msoFlipVertical '将当前选中的形状垂直翻转
(290) Selection.ShapeRange.ThreeD.SetThreeDFormat msoThreeD1 '将所选取的形状设置为第1种立体样式
(291) ActiveSheet.Shapes(1).ThreeD.Depth = 20 '将当前工作表中第一个立体形状的深度设置为20
(292) ActiveSheet.Shapes(1).ThreeD.ExtrusionColor.RGB = RGB(0, 0, 255) '将当前工作表中第1个立体形状的进深部分的颜色设为蓝色
(293) ActiveSheet.Shapes(1).ThreeD.RotationX = 60 '将当前工作表中的第1个立体形状沿X轴旋转60度
ActiveSheet.Shapes(1).ThreeD.RotationY = 60 '将当前工作表中的第1个立体形状沿Y轴旋转60度
(294) Selection.ShapeRange.ThreeD.Visible = msoFalse '将所选择的立体形状转换为平面形状 (295) Selection.ShapeRange.ConnectorFormat.BeginDisconnect '在形状中让指定的连接符起点脱离原来所连接的形状
(296) ActiveSheet.Shapes(1).PickUp '复制当前工作表中形状1的格式
(297) ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 260, 160, 180, 30).
TextFrame.Characters.Text = \在工作簿中新建一个文本框并输入内容
(298) ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, 20, 80, 100, 200).
TextFrame.Characters.Text = \在当前工作表中建立一个水平文本框并输入内容
(299) ActiveSheet.Shapes.AddPicture \在当前工作表中插入一张d盘中名为sx的图片
(300) ActiveChart.ApplyCustomType xl3DArea '将当前图表类型改为三维面积图