엑셀 2007 에 있는 IFERROR 를 2003 에서 ... IFERROR2003

[ 2007 의 IFERROR 를 대신하는 IFERROR2003 ] 에 대해 알아봅니다.    =IF(수식,오류일때,수식) 을 =IFERROR2003(수식,오류일때) 로 사용 가능합니다.
1  2  3  4	A B C D E F 성명 연락처 찾기 결과 길동이 101 길동이 101 101 삼순이 304 만수 없음 없음 만식이 502 삼순이 304 304

Sheet3 시트 에 사용한 수식 입니다. by MicroSoft Excel v 2003    $ 가 있는 수식은 절대(혼합)참조로 셀 주소를 고정합니다. 참조하세요!!
No	셀주소	왼쪽의 셀에 수식을 넣으면 오른쪽 결과가 나옵니다. (복사)를 누르면 셀의 수식이 클립보드(메모리)로 복사되는데, 익스플로러의 종류에 따라 (복사)가 작동이 안 될 수 있습니다.	결과	수식을
1	E2	=IF(ISERROR(VLOOKUP(D2,$A$2:$B$4,2,0)),"없음",VLOOKUP(D2,$A$2:$B$4,2,0))	101
2		E2  셀의 수식을 여기에 복사하세요 -→ E2:E4
3	F2	=IFERROR2003(VLOOKUP(D2,$A$2:$B$4,2,0),"없음")	101
4		F2  셀의 수식을 여기에 복사하세요 -→ F2:F4
보시는 내용은 위의 표에 값이, 아래의 표에는 해당 셀의 수식이 있습니다.       첨부파일이 없습니다, 원하는 부분을 시트(셀)에 붙여 넣으세요.      도움이 되시기를 바랍니다.

Function IFERROR2003(WriteFormula, WriteAnswer)
Dim Answ As Variant
On Error Resume Next
Answ = Application.Evaluate(WriteFormula)
If Not (IsError(Answ)) Then
     IFERROR2003 = Answ
Else
Select Case Answ
     Case CVErr(xlErrDiv0):   IFERROR2003 = WriteAnswer
     Case CVErr(xlErrNA):     IFERROR2003 = WriteAnswer
     Case CVErr(xlErrName):   IFERROR2003 = WriteAnswer
     Case CVErr(xlErrNull):   IFERROR2003 = WriteAnswer
     Case CVErr(xlErrNum):    IFERROR2003 = WriteAnswer
     Case CVErr(xlErrRef):    IFERROR2003 = WriteAnswer
     Case CVErr(xlErrValue):  IFERROR2003 = WriteAnswer
     Case Else:               IFERROR2003 = Answ
End Select
End If
End Function
잘 안될 경우 메일 주시거나 리플 남겨주세요