乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > excel宏命令,如何编写自动计算指定单元格计算式的宏命令?-excel宏功能的简单使用,excel办公常用的宏

excel宏命令,如何编写自动计算指定单元格计算式的宏命令?-excel宏功能的简单使用,excel办公常用的宏

作者:乔山办公网日期:

返回目录: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


相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网