ExcelExcel之VBA编程常用语句300句

(257) Range(\"A1:B2\").Item(2, 3)或Range(\"A1:B2\")(2, 3) ‘引用单元格C2的数据

Range(\"A1:B2\")(3) ‘引用单元格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 = \"Times New Roman\" ‘设置字体类型

ActiveSheet.Cells(1, 1).Interior.ColorIndex = 3 ‘将单元格的背景色设置为红色

(259)

ActiveSheet.Range(\"C2:E6\").AutoFormat

Format:=xlRangeAutoFormatColor3 '将当前工作表中单元格区域C2至E6格式自动调整为彩色3格式

(260) Cells.SpecialCells(xlCellTypeLastCell) ‘选中当前工作表中的最后一个单元格

(261) ActiveCell.CurrentArray.Select '选定包含活动单元格的整个数组单元格区域.假定该单元格在数据单元格区域中

(262) ActiveCell.NumberFormatLocal = \"0.000; [红色] 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\").AddComment '在当前工作表的单元格C1中添加批注

(269) Weekday(Date) '获取今天的星期,以数值表示,1-7分别对应星期日至星期六

(270) ActiveSheet.Range(\"A1\").AutoFill Range(Cells(1, 1), Cells(10, 1)) '将单元格A1的数值填充到单元格A1至A10区域中

(271) DatePart(\"y\获取今天在全年中的天数

(272) ActiveCell.Value = DateAdd(\"yyyy\获取两年后的今天的日期

(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\在当前工作表中创建一个名为\"三峡\"的艺术字并对其进行格式设置和选中

(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

=

\"fanjy.blog.excelhome.net\" '在工作簿中新建一个文本框并输入内容

(298)

ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, 20, 80, 输入内容

100,

200).

TextFrame.Characters.Text

=

\"fanjy.blog.excelhome.net\" '在当前工作表中建立一个水平文本框并

(299) ActiveSheet.Shapes.AddPicture \"d:\\sx.jpg\True, True, 60, 20, 400, 300 '在当前工作表中插入一张d盘中名为sx的图片

(300) ActiveChart.ApplyCustomType xl3DArea '将当前图表类型改为三维面积图