기본모의고사 2회 문제4-3-2번 프로시저 작성문제에 정답은
Private Sub cmd입력_Click()
입력행 = [A3].Row + [A3].CurrentRegion.Rows.Count
Cells(입력행, 1) = txt판매일자.Value
Cells(입력행, 2) = txt종류.Value
Cells(입력행, 3) = txt수량.Value
Cells(입력행, 4) = txt단가.Value
Cells(입력행, 5) = Format(Val(txt판매수량.Value) * Val(txt판매단가.Value), "#,###")
If ch할인여부.Value = True Then
Cells(입력행, 6) = Val(txt판매수량.Value) * Val(txt판매단가.Value) * 0.1
Else
Cells(입력행, 6) = 0
End If
cmb종류.Locked = True
End Sub
이고, 저는 아래와 같이 작성했습니다.
Private Sub cmd입력_Click()
입력행 = [A3].Row + [A3].CurrentRegion.Rows.Count
Cells(입력행, 1) = txt판매일자.Value
Cells(입력행, 2) = txt음악종류.Value
Cells(입력행, 3) = txt판매수량.Value
Cells(입력행, 4) = txt판매단가.Value
Cells(입력행, 5) = Format(Val(txt판매수량.Value) * Val(txt판매단가.Value), "#,###")
If ch할인여부.Value = True Then
Cells(입력행, 6) = Val(txt판매수량.Value) * Val(txt판매단가.Value) * 0.1
Else
Cells(입력행, 6) = 0
End If
cmb종류.Locked = True
End Sub
안녕하세요.
1. 파일을 열어 직접 확인을 해야 합니다. 폼을 연 다음 해당 컨트롤을 클릭하면 속성 창에 이름이 표시됩니다.
2. 컨트롤 이름은 임의로 지정하는 것이 아닙니다. 문제 파일에 이미 이름이 지정되어 있으니 그 이름을 확인하고 지정해야 합니다. 컨트롤 이름을 잘못 지정하면 당연히 정상적으로 결과가 실행되지 않습니다.
즐거운 하루 되세요.
-
관리자2023-09-18 18:24:44
안녕하세요.
1. 파일을 열어 직접 확인을 해야 합니다. 폼을 연 다음 해당 컨트롤을 클릭하면 속성 창에 이름이 표시됩니다.
2. 컨트롤 이름은 임의로 지정하는 것이 아닙니다. 문제 파일에 이미 이름이 지정되어 있으니 그 이름을 확인하고 지정해야 합니다. 컨트롤 이름을 잘못 지정하면 당연히 정상적으로 결과가 실행되지 않습니다.
즐거운 하루 되세요.