|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
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...):
* 아래줄에 질문을 작성하세요 >>
안녕하세요
품명,규격,기계명 3가지모두의 내용이 일치할때 해당지역에 수량이 입력되게만들려고 아래처럼 해봤는데 안돼네요
텍스터박스 4개중 1, 2 번이 먹히질 않아요 3번의 박스값만
찾아갑니다
아래코드의중간쯤 에보시면 가,나,다,라 표기해놓은곳 데로
하면 잘못된건가요 부탁드립니다
그리고 텍스트박스중 1,2,3 번 박스의내용이 데이타에 없으면
자동추가되도록 하고싶고요 수고하세요(첨부파일참고하세요)
ElseIf .ComboBox3.Text <> "" Then
strShop = .ComboBox3.Text
strItem = "현재고"
End If
End With
Dim rngStart As Range
If strItem = "입고" Then
Set rngStart = Range("d2")
ElseIf strItem = "출고" Then
Set rngStart = Range("g2")
Else
Set rngStart = Range("j2")
End If
Dim rngProducts As Range
㉮ Set rngProducts = Range("a4:a9")
㉯ Set rngProducts = Range("b4:b9")
Set rngProducts = Range("c4:c9")
Dim iMatch As Integer
Dim strProductName As String
㉰ strProductName = Me.TextBox1.Text
㉱ strProductName = Me.TextBox2.Text
strProductName = Me.TextBox3.Text
Dim iCount As Integer
iCount = Me.TextBox4.Text
On Error Resume Next
iMatch = Application.Match(strProductName, rngProducts, False)
If Err Then GoTo XX
Dim i As Integer
For i = 1 To 10
If rngStart.Cells(1, i) = strItem Or rngStart.Cells(1, i) = "" Then
If rngStart.Cells(2, i) = strShop Then
rngStart.Cells(iMatch + 2, i) = iCount
Exit For
End If
Else
Exit For
End If
Next i
XX:
If Err Then
MsgBox Err.Number & vbCrLf & Err.Source
End If
Set rngStart = Nothing
Set rngProducts = Nothing
End Sub
Private Sub UserForm_Initialize()
With Me
.ComboBox1.AddItem "대구"
.ComboBox1.AddItem "부산"
.ComboBox1.AddItem "서울"
.ComboBox2.AddItem "대구"
.ComboBox2.AddItem "부산"
.ComboBox2.AddItem "서울"
.ComboBox3.AddItem "대구"
.ComboBox3.AddItem "부산"
.ComboBox3.AddItem "서울"
End With
End Sub
|
|