|
|
|
|
|
|
안녕하세요..~
다름 아니오라 아래와 같이 한 userform에 두개의 combobox를 연결 시켰는데요..
연결 부분은 해결이 됐었는데.. 그 다음에 문제가 생기네요..
아래와 같이 첫번째 콤보 박스에서 case 0이나 1이 선택되어 두번째 콤보박스 내용이 바뀌면 연결 파일도 바뀌어야 하는데요.. 아래와 같이 두번째 콤보박스 연결을 작성했더니 두번째 박스 내용이 사람이 이름이 되건 달이름이 되건 항상 아래와 같은 파일경로로 열리더라구요.. 두개의 경우로 나누려면 어떤 구문을 사용해야 하나요??
Sub ComboBox1_Change()
With cosmetic
Select Case ComboBox1.ListIndex
Case 0
.namelebel = "AM Name"
indexbox.RowSource = "CosmeticAM"
Case 1
.namelebel = "Month"
indexbox.RowSource = "Month"
End Select
End With
End Sub
Private Sub okbtn_Click()
If indexbox.Value = "" Then
MsgBox "You must choose a Name !", , "Cosmetic AM"
End If
Dim i As Integer
i = indexbox.ListIndex
With ActiveWorkbook
Select Case i
Case 0
Unload Me
Workbooks.Open Filename:= _
"L:\Consumer\Sales\INVENTORY\COSMETIC\Inventory.xls"
|
|
[불량 게시물 신고] |
|
|
|
작성일 : 2003-09-01(14:51)
최종수정일 : 2003-09-01(14:51) |
|
|
|