|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
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...):
* 아래줄에 질문을 작성하세요 >>
안녕하세요
텍스트박스가 4개 있는데요
1~3번째박스는 차례로 품명,규격,색상 을입력하는곳이고 4번째는 수량 입력란입니다
시트의 A4,B4,C4는 차례로 품명,규격,색상 의 데이타가 있는 곳입니다.
여기서 텍스트박스에 입력한내용이 행방향으로,A4,B4,C4 또A5,B5,C5 이련식으로
3개가 일치하면 일치하는 행의바로옆(D4 혹은 D5)에 수량이 입력되고
일치하는 행이 없으면 데이타의맨아래줄에 입력되고 옆에 수량이입력되게
할려고 합니다
좋은 답변 부탁드립니다
안녕히계세요
==============[오솔길님 글에 대한 답변입니다]==============
Private Sub CommandButton1_Click()
Dim rngTemp As Range
Dim firstaddress As String
iNewLine = Sheets("Sheet1").[A3].CurrentRegion.Rows.Count + 3
Set rngTemp = Cells.Find(What:=Me.TextBox1, LookAt:=xlWhole)
'rngTemp.Activate ' 요부분
'firstaddress = rngTemp.Address '요부분을
If rngTemp Is Nothing Then
Call 데이터추가 '//입력한 품명이 존재하지 않는 경우
Else '//입력한 품명이 존재하는 경우
rngTemp.Activate '여기로
firstaddress = rngTemp.Address '해보시면..
If 품명규격색상비교(rngTemp) Then
rngTemp.Offset(0, 3) = Val(rngTemp.Offset(0, 3)) + Me.TextBox4.Value '//수량 업데이트
Else
Do
Set rngTemp = Cells.FindNext(rngTemp)
rngTemp.Activate
If rngTemp Is Nothing Then '//다음 찾기에서 품명이 같은게 없는 경우
Call 데이터추가
GoTo aa:
Else '//다음 찾기에서 품명이 같은 경우
If 품명규격색상비교(rngTemp) Then
rngTemp.Offset(0, 3) = rngTemp.Offset(0, 3) + Me.TextBox4.Value '//수량 업데이트
GoTo aa:
End If
End If
Loop While firstaddress <> rngTemp.Address
Call 데이터추가
End If
End If
aa:
End Sub
"텍스트박스에 입력한내용이 행방향으로,A4,B4,C4 또A5,B5,C5 이련식으로
3개가 일치하면 일치하는 행의바로옆(D4 혹은 D5)에 수량이 입력되고"
란 부분이 애매한데...
그러한 경우는 기존의 수량에 입력한 수량을 더하는 것으로 이해했습니다.
첨부파일 참고하세요.
건투를...
==============[ist공원님 글에 대한 답변입니다]==============
|
|