定义要在所有udf

时间:2018-06-18 20:09:33

标签: vba

我正在编写一个UDF,其中我正在使用从另一个工作簿填充的aray。 它有效,但是,它很慢。

我在想这是因为UDF的每个实例(20000多行)调用另一个工作簿来填充数组。

以下是该功能。我要问的是:sourceCategorie可以全局填充一个sub,所以nog每行必须调用另一个工作簿。这可以提高性能吗?

public Function categorieoppunten(punten As Double) As Integer

Dim sourceCategorie As Variant
Dim categorie, i As Integer

sourceCategorie = Workbooks("Brontabellen.xlsx").Worksheets("Bron").range("C46:C68").Value
For i = 23 To 1 Step -1
    If punten < sourceCategorie(i, 1) Then
    categorie = i
    End If
Next i


categorieoppunten = categorie
End Function

0 个答案:

没有答案