怎样在<em>excel</em>中查找自定义函数的代码-excel 函数源代码,matlab源

我的是office 2013，在知VBE界面可以看到插入菜单中的【模块】
你确定是道office excel？不是WPS吧？excel各种版本我都是完全安装的，没有碰到过不出现插入模版块的情况。

能截图上来吗？插入菜单下整个界权面的截图

快捷键：ALT+F11
或者随便右击一个工作表的标签，选择“查看代码”，在弹出来的窗口左边部分双击模块，代码就在右边显示了。
内置函数是看不到的，扩展的【分析工具库】中的函数代码还是有机会看到的

'显示一级科目 FUNCTION
Function KM(be_searched)
FOUND = False '初始变量为否
If Trim(be_searched) = "" Then '如果参数为空，则显示“*”,并退出函数
KM = "*"
Exit Function
End If
For X = 5 To 300 '遍历"目录"工作簿中(5,3)～(300,3)区域
If Left(be_searched, 4) = Sheets("目录").Cells(X, 3) Then '如果参数前4个字符与遍历区域中字符相同，则设置变量为真7a64e4b893e5b19e339，并退出循环，(X,3)为相同字符单元格
FOUND = True
Exit For 'STOP SEARCHING
End If
Next X
If FOUND Then
KM = Sheets("目录").Cells(X, 4) '如果FOUND为真，则显示KM为相同单元格的下一单元格内容,否则显示"代码错"

Else
KM = "代码错"
End If
End Function

'显视二级科目 FUNCTION
Function KM2(TO_BE_SEARCHED As String)
If TO_BE_SEARCHED = "" Then '如果参数为空，则显示“*”,并退出函数
KM2 = "*"
Exit Function
End If
FOUND = False '初始变量为否
For X = 4 To 500 '遍历"目录"工作簿中(4,3)～(500,3)区域
If TO_BE_SEARCHED = Sheets("目录").Cells(X, 3) Then '如果参数与遍历区域中字符相同，则设置变量为真，并退出循环，(X,3)为相同字符单元格
FOUND = True
FONT_COLOR = Sheets("目录").Cells(X, 4).Font.ColorIndex '设置字体颜色与相同单元格的下一单元格相同
Exit For 'STOP SEARCHING
End If
Next X
If FOUND Then

End Function