입력행 = [b3].Row + [b3].CurrentRegion.Rows.Count
Cells(입력행, 2) = txt고객번호
Cells(입력행, 3) = txt사용량
If opt공업용 = True Then
Cells(입력행, 4) = "공업용"
ElseIf opt가정용 = True Then
Cells(입력행, 4) = "가정용"
ElseIf opt업소용 = True Then
Cells(입력행, 4) = "업소용"
ElseIf opt기타 = True Then
Cells(입력행, 4) = "기타"
End If
If txt사용량 >= 500 Then
Cells(입력행, 5) = "우량고객"
Else
Cells(입력행, 5) = "보통"
End If
txt고객번호 = ""
txt사용량 = ""
opt공업용 = False
opt가정용 = False
opt업소용 = False
opt기타 = False
이게 제가 입력한건데요
답안지랑 굵게 표시한 부분이 다릅니다.
처음 굵게 표시된 부분에서
ElseIf opt기타 = True Then
Cells(입력행, 4) = "기타"
라고 쓴건
기타옵션에 체크가되었을때만 하려고하는건데
문제답안지에는 else
cells(입력행,기타)="기타"
이렇게 써있더라구요. 그럼 이경우에 4항목모두 옵션에 체크가 안되어있을때에도 기타로 표시가되지않나요??
그리고 데이터를 입력하고나서 새로운값이 입력될수있도록하라는것이 입력상자의 내용이기 때문에
제가 쓴것처럼 쓰면 틀리는건가요??(여기서 입력상자가 텍스트박스를 말하는것인지....저는 옵션체크까지
해제되도록 썼는데요ㅜㅜ)
어떤 방법으로 사용하시든 문제에서 지시한 대로 설정 되면 상관이 없습니다.
님이 사용한 방법이 정확한 결과가 나온다면 사용하시면 됩니다.
입력상자의 내용만 지정 하시면 될 것 같습니다.
옵션 체크가 해제 되어도 상관은 없을 것 같네요.
좋은 하루 되세요.
"-
*2013-01-07 08:40:08
어떤 방법으로 사용하시든 문제에서 지시한 대로 설정 되면 상관이 없습니다.
님이 사용한 방법이 정확한 결과가 나온다면 사용하시면 됩니다.
입력상자의 내용만 지정 하시면 될 것 같습니다.
옵션 체크가 해제 되어도 상관은 없을 것 같네요.
좋은 하루 되세요.
"