|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
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
==============[오솔길님 글에 대한 답변입니다]==============
안녕하세요..!!
아래코드의중간쯤 에보시면 가,나,다,라 표기해놓은곳 데로
하면 잘못된건가요 부탁드립니다
라고 질문 하셨는데요
잘못된 것 입니다.
㉮ Set rngProducts = Range("a4:a9")
㉯ Set rngProducts = Range("b4:b9")
Set rngProducts = Range("c4:c9")
이 코드는
결과적으로 Set rngProducts = Range("c4:c9") 이것만 실행 한 결과와 같습니다.
㉰ strProductName = Me.TextBox1.Text
㉱ strProductName = Me.TextBox2.Text
strProductName = Me.TextBox3.Text
이것도 마찬 가지구요.
제가 한번 만들어 보았습니다.
급하게 만드느라 원하시는 대로 됬을런지는 모르겠습니다만..
==============[박현준님 글에 대한 답변입니다]==============
감사합니다. 그런데 추가되는 항목은 무조건
"대구" 열에만 입력됩니다 어떻게해야되죠? |
|