VBA UDF在测试中有效，但在excel中使用时不起作用

Question

我对此感到绝望！

我已经建立了下面的功能。 cday指的是excel中带有日期的单元格，例如01/01/2017

它匹配并找到数据集的行和列，并将其输入到数组（dpricebase）中，该数组我已经通过子程序预先用数据填充

我写了一个小子使它生效，它起作用了。 我尝试直接在excel上使用它，但事实并非如此！

请帮助！

谢谢！

Function findprice (cday, commno)

cday = DateValue(cday)

price1 = 0

If cday > lastday Then ‘last day is a date xx/xx/xxxx at a cell in the excel
    price1 = 0
    GoTo result
End If

Windows("m.xls").Activate
Sheets("Daily").Activate

‘find the matching row
For x = 5 To lastrow
    If DateValue(Cells(x, 2)) = cday Then
        datarow = Cells(x, 2).Row - 5
        GoTo Continue1
    End If
Next x

MsgBox "No data for " & cday & " for " & commno

Continue1:

'find the matching column 
For y = 3 To totalcomm
    If Cells(2, y) = commno Then
        datacol = Cells(2, y).Column - 3
        GoTo Continue2
    End If
Next y

MsgBox "No Daily data for No." & commno

Continue2:

price1 = dpricebase(datarow, datacol)
GoTo result

result:
findprice = price1 
End Function

Answer 1

UDF存在几个问题：

• lastday lastrow和totalcomm在任何地方都没有定义
• 您不能在UDF中使用sheet.activate或window.activate
• 您应该使用Option Explicit