|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
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...):
* 아래줄에 질문을 작성하세요 >>
아래는 폼에서 작성된 프로시져 입니다.
여기에서 질문은..
If lst사무실 = "" Then
MsgBox "사무실을 선택하세요"
lst사무실.SetFocus
Exit Sub
End If
이와 같이 했는데요. 여기에서 'lst사무실'(listbox임)를 선택하지 않아도. 메시지가 나타나지 않아요.. "사무실을 선택하세요"라는 메시지가 나와야 하는데..
무엇이 잘못 되었나요?
폼을 열때 lst사무실에 셀에 있는 목록이 나타나게 하는 프로시져//
Private Sub UserForm_Initialize()
lst사무실.RowSource = "F6:G8"
lst사무실.ColumnCount = 2
End Sub
등록버튼을 클릭했을때, 내용이 입력되는 프로시져//
Private Sub cmd등록_Click()
Dim i As Integer
If lst사무실 = "" Then
MsgBox "사무실을 선택하세요"
lst사무실.SetFocus
Exit Sub
End If
If txt관리비 = "" Then
MsgBox "관리비를 입력하세요"
txt관리비.SetFocus
Exit Sub
End If
If txt전기료 = "" Then
MsgBox "전기료를 입력하세요"
txt전기료.SetFocus
Exit Sub
End If
With Worksheets("관리비입력")
i = Range("A3").CurrentRegion.Rows.Count + 3
.Cells(i, 1).Value = lst사무실.Value
.Cells(i, 2).Value = txt관리비.Value
.Cells(i, 3).Value = txt전기료.Value
End With
lst사무실.Value = ""
txt관리비.Text = ""
txt전기료.Text = ""
End Sub |
|