|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
Private Sub Tr우_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim MinQ As Integer
Dim MaxP As Integer
MinQ = Application.WorksheetFunction.Min(A, B, C)
MaxP = Application.WorksheetFunction.Max(A, B, C)
R.Caption = (Val(A.Text) + Val(B.Text) + Val(C.Text)) / 3
T.Caption = ((MaxP - MinQ) / Val(R.Caption) * 100)
End Sub
이런식으로 코드를 작성했습니다.
그런데 이런문제가 생깁니다.
만약 A,B,C중 한개에 아무런 숫자를 입력시키지 않으면 MIN값을 찾을수 없다는 오류가 발생됩니다.
값을 넣지 않아도 적용되게 하는 방법이 없을까요?
있으면 조언점 부탁드리겠습니다.
|
|