如下例将工作表Sheet1A1单元格的值赋给Integer变量I#xff0c;并将I1的值…Excel——宏教程(2)

一)、处理单元格

将变量、常量值直接赋给单元格、或将单元格的值直接赋给变量、常量这是在excel中最简单的单元格赋值及引用方法。

如下例将工作表Sheet1A1单元格的值赋给Integer变量I并将I1的值赋给当前工作表中的B1单元格

Dim

如下例将相对于活动单元格左侧第4列、向上第6行至向上第2行的单元格数值之和赋给活动单元格以本行、本列为第0行、0列

ActiveCell.FormulaAVERAGE(R[-6]C[-4]:R[-2]C[-4])3、引用其它工作表中的单元格

当赋值公式中需要引用其它工作表中的单元格时在被引用的单元格前加上工作表名即可。

Range(E10).FormulaSUM(Sheet1!R1C1:R4C1)但需注意的是当被引用的工作表名中含有某些可能引起公式歧义的字符时需要用单引号’将工作表名括起来。

如

Worksheets(Sheet1).ActiveCell.FormulaMax(1-1剖面!D3:D5)4、引用其它工作簿中的单元格

在被引用单元格所在工作表名前加上[工作簿名]即可引用其它工作簿中的单元格。

如

ActiveCell.FormulaMAX([Book1.xls]Sheet3!R1C:RC[4])同样需注意的是当被引用的工作簿名中含有某些可能引起公式歧义的字符时需要用中括号[“、”]及单引号’将工作簿名括起来。

如

Cells(1,2).FormulaMIN([1995-2000总结.xls]1995-1996年!

$A$1:$A$6)5、避免循环引用

在上述公式赋值过程中应避免在公式中引用被赋值的单元格防止循环引用错误。

6、添加批注

ActiveCell.Comment.VisibleFalse

隐藏批注[dvnews_page]7、添加、删除、复制、剪切、粘贴单元格

Range(D10).Insert

ActiveChart.ChartTypexlXYScatterSmooth

图表类型为XY平滑线散点图

Source:Sheets(结点坐标).Range(A1:B69),

PlotBy:

xlPrimary).AxisTitle.Characters.Text

x轴标题x

xlPrimary).AxisTitle.Characters.Text

y轴标题y

嵌入式图表仅在添加方式及引用格式上与工作表图表有所不同而对图表的设置基本类似。

详见下例。

Set嵌入表ActiveSheet.ChartObjects.Add(0,0,200,300)

嵌入表.Chart.ChartType

ActiveSheet.Delete但在删除前excel会自动弹出提示框需在用户确认后方可执行删除。

为避免这一干扰可以先用以下语句关闭excel的警告提示。

True四)、工作簿

当前工作簿另存为工作表名.xls在另存时若指定的存盘文件名不包含路径则保存在该工作簿的打开目录下。

而若此存盘文件已存在也可用关闭excel警告提示的方法以免其自动弹出提示框。