如何让Function过程在任意工作表里的VBA调用？

1976yuan

在编写Excle应用程序过程当中，发现有许多完全一样的代码需要在不同的工作表里调用，如果在每个工作表里都编写或复制同样的代码总觉得效率不高，同时程序代码也会过于冗长。我曾在论坛里问过这个问题，似乎没有人真正解决了我的问题。我知道可以将Function 过程另存为加载宏然后在Excle里通过“工具”菜单里的加载宏来调用自定义的函数。但经过这样处理的Function只能在工作表里的单元格里使用，并不能在VBA宏代码里使用！！我需要的是将某些完全一样的VBA动作（很多动作并不是简单的进行数字计算统计，有些Function中甚至还包括打开工作表，删除工作表，保存工作表等等动作）编成Function过程让任意工作表里的VBA调用，下面的Function只是我经常要用到的其中的一个，我还有很多Function过程也同样需要让别的工作表调用。

我相信还有许多朋友有同样的需求和困惑，我在这里再次发起这个话题，希望对我们编程有更多的启发，也希望各路高手纷纷拿出自己的绝活来指点指点我等菜鸟。

Public Function recon(sh As Variant, col As String, row As Integer) '该函数用于统计数据库里记录个数 'sh代表某个工作薄中的某个工作表，col代表列号如"A",row代表行号如3 Dim check As Boolean recodernum = row: check = False With sh Do If .Range(col & row) = "" Then check = True Else row = row + 1 End If Loop Until check = True End With recodernum = row - recodernum End Function

henterwu

存为加载宏，并加载之。

lxcapp

做成DLL

neih

如何做成DLL，这也是我关注的，能细讲讲吗？

yachtz

楼主所言： 我知道可以将Function 过程另存为加载宏然后在里通过工具菜单里的加载宏来调用自定义的函数但经过这样处理的Function只能在工作表里的单元格里使用并不能在VBA宏代码里使用 这样处理的Function可以在VBA中调用，请参看： Run 方法 语法 1：执行一个宏或者调用一个函数。可用于执行用 Visual Basic 或 Microsoft Excel 4.0 宏语言编写的宏， 或者调用 DLL 或 XLL 中的函数 语法 1 expression.Run(Macro, Arg1, Arg2, ...)

[此贴子已经被作者于2004-5-25 22:32:10编辑过]

1976yuan

谢谢yachtz大侠，经过试用expression.Run(Macro, Arg1, Arg2, ...)，基本达到了我想要的结果，谢谢！

1976yuan

我用下列代码实现从订单记录库中读取满足某一特定记录编号的所有记录：

sub readdetail()

dim sh:set sh=sheets("订单记录库")

co=1：jlhao=102

xx = Application.Run("myfunction.xla!orderdetail", jlhao, sh, co, ddanxinxi, k, y)

msgbox k，y

end sub

式中ddanxinxi为一个二维数组，k，y表示该二维数组的两个上限值，因为每个订单的条数都不一样。

为何k和y的值不能正确传递出来？msgbox 看到的结果是空值。

请各路高手帮我解决此问题。拜谢啦！！！！

加载宏myfunction.xla中相应的VBA代码如下：

Public Function orderdetail(searchvalue, sh, co, ordermesg, k, y) '该函数用于查询某一工作表中满足某一searchvalue的所有连续的记录的详细情况 x = sh.Cells(65525, co).End(xlUp).Row - 1 'Sheets("详情")中的记录条数 For i = 1 To x If searchvalue = sh.Cells(i + 1, co) Then k = 1: y = sh.[IV1].End(xlToLeft).Column Do ReDim Preserve ordermesg(y, k) For j = 2 To y ordermesg(j, k) = sh.Cells(i + k, j) Next j k = k + 1 Loop Until searchvalue <> sh.Cells(i + k, co) k = k - 1 '由于最后一条记录不满足查询要求所以必须去除掉 Exit For End If Next i End Function

wenz

Public Function orderdetail(searchvalue, sh, co, ordermesg, k, y)中的k,y是你在调用函数时赋于函数的参数,而不是由函数返回的值.

1976yuan

那么请问wenz大侠，怎样才能达到我想要的结果（即：准确的返回k，y的计算值）。其实如果不将该Function放在加载宏里而是直接放在sub所在的模块里调用能准确地返回k，y之值，因为我类似的Function很多，且在很多地方要用到，所以我就制成加载宏以便共享。

想必您一定有办法帮助我解决这个问题。请赐教！！！多谢多谢！！！

wenz

sub readdetail() dim sh:set sh=sheets("订单记录库") co=1：jlhao=102 xx = Application.Run("myfunction.xla!orderdetail", jlhao, sh, co, ddanxinxi, k, y) 中ddanxinxi, k, y没有赋值,去掉试试.