티스토리 뷰

Study/Application > Windows

IFERROR 2003에서 구현하기

Jake Yoon 2011. 9. 20. 16:57


Function IFERROR2(WriteFormula, WriteAnswer)
Dim Answ As Variant
On Error Resume Next
Answ = Application.Evaluate(WriteFormula)
If Not (IsError(Answ)) Then
     IFERROR2 = Answ
Else
Select Case Answ
     Case CVErr(xlErrDiv0):   IFERROR2 = WriteAnswer
     Case CVErr(xlErrNA):     IFERROR2 = WriteAnswer
     Case CVErr(xlErrName):   IFERROR2 = WriteAnswer
     Case CVErr(xlErrNull):   IFERROR2 = WriteAnswer
     Case CVErr(xlErrNum):    IFERROR2 = WriteAnswer
     Case CVErr(xlErrRef):    IFERROR2 = WriteAnswer
     Case CVErr(xlErrValue):  IFERROR2 = WriteAnswer
     Case Else:               IFERROR2 = Answ
End Select
End If
End Function
저작자표시 비영리 변경금지

'Study > Application > Windows' 카테고리의 다른 글

kinect 1.0 beta2 x64버전  (0) 2012.10.23
키넥트 Open NI 기본설정  (2) 2012.08.27
CreateDIBSection  (2) 2011.08.19
로컬에 있는 파일로 BITMAP 핸들 얻기  (2) 2011.08.19
MFC에서 특정위치 선택하기 ( MFC selection change )  (0) 2011.05.16
공유하기 링크
댓글