Excel中如何自创函数
1、添加开发工具选项
大部分人的电脑中安装的Excel中的选项栏中并没有开发工具选项，你需要在点击Excel工作页的左上方“文件”——“选项”——“自定义功能区”——勾选“开发工具”——保存。这样你就能在Excel中的选项栏中找到开发工具选项了。
2、选择启用所有宏
在Excel主界面选择“开发工具”——点击宏安全性——选择启用所有宏。这一操作时为了防止模块运行被阻止。
3、添加模块：
点击“开发工具”——点击“Visual Basic”，进入“Visual Basic for Application”界面——点击选项栏中的“插入”——选择“模块”。
4、输入函数
接下来在工作簿中输入你想要在Excel中实现的函数。比如，你想计算表格中含有相同颜色的单元格的个数，你就可以输入：
Function CountColor(col As Range, countrange As Range) As Intege
Dim icell As Rang
Application.Volatil
For Each icell In countrang
If icell.Interior.ColorIndex = col.Interior.ColorIndex The
CountColor = CountColor +
End I
Next icel
End Function
以上代码表示，你创建了一个名为CountColor，它将根据你所选定的单元格的颜色计算出你所选区域的所有单元格颜色与你选定单元格颜色相同的单元格的个数。
5、保存，退出。
输入代码之后就可以退出“Visual Basic for Application”界面了。 之后你就可以查看效果了。你会发现你键入“=countcolor”时，excel中已经含有了这个函数了。
6、其他函数
你还可以运用计算机语言设计其他的函数。比如你要求表格中含有相同颜色的这些单元格的数值和。
你就可以在工作簿中输入：
Function SumColor(col As Range, sumrange As Range) As Intege
Dim icell As Rang
Application.Volatil
For Each icell In sumrang
If icell.Interior.ColorIndex = col.Interior.ColorIndex The
SumColor = Application.Sum(icell) + SumColo
End I
Next icel
End Function
以上代码表示，你创建了一个名为SumColor，它将根据你所选定的单元格的颜色计算出你所选区域的所有单元格颜色与你选定单元格颜色相同的单元格的数值和。
