电子表格VBA编程计算速成3.doc

《电子表格VBA编程计算速成3.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、电子表格VBA编程计算速成（3）第三章常用VBA编程代码语句我们的主题是利用电子表格这一平台，以实现复杂专业计算自动化为目的，所以，最主要的是了解和掌握单元格的公式输入、复制、填充；数据的输入、查找、引用；以及单元格的格式、工作表界面的一些设置等的编程。其它，如：文件操作，编辑操作，界面设定，单元格的美化……等，也可以利用电子表格自身的强大功能进行常规操作来解决。要实现前面说的这些功能和操作，自然要掌握这些功能和操作的代码是怎么写的3.1工作表单元格的编程代码工作表单元格是存储各类计算数据，公式，数据引用的基本单位，掌握工作表单元格的基本编程代码，是实现复杂专业计算自动化的基础。一，单元

2、格基本编程代码Subdygjbbcdm()‘1.输入计算数据的编程代码：13/13‘（1）用快捷标记"[]"输入单元格、单元格区域数据。[A1]=100'在A1单元格输入100。[A2:A4]=10'在A2:A4单元格输入10。’（2）用Range("")输入单元格、单元格区域数据。Range("B1")=200'在B1单元格输入200。Range("C1:C3")=300'在C1:C3单元格输入300。’（3）用单元格编号Cells(Row,Column)，Row为单元格行号，Column为列号。Cells(1,4)=400'在D1单元格输入400。Range(Cells(1,5),C

3、ells(5,5))=50'在E1:E5单元格输入50。’（4）用ActiveCell.FormulaR1C1公式输入数据Range("B1").SelectActiveCell.FormulaR1C1="100”'在B1单元格输入100‘2.输入公式的编程代码：工作表G6输入公式=sjx(RC[-4],RC[-2],RC[-1])+R5C7Range("G6").Select13/13ActiveCell.FormulaR1C1="=sjx(RC[-4],RC[-2],RC[-1])+R5C7"‘3.输入公式中引用不同工作表的单元格数据，须在每项引用前加“工作表名！”（不含“”）[A1

4、]=Sheet4.[A1]'把Sheet4A1单元格的数据，读到当前表A1单元格Range("E5").SelectActiveCell.FormulaR1C1=_"=sjjzx(计算数据!RC[-3],计算数据!R[1]C[-3],计算数据!R[2]C[-3],计算数据!RC,计算数据!‘4.单元格公式自动填充代码：2.中D6单元格公式自动填充到D50Range("D6").SelectSelection.AutoFillDestination:=Range("D6:D50"),Type:=xlFillDefault‘5.多列单元格公式自动填充代码：G6:I6单元格公式自动填充到G6:

5、I50Range("G6:I6").Select13/13Selection.AutoFillDestination:=Range("G6:I50"),Type:=xlFillDefaultEndSub重要提示：输入公式代码项"=sjx(RC[-4],RC[-2],RC[-1])+R5C7"的窍门―选择“工具”→“选项”→“常规”→勾选“R1C1引用式样”，“确定”退出，然后在需要输入公式的单元格按常规操作输入公式，再把编辑栏中的公式复制、粘贴到VB编辑器代码窗口相应的公式代码项"=……"中。这样作，可保公式编程代码无误。二，单元格格式编程代码我们的主题是进行计算，对单元格格式的设定，一

6、般采用常规操作来实现，特殊需要也可采用编写代码来实现。下面是单元格格式的基本代码：SubMacro2()Range("A2:C2").SelectSelection.NumberFormatLocal="0.00;[红色]0.00"　'数值格式：小数2位；负数红色；千位分隔符无WithSelection13/13.HorizontalAlignment=xlCenter'水平对齐居中.VerticalAlignment=xlCenter'垂直对齐居中.WrapText=True'自动换行.Orientation=90'方向.90度.AddIndent=False'分散对齐.假.Inden

7、tLevel=0'缩进.0.ShrinkToFit=False'缩小填充.无.ReadingOrder=xlLTR'文字.总是左到右.MergeCells=True'合并单元格.真EndWithWithSelection.Font'字体.Name="华文新魏"'字体名.华文新魏.FontStyle="粗体"'字形.粗体.Size=12'字号.12.Strikethrough=False'删除线.无13/13.Superscript=