컴활2003 버전 2009년도 책으로 공부 하고 있는데
매크로 부분이
2010 기출에 나온 문제가 2009년 책에 나와 있지 않네요
채점프로 돌려보니까
분석작업-2 시트에 폼V컨트롤.단추 형식의 개체가 존재하지 않습니다.
이렇게 뜨는데
이부분 어떻게 해결 하는건가요
그리고
2010 1회 엑셀 기출문제에서
이멜주소 쓰는부분잇는데
=PROPER(SUBSTITUTE(D12,".kr","@상공.kr"))
해서 처리하면
@상공.Kr 로 K가 자꾸 대문자 나오는데 해결방안 있나요?
그리고
2010 엑셀 기출에
프로시저에 해설보고 똑같이 코드 작성했는데
머가 틀린지 모르겠습니다.ㅠㅠ
Private Sub cmd입사자입력_Click()
신규입사자입력.Show
End Sub
cmb지원부서.RowSource = "H6:H10"
cmb지원부서 = "영업부"
cmb지원지역.RowSource = "I6:I11"
cmb지원지역 = "서울"
End Sub
입력행 = [c5].Row + [c5].CurrentRegion.Rows.Count
If txt성명 = "" Then
a = msgbxo("성명을 입력하시오.", vbOKOnly, "성명")
ElseIf txt성별 = "" Then
a = MsgBox("성별을 입력하시오.", vbOKOnly, "성별")
Else
Cells(입력행, 3) = txt성명
Cells(입력행, 4) = txt성별
Cells(입력행, 5) = txt지원부서
Cells(입력행, 6) = txt지원지역
End If
End Sub
Unload Me
End Sub
1. 2009년 책과 2010년 책의 달라진 부분이므로 딱히 설명드리기가 어려울 것 같습니다.
번거로우시겠지만 작성하신 파일과 정답파일 그리고 해설지를 보고 직접 채점해 보세요.
2. 메일주소(E4) : =SUBSTITUTE(PROPER(D4), “.Kr”, “@상공.kr”)
로 작성하시면 됩니다.
2011년 정오표에 등록된 내용입니다. 혹시 2009년 정오표를 보시지 않으셨다면
자료실 - 정오표에서 확인해 보세요.
3. Private Sub UserForm_Initialize()
cmb지원부서.RowSource = "H6:H10"
cmb지원부서 = "영업부"
cmb지원지역.RowSource = "I6:I11"
cmb지원지역 = "서울"
End Sub
Private Sub cmd입력_click()
입력행 = [c5].Row + [c5].CurrentRegion.Rows.Count
If txt성명 = "" Then
a = msgbxo("성명을 입력하시오.", vbOKOnly, "성명") <-오타 box 입니다.
ElseIf txt성별 = "" Then
a = MsgBox("성별을 입력하시오.", vbOKOnly, "성별")
Else
Cells(입력행, 3) = txt성명
Cells(입력행, 4) = txt성별
Cells(입력행, 5) = txt지원부서 <-txt가 아니라 cmb입니다. 콤보박스죠..
Cells(입력행, 6) = txt지원지역
End If
End Sub
Private Sub cmd종료_click()
Unload Me
End Sub
수정하여 다시 작성해 보세요.
좋은 하루 되세요.
"-
*2011-08-27 10:35:48
1. 2009년 책과 2010년 책의 달라진 부분이므로 딱히 설명드리기가 어려울 것 같습니다.
번거로우시겠지만 작성하신 파일과 정답파일 그리고 해설지를 보고 직접 채점해 보세요.
2. 메일주소(E4) : =SUBSTITUTE(PROPER(D4), “.Kr”, “@상공.kr”)
로 작성하시면 됩니다.
2011년 정오표에 등록된 내용입니다. 혹시 2009년 정오표를 보시지 않으셨다면
자료실 - 정오표에서 확인해 보세요.
3. Private Sub UserForm_Initialize()
cmb지원부서.RowSource = "H6:H10"
cmb지원부서 = "영업부"
cmb지원지역.RowSource = "I6:I11"
cmb지원지역 = "서울"
End Sub
Private Sub cmd입력_click()
입력행 = [c5].Row + [c5].CurrentRegion.Rows.Count
If txt성명 = "" Then
a = msgbxo("성명을 입력하시오.", vbOKOnly, "성명") <-오타 box 입니다.
ElseIf txt성별 = "" Then
a = MsgBox("성별을 입력하시오.", vbOKOnly, "성별")
Else
Cells(입력행, 3) = txt성명
Cells(입력행, 4) = txt성별
Cells(입력행, 5) = txt지원부서 <-txt가 아니라 cmb입니다. 콤보박스죠..
Cells(입력행, 6) = txt지원지역
End If
End Sub
Private Sub cmd종료_click()
Unload Me
End Sub
수정하여 다시 작성해 보세요.
좋은 하루 되세요.
"