VBA Excel UDF 인수에서 비교 연산자를 사용하는 방법?

Question

UDF를 어떻게 작성하여 인수에 비교 연산자를 사용할 수 있습니까?

표준 함수를 사용할 때 = countif (range; x)과 같이 쓰면 x와 같은 범위의 셀 수가 표시됩니다.

과 같이 보일 것 VBA에서이 기능을 복제 : 표준 기능을 사용하는 경우

이

Function countifUDF(rng As Range, x As Integer) 
    count = 0 
    For Each cell in rng.Cells 
     If cell.Value = x Then 
      count = count + 1 
     Next cell 
    countifUDF = sum 
End Function 

이 = COUNTIF 같은 함수에 비교 연산자를 전달할 수 있습니다 (범위; "<"& X)이고 x보다 작은 범위의 셀 수가 표시됩니다.

어떻게하면 UDF에서이 작업을 수행 할 수 있습니까? = countifUDF로 내 UDF (범위; "<"& x)를 수익률 # VALUE

---

솔루션

Function countifUDF(rng As Range, x As String) 
Dim arr() As String 
Dim count As Integer 
Dim i As Integer 

' breaking down x character by character and puts in array 
ReDim arr(Len(x) - 1) 
For i = 1 To Len(x) 
    arr(i - 1) = Mid$(x, i, 1) 
Next 

' if the last character in x is not numeric i assume the user want to count matching strings 
' Like allows the user to use wildcards, LCase makes the comparision case insensitive 
If IsNumeric(arr(UBound(arr))) = False Then 
    x = LCase(x) 

    For Each cell In rng.Cells 
     If LCase(cell.Value) Like x Then 
      count = count + 1 
     End If 
    Next cell 

' if the first char in x is numeric its pretty straight forward 
ElseIf IsNumeric(arr(0)) = True Then 
    For Each cell In rng.Cells 
     If cell.Value = x Then 
      count = count + 1 
     End If 
    Next cell 

' if the first character in x is < and the second is numeric less-than operator is used 
ElseIf arr(0) = "<" And IsNumeric(arr(1)) = True Then 
    ' removing < from x 
    x = Replace(x, "<", "") 
    For Each cell In rng.Cells 
     If cell.Value < x Then 
      count = count + 1 
     End If 
    Next cell 

ElseIf arr(0) = ">" And IsNumeric(arr(1)) = True Then 
    x = Replace(x, ">", "") 
    For Each cell In rng.Cells 
     If cell.Value > x Then 
      count = count + 1 
     End If 
    Next cell 

' if the first char is < and the second is > the is not operator is used 
ElseIf arr(0) = "<" And arr(1) = ">" Then 
    x = Replace(x, "<", "") 
    x = Replace(x, ">", "") 
    For Each cell In rng.Cells 
     If cell.Value <> x Then 
      count = count + 1 
     End If 
    Next cell 

ElseIf arr(0) = ">" And arr(1) = "=" Then 
    x = Replace(x, ">", "") 
    x = Replace(x, "=", "") 
    For Each cell In rng.Cells 
     If cell.Value >= x Then 
      count = count + 1 
     End If 
    Next cell 

ElseIf arr(0) = "<" And arr(1) = "=" Then 
    x = Replace(x, "<", "") 
    x = Replace(x, "=", "") 
    For Each cell In rng.Cells 
     If cell.Value <= x Then 
      count = count + 1 
     End If 
    Next cell 

End If 

countifUDF = count 

End Function 

내가 그것을 프로그래머처럼 VBA에서 더 편리한 방법을 보인다 가지고 답변을 감안할 때 UDF에서 비교 연산자를 처리 할 때, 내가 틀렸다면 나를 바로 잡으십시오. 내 솔루션은 와일드 카드로 숫자와 문자열을 모두 지원합니다. 처음에는 분리 방법으로 &으로 분할 방법을 사용하려고했습니다. Appearantly VBA를 식별 ' ">"& X'로 '> X'나는이 시도 문자로 X 문자를 분할하고 사용자가에 입력 비교 연산자의 종류 평가

Answer 1

합니다. 이 예에서

Function countifUDF(rng As Range, x As Variant) As Long 
    Dim cell As Range, Count As Long, CH As String, VL As Long 

    VL = Replace(Replace(x, ">", ""), "<", "") 
    CH = Left(CStr(x), 1) 
    Count = 0 

    If CH = ">" Then 
     For Each cell In rng.Cells 
      If cell.Value > VL Then 
       Count = Count + 1 
      End If 
     Next cell 
    ElseIf CH = "<" Then 
     For Each cell In rng.Cells 
      If cell.Value < VL Then 
       Count = Count + 1 
      End If 
     Next cell 
    Else 
     For Each cell In rng.Cells 
      If cell.Value = x Then 
       Count = Count + 1 
      End If 
     Next cell 
    End If 
    countifUDF = Count 
End Function 

, CH는 세코의 첫 번째 문자 인 다음 UDF를 가지고()는 문자열로 두 번째 인수 고려 nd 인수이고 VL은 두 번째 인수의 숫자 부분입니다.

Answer 2

을했던 이유 :

Function countifUDF(rng As Range, x As Integer) 
    Dim cell As Range 
    Dim Count As Integer 

    Count = 0 
    For Each cell In rng.Cells 
     If cell.Value < x Then Count = Count + 1 
    Next cell 

    countifUDF = Count 

End Function