作者:乔山办公网日期:
返回目录:excel表格制作
1、第一步,新建一个TEST的excel文件,并将你需要实现的功能函数写完整,这里zhidao的函数名称为sobua,然后保存代码。
2、在写完函数后,将excel保存为加载项回格式的文件。特别注意,是将excel文件保存为加载项的文件类型,不是将代码文件保存为加载项文件类型。
3、随便给保存的文件给个名字,这里还是使用的test作为文件名。
4、在excel的选项中,打开加载项选项卡;
5、在最下边的管理中,选择excel加载项,选中后,再点击转到;
6、这时候可以看到刚才保存的test已经在加载项中了,但是未勾选,你需要做的,就是勾选上即可。
7、这个时候再回到excel文件中(随便一个excel文件都可答以),使用你刚刚创建的函数sobua,看看是不是已经可以用了
任意单元格,抄那只能用宏了,做一个自定义函数。
如果固定的在B列,计算袭A列算式,就没必要了,可以用宏表函数。
cal自定义函数的代码如zd下
Function cal(单元格 As Range)
Application.Volatile
Dim temp As String, adds As String
adds = 单元格.Address(0, 0)
If Left(单元格(1).Text, 1) = "{" And Right(单元格(1).Text, 1) = "}" Then
temp = VBA.Replace(VBA.Replace(单元格(1).Text, "{", ""), "}", "")
Else
temp = 单元格(1).Text
End If
temp = VBA.Replace(Replace(temp, "row()", "row(" + adds + ")"), "column()", "column(" + adds + ")")
cal = Application.Evaluate(temp)
End Function