为了整理所有的教学大纲，需要判断对应课程的大纲文件是否存在。于是写了以下的自定义函数。在此备案以供以后使用或教学。
案例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) <> "" Then 3 TestFileExistence = 1 4 Else 5 TestFileExistence = 0 6 End If 7 End Function
问：如何添加自定义函数？
答：在Excel表中按Alt+F11，能够打开VBA编辑器。在当前文件对象中插入->模块，然后添加代码即可。
