문제 ) 신규입사자입력 폼의 입력cmb입력 버튼을 클릭하면 폼에 입력된 데이터를 시트의 표 안에 추가 되도록 프로시저를 작성하시오.
- 성명을 입력하지 않았으면 '성명을 입력하시오', 성별을 입력하지 않았으면 '성별을 입력하시오'라는 메시지를 출력하고, 성명과 성별을 모두 입력했을 때만 폼의 데이터를 워크시트에 입력하시오.
답) Private Sub cmd입력_Click()
(입력행을 이부분에 써도 되는지)
If txt성명 = "" Then
MsgBox "성명을 입력하시오.",vbokonly,"성명"
ElseIf txt성별 = "" Then
MsgBox "성별을 입력하시오.",vbokonly,"성별"
Else
입력행 = [C5].Row + [C5].CurrentRegion.Rows.Count
Cells(입력행, 3) = txt성명
Cells(입력행, 4) = txt성명
Cells(입력행, 5) = cmb지원부서
Cells(입력행, 6) = cmb지원지역
End If
End Sub
질문) 1. 입력행을 윗부분에 써도 되나요
2. 파일에 있는 답에는 vbokonly 뒷부분은 없고 그냥 성명을 입력하시오 까지 밖에 없던데 왜 생략 된 거죠??
3. 제대로 답을 입력했는데 워크시트에 성별이 입력되지 않고 성명에 입력한 내용이 성별에 동일하게 입력됩니다. 뭐가 잘못된거죠???
1. 네 상관 없습니다.
2. 기본값이 vbokonly 이기 때문이죠.
3. Else
입력행 = [C5].Row + [C5].CurrentRegion.Rows.Count
Cells(입력행, 3) = txt성명
Cells(입력행, 4) = txt성명
Cells(입력행, 5) = cmb지원부서
Cells(입력행, 6) = cmb지원지역
End If
End Sub
4열에 txt성명을 입력하게 했기 때문이죠.
txt성별로 수정하세요.
좋은 하루 되세요.
"-
*2012-09-11 14:58:58
1. 네 상관 없습니다.
2. 기본값이 vbokonly 이기 때문이죠.
3. Else
입력행 = [C5].Row + [C5].CurrentRegion.Rows.Count
Cells(입력행, 3) = txt성명
Cells(입력행, 4) = txt성명
Cells(입력행, 5) = cmb지원부서
Cells(입력행, 6) = cmb지원지역
End If
End Sub4열에 txt성명을 입력하게 했기 때문이죠.
txt성별로 수정하세요.
좋은 하루 되세요.
"