vba编程基础精要

《vba编程基础精要》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

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

2、方面考虑：一种方法是所谓“已知结果，显示公式”，先在数据格式单元格中输入公式让Excel计算结果，然后在相邻的单元格中看到公式；另一种方法所谓“已知公式，显示结果”，就是先在一个文本格式的单元格中输入公式，在相邻的单元格中看到结果。 ★已知结果，显示公式 假设C列为通过公式计算得到的结果（假设C1为“=A1+B1”，或者直接是数字运算“=2+3”)，而相邻的D列是你需要显示公式的地方（即D1应该显示为“=A1+B1”或者“=2+3”）。 1. 打开“工具”菜单选择“选项”命令，出现“选项”对话框。 2. 在“常规”选项卡中，选中

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

4、则在含公式结果单元格的同行前一列单元格中输入“=FormulaofResult”即可得到公式。 提示：如果想要在含公式结果单元格的同行后数第2列中显示公式内容，则需要把“引用位置”中的“RC －1 ”改为“RC －2 ”。 --get.cell函数说明 函数定义: GET.CELL(类型号,单元格(或范围)) 实例： 比如现在我们要取得A1单元格里的数据格式?结果显示在B1步骤如下: 1.任选一个单元格-->插入--->名称-->定义 2.在名称称输入AA(任意名称) 3.在引用位置上写入=GET.CELL(7,Sheet1!$

5、A$1) 4.点添加 5.在B1单元格里输入=AA 其中类型号,即你想要得到的信息的类型号,可以在1-66(表示可以返回一个单元格里66种你要的信息) 以下是类型号及代表的意思 1参照储存格的绝对地址 2参照储存格的列号 3参照储存格的栏号 4类似TYPE函数 5参照地址的内容 6文字显示参照位址的公式 7参照位址的格式，文字显示 8文字显示参照位址的格式 9传回储存格外框左方样式，数字显示 10传回储存格外框右方样式，数字显示 11传回储存格外框方上样式，数字显示 12传回储存格外框方下样式，数字显示 13传回内部图样，数字显

6、示 14如果储存格被设定locked传回True 15如果公式处于隐藏状态传回True 16传回储存格宽度 17以点为单位传回储存格高度  18字型名称 19以点为单位元传回字号 20如果储存格所有或第一个字符为加粗传回True 21如果储存格所有或第一个字符为斜体传回True 22如果储存格所有或第一个字符为单底线传True 23如果储存格所有或第一个字符字型中间加了一条水平线传回True 24传回储存格第一个字符色彩数字，1至56。如果设定为自动，传回0 25MSExcel不支持大纲格式 26MSExcel不支持阴影格式 2

7、7数字显示手动插入的分页线设定 28大纲的列层次 29大纲的栏层次 30如果范围为大纲的摘要列则为True 31如果范围为大纲的摘要栏则为True 32显示活页簿和工作表名称对工作表的保护 1．对工作表实现口令保护利用VBA调用Worksheet对象的Protect方法对工作表进行保护，Protect带有以下参量：Password 用于保护工作表的口令。Drawingobjects 若为True，则对工作表中的Drawingobjects对象进行保护,缺省值为True。 Contents 若为True，则对单元格内容进行保护，缺

8、省值为True。 下面程序代码完成对工作表“基础数据表”的保护： Sub 保护工作表（）Worksheets（″基础数据表″）.Protect Password:="1234" End sub 2．对工作表实现隐藏保护，使他人无法看到工作表： 利用VBA设置Wo