문제 4번-2입니다.
(정답)
Private Sub 입력_Click()
입력행 [a3].Row + [a3].CurrentRegeon.Rows.Count
Cells(입력행, 1) = 입력행 - 3 & 영화명.Value
Cells(입력행, 2) = 단가.Value
Cells(입력행, 3) = 매수.Value
Cells(입력행, 4) = Format(금액.Value, "#,###")
If 금액.Value >= 40000 Then
Cells(입력행, 5) = 금액.Value * 0.1
End If
영화명.Value = ""
단가.Value = ""
매수.Value = ""
금액.Value = ""
End Sub
이부분에서
1. 첫번째로
If 금액.Value >= 40000 Then
Cells(입력행, 5) = 금액.Value * 0.1
End If
가 아니라
If 금액.Value >= 40000 Then
Cells(입력행, 5) = 금액.Value *0.1
Else
Cells(입력행, 5) = ""
End If
이렇게 추가되어야 하는것 아닌가요..?
2. 두번째 질문입니다.
영화명.Value = ""
단가.Value = ""
매수.Value = ""
금액.Value = ""
이 부분은 왜 들어가는지가 궁금합니다!
1. 해당 부분 생략 되어도 동일한 결과가 나오므로 생락 한 것입니다.
해당 부분을 작성해도 정확한 결과가 나오므로 정답으로 인정 됩니다.
2. 폼의 ‘입력’ 단추를 클릭하면 ‘영화명(영화명)’, ‘단가(단가)’, ‘매수(매수)’, ‘금액 (금액)’에는 새로운 값이 입력될 수 있도록 설정하시오.
에 맞게 지정한 부분입니다.
각 컨트롤의 값을 깨끗하게 지우는 역활을 하는 것입니다.
지우고 나면 새로운 값을 입력 할 수 있겠죠.
좋은 하루 되세요.
-
관리자2023-02-23 13:04:14
1. 해당 부분 생략 되어도 동일한 결과가 나오므로 생락 한 것입니다.
해당 부분을 작성해도 정확한 결과가 나오므로 정답으로 인정 됩니다.
2. 폼의 ‘입력’ 단추를 클릭하면 ‘영화명(영화명)’, ‘단가(단가)’, ‘매수(매수)’, ‘금액 (금액)’에는 새로운 값이 입력될 수 있도록 설정하시오.
에 맞게 지정한 부분입니다.
각 컨트롤의 값을 깨끗하게 지우는 역활을 하는 것입니다.
지우고 나면 새로운 값을 입력 할 수 있겠죠.
좋은 하루 되세요.