[已解决]application.worksheetfunction语句是否不能放在工作表级别的模块

lautumn

大家好：

我需要使用excel的工作表函数，用了语句：application.worksheetfunction，这个语句在通用模块内是可以正常运行的，但放在工作表级别的模块内却不能正常运行了，问了几天了，没有高人可以指点一下么？

代码如下：

Sheets(contract).Select
mohang = ActiveSheet.UsedRange.Rows.Count
molie = Sheets(contract).UsedRange.Columns.Count
chongfu = Application.WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(mohang, molie)), "设备名称")

请注意：这段代码放在通用模块内，运行的结果是chongfu=1,而放在sheets（"合同"）这个表的模块内，运行的结果是chongfu＝0（解释一下：sheets（contract）是另外一个表）

最佳答案

月排行榜 / 总排行榜

amulee

2009-12-23 12:21

放在哪个工作表模块内，Range(Cells(1, 1), Cells(mohang, molie))指的就是那个工作表的Range(Cells(1, 1), Cells(mohang, molie))

要转到当前工作表的Range(Cells(1, 1), Cells(mohang, molie))，必须改成这样：

chongfu = Application.WorksheetFunction.CountIf(ActiveSheet.Range(ActiveSheet.Cells(1, 1), ActiveSheet.Cells(mohang, molie)), "设备名称")

跳转到最佳答案楼层

E-H-P

问题应该就是这红色部分的代码:

CountIf(Range(Cells(1, 1), Cells(mohang, molie))

这些表示单位格区域的都带个前缀试试..

lautumn

能说的具体一些吗？如何带前缀？

amulee

关键是你这些Range(Cells(1, 1), Cells(mohang, molie))

有没有特指的表格

lautumn

没有特指的表格，就是当前工作表activesheet。再强调一下，这些语句在通用模块内运行完全正常，结果也是正确的，但把代码挪到工作表对象的模块内运行就不正常了。

amulee

放在哪个工作表模块内，Range(Cells(1, 1), Cells(mohang, molie))指的就是那个工作表的Range(Cells(1, 1), Cells(mohang, molie))

要转到当前工作表的Range(Cells(1, 1), Cells(mohang, molie))，必须改成这样：

chongfu = Application.WorksheetFunction.CountIf(ActiveSheet.Range(ActiveSheet.Cells(1, 1), ActiveSheet.Cells(mohang, molie)), "设备名称")

lautumn

原来如此啊！！非常感谢！！