엑셀 기본 모의고사 6회 기타작업 2번의 2번에서
제대로 입력한 것 같은데 채점해보니
123,700,업소용,우량고객 이 아닌
123,700,공업용, 우량고객 이라고 뜹니다.
왜 이런 결과가 나오나요? 확인 부탁드립니다.
Private Sub cmd입력_Click()
입력행 = [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) = "가정용"
Else
Cells(입력행, 4) = "기타"
End If
If txt사용량 >= 500 Then
Cells(입력행, 5) = "우량고객"
Else
Cells(입력행, 5) = "보통"
End If
txt고객번호 = ""
txt사용량 = ""
End Sub
빨간색으로 표시 된 부분이
if opt공업용 = ture then
으로 되어 있었습니다.
ture 를 true 로 변경하여 사용해 보세요.
좋은 하루 되세요.
"-
*2013-08-12 13:37:40
Private Sub cmd입력_Click()
입력행 = [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) = "가정용"
Else
Cells(입력행, 4) = "기타"
End If
If txt사용량 >= 500 Then
Cells(입력행, 5) = "우량고객"
Else
Cells(입력행, 5) = "보통"
End If
txt고객번호 = ""
txt사용량 = ""
End Sub빨간색으로 표시 된 부분이
if opt공업용 = ture then
으로 되어 있었습니다.
ture 를 true 로 변경하여 사용해 보세요.
좋은 하루 되세요.
"