为了整理所有的教学大纲，需要判断对应课程的大纲文件是否存在。于是写了以下的自定义函数。在此备案以供以后使用或教学。

　案例Excel表结构如下：

	A	B	C	D
1	课程代号	课程名称	路径	是否存在
2	b01210135	《数据库原理》本科教学大纲（计算机B10）	《数据库原理》本科教学大纲（计算机B10）.pdf	0
3	b01221023	《C++程序设计》本科教学大纲（计算机B11）	《C++程序设计》本科教学大纲（计算机B11）.pdf	1

 

 

 

 

 

D2单元格使用自定义函数:=TestFileExistence(C2)

自定义函数如下所示：

1 Function TestFileExistence(testfile)2 If Dir(ThisWorkbook.Path & "\" & testfile) <> "" Then3 TestFileExistence = 14 Else5 TestFileExistence = 06 End If7 End Function

问：如何添加自定义函数？

答：在Excel表中按Alt+F11，能够打开VBA编辑器。在当前文件对象中插入->模块，然后添加代码即可。