收集和自编的自定义函数(21个)!新增"字符快速合并"函数（9月14日新增）

兰色幻想

以下是引用风中飘雪在2004-9-14 19:31:00的发言： 刚才看了楼主的取文件和工作表名的自定义函数，发现如果在另外一张表或在另外一个工作薄中操作时，函数的返回值就会出错，所以程序有问题还需修改。

呵呵！这位老兄看看我在一楼的贴子就明白了，自定义函数需要加载才能用的

keren007

实在高，没有想到EXCEL有如此功能。

风中飘雪

以下是引用zzzz_11253在2004-9-14 22:41:00的发言：

呵呵！这位老兄看看我在一楼的贴子就明白了，自定义函数需要加载才能用的

看来你没有明白我的意思，这样吧，你先打开你做的[取文件名和工作表名.XLS]工作薄，同时另外随便再打开一个表随便输入123，返回[取文件名和工作表名.XLS]工作薄看看里边出现了什么情况。

wangyan

可我用你的FLW函数一用就报“＃NAME”。是不是我应该先把你的这个函数按照如下步骤

1、把含有自定义函数的EXCEL文件保存（下载）到自已电脑上。

2、打开该EXCEL文件，选“文件“菜单----另存为---打开另存为对话框，在文件名设置中输入一个将来显示该加载宏名子，在保存类型中选取Microsoft Excel 加载宏,单击保存。（系统保存路径默认保存Addins文件夹内）

3、在工具菜单中单击“加载宏”---在对话框中点击浏览按纽，在Addins文件夹中找到刚才保存的加载宏文件，双击该文件，该加载宏便安装到了你的电脑中。

从此，你就可以使用象IF、VLOOKUP、INDEX等函数一样，方便的使用刚才安装的自定义函数了。而不必再做任何处理。

添加到我机器上，才可使用。但我不知你的函数在哪里，请赐教。谢谢！！

兰色幻想

以下是引用wangyan在2004-9-15 9:58:00的发言： 可我用你的FLW函数一用就报“＃NAME”。是不是我应该先把你的这个函数按照如下步骤

1、把含有自定义函数的EXCEL文件保存（下载）到自已电脑上。

2、打开该EXCEL文件，选“文件“菜单----另存为---打开另存为对话框，在文件名设置中输入一个将来显示该加载宏名子，在保存类型中选取Microsoft Excel 加载宏,单击保存。（系统保存路径默认保存Addins文件夹内）

3、在工具菜单中单击“加载宏”---在对话框中点击浏览按纽，在Addins文件夹中找到刚才保存的加载宏文件，双击该文件，该加载宏便安装到了你的电脑中。

从此，你就可以使用象IF、VLOOKUP、INDEX等函数一样，方便的使用刚才安装的自定义函数了。而不必再做任何处理。

添加到我机器上，才可使用。但我不知你的函数在哪里，请赐教。谢谢！！

是的，

函数不都在二楼吗？

[此贴子已经被作者于2004-9-15 10:58:11编辑过]

兰色幻想

以下是引用风中飘雪在2004-9-15 8:13:00的发言：

看来你没有明白我的意思，这样吧，你先打开你做的[取文件名和工作表名.XLS]工作薄，同时另外随便再打开一个表随便输入123，返回[取文件名和工作表名.XLS]工作薄看看里边出现了什么情况。

真心感谢这位朋友，的确存在这个问题。我原附件中已更正。

zzhcdh

真的不错，我下了超级汇总，有个问题：公式中$A$4中4前不用加$吧。还有不是想加一个工作薄中所有的工作表，如何将不想加进去的工作表屏蔽起来？比如各表如：上年汇总表+今年各月明细表，结果一汇总连上年汇总数都加进去了。还有汇总表一定要在最前面，我本来放在上年汇总表和今年各月明细表中间，结果计算结果一直变，开关工作薄会自动计算。

风中飘雪

要用自定义函数写一个程序，返回函数所在工作表的表名，我觉得很不好写，下面是我写的可还是有问题，请高手指点：

Function gname(Optional x As Integer) Application.ScreenUpdating = False ThisWorkbook.Application.Volatile If x = 0 Then gname = ThisWorkbook.ActiveSheet.Name ElseIf x > 0 And x <= ThisWorkbook.Sheets.Count Then gname = ThisWorkbook.Sheets(x).Name ElseIf x > ThisWorkbook.Sheets.Count Then gname = "" End If Application.ScreenUpdating = True End Function

------------------------------------------- Function wname() ThisWorkbook.Application.Volatile wname = ThisWorkbook.Name End Function

逍遥之

<二> 财务应用函数

1...转换金额大小写的自定义函数,可分正负（8月28日编制）

如果能加上"整"就更加完善了

逍遥之

以下是引用hnhm在2004-8-29 23:52:00的发言：

我修改了你的转换金额大小写的自定义函数，修正了0.06--零角六分，120--一百二十元（整），-0.13--负零元一角三分，-0.07--负零元零角柒分等，应该更适合会计结算标准。

这位朋友你做的已经相当的好了