if 문 (vba) 내에서 함수를 호출하는 방법

Question

if 문 내에서 함수를 호출하려고합니다. 이 함수는 classyear라고하며 if의 바로 뒤에 있습니다. 나는 시간표를 살펴보고 각 과목이 매년 속해있는 것을 보려고합니다. 그래서 1로 끝나면 카운트됩니다. 누구든지 함수 호출에 대해 어떻게 알 수 있습니까?

(사용 기능을 원하는 경우 : 어떤 도움 당신이 블록처럼 내 경우 하위를 호출 할 수 있습니다

Public Function classyear(class As String) As Integer 

Dim yr As String 

yr = Right(class, 1) 
If IsNumeric(yr) Then classyear = yr Else classyear = 0 

End Function 

Answer 1

를 호출하는 것을 시도하고있는 기능에

Public Sub time() 
Dim rgTimeTable As Range, rgClass As Range, counter As Integer 

Set rgTimeTable = Range("B3, N11") 

For Each rgClass In rgTimeTable 
If rgClass.Value = classyear Then counter = counter + 1  ' classyear is the function 

Next rgClass 
MsgBox test  ' also a function 

End Sub 

편집 코드 감사합니다 다른 값을 반환하십시오 Sub)

if (...) 

    classyear() '<--Calling the Sub defined below 

End if 



Private Sub classyear() 
    . 
    . 
End Sub 

희망이 당신이 무엇입니까? 에 대한 ooking.

Answer 2

classyear 함수는 문자열 입력을 사용하므로 하나만 입력해야합니다. 같은 뭔가 :

---

If CInt(rgClass.Value) = classyear("Year1") Then counter = counter + 1 

또한 당신은 당신의 classyear 기능을 neaten 수 있습니다

Public Function classyear(class As String) As Integer 
    On Error Resume Next 'if error classyear will return 0 
    classyear = CInt(Right(class, 1)) 
End Function