|
|
|
|
|
|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
*엑셀2000
Private Sub 입력_Click()
With Worksheets("학생상담 관리대장")
If 학번 = "" Then MsgBox "학번을 반드시 입력하세요"
If 이름 = "" Then MsgBox "이름을 반드시 입력하세요"
If 면담일자 = "" Then MsgBox "면담일자을 반드시 입력하세요"
If 면담분류 = "" Then MsgBox "면단분류을 반드시 입력하세요"
If 내용 = "" Then MsgBox "면담내용을 반드시 입력하세요"
For i = 6 To 100
If CStr(.Cells(i, 1)) = "" Then
.Cells(i, 3) = 이름.Text
.Cells(i, 1) = 학번
.Cells(i, 2) = Format(Left(면담일자.Text, 4) & "-" & Mid(면담일자.Text, 5, 2) & "-" & Right(면담일자.Text, 2), "yyyymmdd")
.Cells(i, 5) = 면담분류
.Cells(i, 4) = 내용
Exit For
End If
Next i
End With
End Sub
그런데요,, 이거 맞긴한데요,, 위에,, 입력하십시오라고 뜬후..
말인데요,, 뜬후,, 시트에 덜적은 내용이 안적혔으면해서요,,
가르쳐주세요,, 어디 사이에 멀 쓰면 되는지 |
|
[불량 게시물 신고] |
|
|
|
작성일 : 2004-11-20(11:57)
최종수정일 : 2004-11-20(12:20) |
|
|
|