Tag: 自定义函数

将Sub转换为UDF（#VALUE！）

我有一个程序Sub ，运作良好。 我想把它转换成一个自定义的函数，但是当我在Excel中使用这个函数时会出现一个错误（ #VALUE! ） Function ТридцатьТРи(Diapozon As Integer) 'для п/пр Dim k, n As Integer Dim parRange As Range Set parRange = Range("Diapozon") k = 0 n = 0 For Each Cell In parRange.Rows If Cell.Offset(0, 1).Value = 1 And k = -1 Then n = n – 1 End If If Cell.Value = […]

Excel自定义公式与IF语句和INDEX，MATCH返回一个#VALUE错误

我从一个Excel表格提取值到另一个。 我使用下面的公式： = IF(ISBLANK(IFNA(INDEX(Range1;Row;MATCH(Dates;Range2;0));Error1));Error2;IFNA(INDEX(Range1;Row;MATCH(Dates;Range2;0));Error1)) 由于我需要对提取的数据进行计算，因此我想创build一个自定义函数，通过不必input每次保持不变的参数来简化提取过程。 所以我build立了以下function： Function DataCap(Dates As Variant, Row As Variant) As Variant Dim Range1 As Range 'Define the whole lookup table Set Range1 = Range("Data!A1:P151") Dim Range2 As Range 'Define the date lookup table Set Range2 = Range("Data!A3:P3") Dim Error1 As Range 'Define the error 1; if no value Set Error1 = […]