EXCEL VBA编程从入门到精通

Excel 最重要的应用就是利用公式进行计算。无论输入是纯粹的数字运算，还是引用其他单元格计算，只要在一个单元格中输入公式，就能得到结果。这个直接显示结果的设计对于绝大多数场合来说都是适用的，但某些情况下就不那么让人满意了。比如说在做工程施工的预结算编写，使用Excel，既要写出工程量的计算式，也要看到它的结果，于是这样相同的公式在Excel里面要填两次，一次在文本格式的单元格中输入公式，一次是在数据格式的单元格中输入公式让Excel计算结果。如何既能看到公式又能看到结果呢？这个问题笔者认为可以从两个方面考虑：一种方法是所谓“已知结果，显示公式”，先在数据格式单元格中输入公式让Excel计算结果，然后在相邻的单元格中看到公式；另一种方法所谓“已知公式，显示结果”，就是先在一个文本格式的单元格中输入公式，在相邻的单元格中看到结果。

★已知结果，显示公式

假设C列为通过公式计算得到的结果（假设C1为“=A1+B1”，或者直接是数字运算“=2+3”)，而相邻的D列是你需要显示公式的地方（即D1应该显示为“=A1+B1”或者“=2+3”）。

1. 打开“工具”菜单选择“选项”命令，出现“选项”对话框。

2. 在“常规”选项卡中，选中“R1C1引用方式”选项。

3. 定义名称，将“引用位置”由“=GET.CELL(6,Sheet1!RC[-1])”即可。这里的RC[-1]含义是如果在当前单元格的同行前一列单元格中有公式结果，则在当前单元格中得到公式内容，即在含公式结果单元格的同行后一列单元格显示公式内容；如果将RC[-1]改为RC[1]，则在公式结果的同行前一列单元格显示公式内容。

4. 如果“引用位置”中含有“RC[-1]”，则在含公式结果单元格的同行后一列单元格中输入“=FormulaofResult”即可得到公式；如果“引用位置”中含有“RC[1]”，则在含公式结果单元格的同行前一列单元格中输入“=FormulaofResult”即可得到公式。

提示：如果想要在含公式结果单元格的同行后数第2列中显示公式内容，则需要把“引用位置”中的“RC －1 ”改为“RC －2 ”。

--get.cell函数说明

函数定义:

GET.CELL(类型号,单元格(或范围))

实例：

比如现在我们要取得A1单元格里的数据格式?结果显示在B1步骤如下:

1.任选一个单元格-->插入--->名称-->定义

2.在名称称输入AA(任意名称)

3.在引用位置上写入=GET.CELL(7,Sheet1!$A$1)

4.点添加

5.在B1单元格里输入=AA

其中类型号,即你想要得到的信息的类型号,可以在1-66(表示可以返回一个单元格里66种你要的信息)

以下是类型号及代表的意思

1参照储存格的绝对地址

2参照储存格的列号

3参照储存格的栏号

4类似TYPE函数

5参照地址的内容

6文字显示参照位址的公式

7参照位址的格式，文字显示

8文字显示参照位址的格式

9传回储存格外框左方样式，数字显示

10传回储存格外框右方样式，数字显示

11传回储存格外框方上样式，数字显示

12传回储存格外框方下样式，数字显示

13传回内部图样，数字显示

14如果储存格被设定locked传回True

15如果公式处于隐藏状态传回True

16传回储存格宽度

17以点为单位传回储存格高度

18字型名称

19以点为单位元传回字号

20如果储存格所有或第一个字符为加粗传回True

21如果储存格所有或第一个字符为斜体传回True

22如果储存格所有或第一个字符为单底线传回True

23如果储存格所有或第一个字符字型中间加了一条水平线传回True

24传回储存格第一个字符色彩数字，1至56。如果设定为自动，传回0 25MS Excel不支持大纲格式

26MS Excel不支持阴影格式

27数字显示手动插入的分页线设定

28大纲的列层次

29大纲的栏层次

30如果范围为大纲的摘要列则为True

31如果范围为大纲的摘要栏则为True

32显示活页簿和工作表名称

33如果储存格格式为多行文字则为True

34传回储存格外框左方色彩，数字显示。如果设定为自动，传回0 35传回储存格外框右方色彩，数字显示。如果设定为自动，传回0 36传回储存格外框上方色彩，数字显示。如果设定为自动，传回0 37传回储存格外框下方色彩，数字显示。如果设定为自动，传回0 38传回储存格前景阴影色彩，数字显示。如果设定为自动，传回0 39传回储存格背影阴影色彩，数字显示。如果设定为自动，传回0 40文字显示储存格样式

41传回参照地址的原始公式

42以点为单位传回使用中窗口左方至储存格左方水平距离

43以点为单位传回使用中窗口上方至储存格上方垂直距离

44以点为单位传回使用中窗口左方至储存格右方水平距离

45以点为单位传回使用中窗口上方至储存格下方垂直距离

46如果储存格有插入批注传回True

47如果储存格有插入声音提示传回True

48如果储存格有插入公式传回True

49如果储存格是数组公式的范围传回True

50传回储存格垂直对齐，数字显示

51传回储存格垂直方向，数字显示

52传回储存格前缀字符

53文字显示传回储存格显示内容

54传回储存格数据透视表名称

55传回储存格在数据透视表的位置

56枢纽分析

57如果储存格所有或第一个字符为上标传回True

58文字显示传回储存格所有或第一个字符字型样式

59传回储存格底线样式，数字显示

60如果储存格所有或第一个字符为下标传回True

61枢纽分析

62显示活页簿和工作表名称

63传回储存格的填满色彩

64传回图样前景色彩

65枢纽分析

66显示活页簿名称

--

★已知公式，显示结果

假设C列为输入的没有等号公式（假设C1为“A1+B1”)，而相邻的D列是你需要存放公式计算结果的地方（即D1显示A1和B1单元格相加的结果）。

1. 选中D1，然后打开“插入”菜单选择“名称”命令中的“定义”子命令，出现“定义名称”对话框。

2. 在“在当前工作表中的名称”输入栏中输入定义的名称“ResultofFomula”，在下方的“引用位置”编辑栏中输入“=EVALUATE(Sheet1!C1)”，单击[确认]按钮退出。

3. 在D1中输入“=ResultofFomula”，然后选中按住右下角的填充柄向下拉动填充即可。提示：EVALUATE 是Eexcel 4．0版的宏表函数，Excel 2000和Excel 2002中还支持，但只可用于名称定义中。