引用自定义数据公式源码（excel公式引用数据源）
本文目录一览：
- 1、查看EXCEL里人家自定义函数的源代码？
- 2、股票 通达信 自定义数据 如何在副图里显示，请写个副图调用公式，谢谢
- 3、如何在Excel工作表中引用自定义函数
- 4、excel自定义函数源代码
- 5、如何破解excel用户自定义函数的源代码
查看EXCEL里人家自定义函数的源代码？
1.执行“工具→宏→Visual Basic编辑器”菜单命令(或按“Alt+F11”快捷键)，打开Visual Basic编辑窗口。
2.在窗口中，执行“插入→模块”菜单命令，插入一个新的模块——模块1。
3.在右边的“代码窗口”中输入自定义代码：
4.关闭窗口，自定义函数完成。
以后可以像使用内置函数一样使用自定义函数。
提示：用上面方法自定义的函数通常只能在相应的工作簿中使用。
股票 通达信 自定义数据 如何在副图里显示，请写个副图调用公式，谢谢
SIGNALS_USER(1,1);
这样的代码写在副图指标就可以引用到1号自定义的的系列数据了.
如何在Excel工作表中引用自定义函数
使用VBA编辑一段函数代码，复制在公用模块中。
而后在excel表格界面即可直接引用该公式。
ALT+F11
插入模块
输入代码
回到excel界面使用公式
例如，如下代码将返回所在单元格的RGB值。可在单元格中使用=RGB(单元格地址)进行试验。
Function RGB(myRange As Range)
Dim r, g, b
r = Int(myRange.Interior.Color / 65025)
g = Int((myRange.Interior.Color Mod 65025) / 255)
b = Int(myRange.Interior.Color Mod 255)
RGB = r ", " g ", " b
End Function
excel自定义函数源代码
'显示一级科目 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个字符与遍历区域中字符相同，则设置变量为真，并退出循环，(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
如何破解excel用户自定义函数的源代码
新建一个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
'取得一个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
