ForSheet带你自定义函数玩玩

如果要把A1加到A100。

公司里最大的那个笨蛋可能会这样做=A1+A2+A3+A4……+A100

其实一个函数就搞定了，办公室大多数人知道。

=SUM(A1:A100)。

但是，你经常用函数，你有没有认真思考过这个问题？这是什么原理？这个函数是怎么做出来的？

美国专家 John Walkenbach写了一段代码，几乎可以模拟SUM函数的各种操作，代码有点长，以下贴上部分代码。

初学者表示严重看不懂。

ForSheet立志于把复杂的问题简单化，让更多的人可以简单快乐的玩玩Excel。

今天就带大家自己动手来写一个函数，写一个炒鸡简单的函数。

先说应用场景，打开某个表，如果想某个单元格获取当前这个表的表名是不容易的。

但是我写一个函数=forsheet(),就很容易得到当前活动表的表名。

这个函数就是我自己写的，很简单，一两分钟之后你就会操作了。

点击【开发工具】，【VisualBasic】

然后如下操作，插入模块。

在当前模块1输入如下代码。

代码要自己一个个敲吗？对的，你不输入难道还要我帮你输入呀。

哦，对了，差点忘了还可以复制，复制粘贴以下代码。

Function forsheet()

forsheet = ActiveSheet.Name

End Function

这个代码可能暂时看不懂，没有关系，知行合一不是每一次必须先知道才行动，有时先行动，后面就会慢慢知道，你照做就行。

做完后，关闭当前的代码窗口，回到亲切的Excel界面。

你就可以在任何单元格，输入= forsheet()，快速获取当前的表名。

这个文件因为有代码，保存时需要保存为启用宏的文件 xlsm格式，否则再次打开失效。

因为代码是随文件保存，这样其他的文件就不能用了，不像SUM函数，随便一个文件都可以使用。

如果你想在你电脑上每个文件都能用这个函数，需要存为加载宏文件，然后进行加载。

按如下操作。存为Excel加载宏文件（*xlam）格式，注意保存在默认的位置，不要擅做主张保存在桌面。

接下来进行加载，就相当于给你Excel安装插件，如虎添翼。

点击【文件】，【选项】。

【加载项】，【Excel加载项】，【转到】

在出现的界面中，勾选刚才的文件名。

如果不存在这个文件名，可以点击浏览，去到刚才你保存的路径中找到文件。

这样做好后，新开一个Excel文件，就可以像插入SUM函数一样插入一个名为ForSheet的函数了。

怎么样？你才跟ForSheet一分钟时间学习，就会自己做个函数了?

怎么样？

赶脚自己狠腻害的有木有？

你的Excel还有很大的提升空间。

觉得好立马转发给同事。

以后网上找的各种函数代码也可以这样操作适用于每个文件。

子曰：用之则行，不用则藏。

意思是说，如果你用我的这些建议，就马上行动，知行合一，如果你不用，就赶紧收藏，以绝后患。