-3

私は現在、ヘッダーが特定の値よりも大きい場合と小さい場合にヘッダーを返し、連結するUDFに取り組んでいます。私は Excel-Vba があまり得意ではなく、これまでのところ、理解できない哀れなコードしか得られませんでした。誰かが助けてくれたら本当にありがたいです。これが私がこれまでに得たものです:

Public Function greaterLessValue(Rng As Range, Rng2 As Range, greater, less)

Dim rngArr() As Variant
rngArr = Rng.value

For i = 1 To UBound(rngArr, 1)
    For j = 1 To UBound(rngArr, 2)
        If rngArr(i, j) = xVal Then
            For k = 1 To UBound(rngArr, 2)
                If rngArr(i, k) = Yval Then countRowAsso = countRowAsso + 1
            Next k
        End If
    Next j
Next i

End Function

値が 5 以上 10 以下の場合、同じ列に特定の値を含むヘッダーを連結する以下の同じ例を返す必要があります。

4

3 に答える 3