마지막 문제 VBA를 작성할 때, 처음 클릭시 폼이 뜨는 것까지는 잘 됩니다.
그런데 그 이후 폼 초기화 프로시저나 버튼클릭프로시저 등을 입력한 후에는 갑자기 디버그가 뜹니다.
그리고 들어가면 가장 먼저 설정한 000.show 부분이 노란색으로 되어 있습니다. 모든 엑셀모의고사에서 해당 현상이 발생합니다. 어디서 잘못하고 있는 건가요?ㅜㅜ
Private Sub cmd입력_Click()
입력행 = [B2].Row + [B2].CurrentRegion.Rows.Count
Cells(입력행, 2) = 입력행 - 3 & txt성명
Cells(입력행, 3) = cmd학과명
If opt1학년 = True Then
Cells(입력행, 4) = "1학년"
ElseIf opt2학년 = True Then
Cells(입력행, 4) = "2학년"
ElseIf opt3학년 = True Then
Cells(입력행, 4) = "3학년"
Else
Cells(입력행, 4) = "4학년"
End If
Cells(입력행, 5) = Val(txt학과성적)
Cells(입력행, 6) = Val(txt어학테스트)
Cells(입력행, 7) = Val(txt면접)
End Sub
Private Sub UserForm_Initialize()
cmd학과명.RowSource = "'기타작업-1'!B5:B8"
opt1학년 = True
End Sub
빨간색으로 표시된 cmd학과명을 cmb학과명 으로 수정하면 폼이 정상 실행 됩니다.
좋은 하루 되세요.
-
관리자2020-09-08 18:31:21
Private Sub cmd입력_Click()
입력행 = [B2].Row + [B2].CurrentRegion.Rows.Count
Cells(입력행, 2) = 입력행 - 3 & txt성명
Cells(입력행, 3) = cmd학과명
If opt1학년 = True Then
Cells(입력행, 4) = "1학년"
ElseIf opt2학년 = True Then
Cells(입력행, 4) = "2학년"
ElseIf opt3학년 = True Then
Cells(입력행, 4) = "3학년"
Else
Cells(입력행, 4) = "4학년"
End If
Cells(입력행, 5) = Val(txt학과성적)
Cells(입력행, 6) = Val(txt어학테스트)
Cells(입력행, 7) = Val(txt면접)
End Sub
Private Sub UserForm_Initialize()
cmd학과명.RowSource = "'기타작업-1'!B5:B8"
opt1학년 = True
End Sub
빨간색으로 표시된 cmd학과명을 cmb학과명 으로 수정하면 폼이 정상 실행 됩니다.
좋은 하루 되세요.