自定义函数
最近需要在excel中实现一个功能,查阅excel的函数没有,或者是我没找到,于是使用 VBA进行扩展实现,步骤如下:
1) 打开要扩展的excel文件,并启用宏。 2007的excel文件,在表格上面一行有一个黄色小条提示
2) 使用快捷键 Alt+F11 打开vba编辑窗口
3) 在左边的部分新增模块(这步应该可以省略)
4) 在新模块文件中使用 Function 创建相应函数
5) excel中最常用的对象就是Range,该对象代表 一个、多个单元格; 二维表格和三维表格。 需要对二维Range进行遍历是方法如下:
Dim ra as Range //其实这个应该通过参数传入
for i =1 to ra.Rows.Count
for j=1 to ra.Columns.Count
ra.Cells(i,j) //得到二维表格中的每一个 单元格
6) 返回值为 : 函数名=count;
7) 保存完成后,可以设置断点
7) 在excel中调用方式类似于普通函数