乔山办公网我们一直在努力
您的位置:乔山办公网 > office365 > excel宏命令,如何编写自动计算指定单元格计算式的宏命令?-office怎样进行宏计算,可以用宏的office

excel宏命令,如何编写自动计算指定单元格计算式的宏命令?-office怎样进行宏计算,可以用宏的office

作者:乔山办公网日期:

返回目录:office365


1、第一步,新建一个TEST的excel文件,并将你需要实现的功能函数写完整,这里的函数名称为sobua,然后保存代码。

 

 

2、在写完函数后,将excel保存为加载项格式的文件。特别注意,是将excel文件保存为加载项的文件类型,不是将代码文件保存为加载项文件类型。

 

 

3、随便给保存的文件给个名字,这里还是使用的test作为文件名。

 

 

4、在excel的选项中,打开加载项选项卡;

 

 

5、在最下边的管理中,选择excel加载项,选中后,再点击转到;

 

 

 

6、这时候可以看到刚才保存的test已经在加载项中了,但是未勾选,你需要做的,就是勾选上即可。

 

 

7、这个时候再回到excel文件中(随便一个excel文件都可以),使用你刚刚创建的函数sobua,看看是不是已经可以用了



任意单元格,那只能用宏了,做一个自定义函数。
如果固定的在B列,计算A列算式,就没必要了,可以用宏表函数。
cal自定义函数的代码如下

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

如果表头一样的话:

  1. 可以用宏整个RANG=RANG就可以了

  2. 使用两个数据透视表

  3. 使用函数公式

    如果表头不一样的话:

    1.使用VBA for each每个表,取表头填入汇总表。

个人建议使用数据透视表。

建议关注微信EXCEL公众号:BUTF_LOVE,每天学习一些EXCEL知识。



相关阅读

关键词不能为空
极力推荐

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