在Excel中引用其他宏

it2022-05-06  23

在excel的使用过程中,会用到一些自定义函数,可以使用宏轻松的实现这些功能,问题是必须使用“启用宏的excel”,这样用户每次打开时都要启用宏。

现用以按背景色计划为例,解决以上问题:

1.新建一个空白的excel,按alt+F11,打开VB界面,点击“插入”---“模块”---录入以下代码:

//这个方法是计算相同颜色的单元格个数

Function CountColor(col As Range, countrange As Range) As Integer Dim icell As Range Application.Volatile For Each icell In countrange If icell.Interior.ColorIndex = col.Interior.ColorIndex Then CountColor = CountColor + 1 End If Next icellEnd Function

//这个方法是计算相同颜色的单元格中的数据之和Function SumColor(col As Range, sumrange As Range) As Integer Dim icell As Range Application.Volatile For Each icell In sumrange If icell.Interior.ColorIndex = col.Interior.ColorIndex Then SumColor = Application.Sum(icell) + SumColor End If Next icellEnd Function

在VB中点击保存,保存excel时选择“另存为”--“Excel 加载宏(*.xlam)”,把这个excel存储为sum.xlam文件。

2.打开要计算的excel,在此中选择开发工具--加载宏--浏览--选择sum.xlam,选中,点确认。

3.完成。

4.这样操作以后,只要打开excel就可以使用sumColor这个函数,不用启用宏。

转载于:https://www.cnblogs.com/flyrain/p/excel_vb.html

相关资源:各显卡算力对照表!

最新回复(0)