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

电子表格VBA编程计算速成（3） 第三章 常用VBA编程代码语句 我们的主题是利用电子表格这一平台，以实现复杂专业计算自动化为目的，所以，最主要的是了解和掌握单元格的公式输入、复制、填充；数据的输入、查找、引用；以及单元格的格式、工作表界面的一些设置等的编程。其它，如：文件操作，编辑操作，界面设定，单元格的美化……等，也可以利用电子表格自身的强大功能进行常规操作来解决。 要实现前面说的这些功能和操作，自然要掌握这些功能和操作的代码是怎么写的 3.1 工作表单元格的编程代码 工作表单元格是存储各类计算数据，公式，数据引用的基本单位，掌握工作表单元格的基本编程代码，是实现复杂专业计算自动化的基础。 一，单元格基本编程代码 Sub dygjbbcdm() ‘ 1. 输入计算数据的编程代码： ‘（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), Cells(5, 5)) = 50 在 E1:E 5单元格输入50。 ’（4）用ActiveCell.FormulaR1C1公式输入数据 Range(B1).Select ActiveCell.FormulaR1C1 = 100” 在 B1单元格输入100 ‘ 2. 输入公式的编程代码：工作表G6输入公式=sjx(RC[-4],RC[-2],RC[-1])+R5C7 Range(G6).Select ActiveCell.FormulaR1C1 = =sjx(RC[-4],RC[-2],RC[-1])+R5C7 ‘ 3. 输入公式中引用不同工作表的单元格数据，须在每项引用前加“工作表名！”（不含 “”） [A1] = Sheet4.[A1] 把Sheet4 A1 单元格的数据，读到当前表A1单元格 Range(E5).Select ActiveCell.FormulaR1C1 = _ =sjjzx(计算数据!RC[-3],计算数据!R[1]C[-3],计算数据!R[2]C[-3],计算数据!RC,计算数据! ‘ 4. 单元格公式自动填充代码：2.中D6单元格公式自动填充到D50 Range(D6).Select Selection.AutoFill Destination:=Range(D6:D50), Type:=xlFillDefault ‘ 5. 多列单元格公式自动填充代码：G6:I6单元格公式自动填充到G6:I50 Range(G6:I6).Select Selection.AutoFill Destination:=Range(G6:I50), Type:=xlFillDefault End Sub 重要提示：输入公式代码项=sjx(RC[-4],RC[-2],RC[-1])+R5C7的窍门―选择“工具”→“选项”→“常规”→勾选“R1C1引用式样”，“确定”退出，然后在需要输入公式的单元格按常规操作输入公式，再把编辑栏中的公式复制、粘贴到VB编辑器代码窗口相应的公式代码项=……中。这样作，可保公式编程代码无误。 二，单元格格式编程代码 我们的主题是进行计算，对单元格格式的设定，一般采用常规操作来实现，特殊需要也可采用编写代码来实现。下面是单元格格式的基本代码： Sub Macro2() Range(A2:C2).Select Selection.NumberFormatLocal = 0.00;[红色]0.00　 数值格式：小数2位；负数红色；千位分隔符无 With Selection .HorizontalAlignment = xlCenter 水平对齐居中 .VerticalAlignment = xlCenter 垂直对齐居中 .WrapText = True 自动换行 .Orientation = 90 方向.90度 .AddIndent = False 分散对齐.假 .IndentLevel = 0 缩进.0 .ShrinkToFit = False 缩小填充.无 .ReadingOrder = xlLTR 文字.总是左到右 .MergeCells = True 合并单