怎样在excel中查找自定义函数的代码-删除excel自定义函数,excel常用函数

'显示一级科目 FUNCTION
Function KM(be_searched)
FOUND = False '初始变量为否
If Trim(be_searched) = "" Then '如果参数7a64e58685e5aeb9339为空，则显示“*”,并退出函数
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个字符与遍历区域中字符相同，则设置变量为真，并退出循环，(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

快捷键：ALT+F11
或者随便右击一个工作表的标签，选择“查看代码”，在弹出来的窗口左边部分双击模块，代码就在右边显示了。

在Excel中创建自定义函数步骤如下（抄以2003版为例）：百

1.打开Excel，点击“开发工具”，然后点击“Visual Basic”按钮进入VBA环境：

2.右击“Microsoft Excel对象”，选择“插入”->“模度块”：

3.在打开的模块窗口中，输入以下代码：
Function 三项知合并计算(a, b, c)
    三项合并计算 = a * b + c
End Function

该代码用于对提道供的三个参数进行计算，结果返回函数本身。
4.返回Excel，在单元格中输入公式“=三项合并计算(2,3,5)”并按回车键即可：

新建一个Excel工作簿,Alt+F11 打开VBA编辑器,新建一个模块 ,复制以下代码,注意如提示变量未定义,则把Option Explicit行删除即可,经测试已经通过.
'移除VBA编码保护
Sub MoveProtect()
Dim FileName As String
FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xla）,*.xls;*.xla", , "VBA破解")
If FileName = CStr(False) Then
Exit Sub
Else
VBAPassword FileName, False
End If
End Sub
'设置VBA编码保护
Sub SetProtect()
Dim FileName As String
FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xla）,*.xls;*.xla", , "VBA破解")
If FileName = CStr(False) Then
Exit Sub
Else
VBAPassword FileName, True
End If
End Sub
Private Function VBAPassword(FileName As String, Optional Protect As Boolean = False)
If Dir(FileName) = "" Then
Exit Function
Else
FileCopy FileName, FileName & ".bak"
End If
Dim GetData As String * 5
Open FileName For Binary As #1
Dim CMGs As Long
Dim DPBo As Long
For i = 1 To LOF(1)
Get #1, i, GetData
If GetData = "CMG=""" Then CMGs = i
If GetData = "[Host" Then DPBo = i - 2: Exit For
Next

If CMGs = 0 Then
MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示"
Exit Function
End If

If Protect = False Then
Dim St As String * 2
Dim s20 As String * 1

'取得e5a48de588b67a64332一个0D0A十六进制字串
Get #1, CMGs - 2, St

'取得一个20十六制字串
Get #1, DPBo + 16, s20

'替换加密部份机码
For i = CMGs To DPBo Step 2
Put #1, i, St
Next

'加入不配对符号
If (DPBo - CMGs) Mod 2 <> 0 Then
Put #1, DPBo + 1, s20
End If
MsgBox "文件解密成功......", 32, "提示"
Else
Dim MMs As String * 5
MMs = "DPB="""
Put #1, CMGs, MMs
MsgBox "对文件特殊加密成功......", 32, "提示"
End If
Close #1
End Function