0
Function RRel(colmn, Optional offst, Optional rng)
    If offst Is Nothing Then Set offst = -1
    If rng Is Nothing Then Set rng = Application.Caller
    RRel = Intersect(colmn, rng.offset(offst, 0).EntireRow)
End Function

これをExcelの数式として使用しようとすると、たとえば=RRel(P:P)次のエラーが発生します。

Compile error:

object required

そして、デバッグポイントは関数ヘッダーにあります

4

1 に答える 1

0

これを行うためにUDFが必要な理由がわかりません。Excelの数式だけでそれを行わないのはなぜですか。とにかく、あなたがこれを試すことができると主張するなら:

Function RRel(colmn As Range, Optional offst As Variant, Optional rng As Variant) As Variant
    If IsMissing(offst) Then offst = -1
    If IsMissing(rng) Then Set rng = Application.Caller.Offset(offst, 0)
    RRel = Intersect(colmn.EntireColumn, rng.EntireRow).Value
End Function
于 2012-05-25T17:08:02.487 に答える