Rows("3:5").Delete Shift:=xlUp ' 删 除 第 3 行 至 第 5 行 , 其 下 方 行 上 移
Range("B2").EntireRow.Delete ' 删 除 第 2 行 Range("C4").EntireColumn.Delete ' 删 除 C 列
Range("B10:C13").Copy ' 复 制 B10 至 C13 单 元 格 区 域 Cells(1,2).Cut ' 剪 切 B1 单 元 格
Range("D10").Select ActiveSheet.Paste '自 D10 单元格起粘贴剪贴板中的内容 四)、图表 1、
工作 表 图 表 以下为一添加工 作表图表的实例 。 Charts.Add after:=Worksheets("Sheet1")
'在"Sheet1"工作表之后添加新图表工作表 ActiveChart.ChartType=xlXYScatterSmooth '图表类
型 为 XY 平 滑 线 散 点 图 ActiveChart.SetSourceData Source:=Sheets(" 结 点 坐
标").Range("A1:B69"), PlotBy:= _ xlColumns '图表数据来源于"结点坐标"工作表的 A1 至 B69
单元格,且按列绘图。 ActiveChart.Location Where:=xlLocationAsNewSheet With ActiveChart
.HasTitle = True .ChartTitle.Characters.Text = " 节 点 坐 标 " ' 图 表 标 题 " 节 点 坐
标 " .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory,
xlPrimary).AxisTitle.Characters.Text = "x" 'x 轴 标 题 "x" .Axes(xlValue, xlPrimary).HasTitle =
True .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "y" 'y 轴 标 题 "y" End With With
ActiveChart.Axes(xlCategory) .HasMajorGridlines = True '显示 x 轴主网格线,默认情况下为
显示 .HasMinorGridlines = True '显示 x 轴次网格线,默认情况下为不显示 End With With
ActiveChart.Axes(xlValue) .HasMajorGridlines = True '标出 x 轴主网格值,默认情况下为标注
.HasMinorGridlines = False ' 取 消 x 轴 次 网 格 值 标 注 , 默 认 情 况 下 为 不 标 注 End With
ActiveChart.Legend.Position = xlRight '图例显示在图表右侧 2、嵌入式图表 嵌入式图表仅在
添加方式及引用格式上与工作表图表有所不同,而对图表的设置基本类似。详见下例。 Set
嵌入表=ActiveSheet.ChartObjects.Add(0,0,200,300) '在当前工作表(0,0)坐标处添加宽 200,高
300 的嵌入式图表 嵌入表.Chart.ChartType = xlColumnClustered '图表类型为簇状柱形图 嵌入
表.Chart.SetSourceData Source:=Sheets(1).Range("A2:B2"), PlotBy:=xlRows '设置图表数据来
源 With 嵌入表.Chart .HasTitle = False '无图表标题 .Axes(xlCategory, xlPrimary).HasTitle =
False '无 x 轴标题 .Axes(xlValue, xlPrimary).HasTitle = False '无 y 轴标题 End With
五)、工作表 1、添加 Sheets.Add before:=Sheets(1) '在第 1 工作表前添加新工作表 Sheets.Add
after:=Sheets(Sheets.Count) ' 在 最 后 工 作 表 后 添 加 新 工 作 表 2 、 移 动 ActiveSheet.Move
before:=Sheets(2) '将当前工作表移动至第 2 工作表之前 3、命名 ActiveSheet.Name="工作表
名 " ' 将 当前 工 作表命 名为 " 工作 表名 " 4 、 删 除 可以 用 以 下 语 句删 除当 前 工作表 。
ActiveSheet.Delete 但在删除前 Excel 会自动弹出提示框,需在用户确认后方可执行删除。
为避免这一干扰,可以先用以下语句关闭 Excel 的警告提示。 Application.DisplayAlerts =
False 在删除完成后,再重新打开 Excel 的警告提示 Application.DisplayAlerts = True 六)、工
作 簿 Excel 的 宏 对 工 作 簿 的 操 作 主 要 为 保 存 。 Dim 存 盘 文 件 名 As String
ActiveWorkbook.Save '保存当前工作簿 存盘文件名="工作表名" ActiveWorkbook.SaveAs
Filename:= 存盘文件名 '当前工作簿另存为"工作表名.xls" 在另存时,若指定的存盘文件名
不包含路径,则保存在该工作簿的打开目录下。而若此存盘文件已存在,也可用关闭 Excel
警告提示的方法以免其自动弹出提示框。 63、用 VBA 的几个误区 1、想通过 Excel+vba 来
编程发财,不管怎么说,目前这种可能性很小。 2、录制宏后的代码不进行简化,这种情
况初学者常犯;或者不屑于用录制宏,这种相反。 3、喜欢用.select、.copy、.active 等,如
果不是迫不得已,还是不要用这些东西好。 4、不喜欢用公式、函数,什么都喜欢用程序;
活用公式函数是我们学 EXCEL 中重要的重点,学会嵌套着用,很多事情都可以解决。譬
如表 1 的 A1 单元格如果要等于表 2 的 A 列中的某个单元格,很多人都是用程序来直接赋值,
数量少这也可以,但如果数量很多的话,为何不试用一下 offset 呢?偏移都指向同一个单
元格,就当是一个变量,改一下这个单元格的值,表 1 用 offset 的单元格的值就全部改了。
5、 设 计 输入数据的 界 面 竟然用用户窗 口 + 文 本 框之类的东 西 ,天,我为 什么 要用