OfficeTutor.com
배움터 나눔터 교육센터 오튜장터
 통합검색  
  Home > 나눔터 > 엑셀 > 묻고답하기
엑셀
워드
액세스
파워포인트
아웃룩
프런트페이지
인포패스
원노트
비지오
쉐어포인트
포토드로우
퍼블리셔
오피스공통
MVP 안내
MVP 명예의 전당
MVP 카페

 

 

 

 
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 박순기 (cutebadboy)

추천:  0
파일:     창고이동 - VBA.xls (48.5KB) 조회:  71
제목:   엑셀 VBA 다중조건 검색
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전(95,97,2000,xp,2003,2007):

* 아래줄에 질문을 작성하세요 >>

창고이동 분류 vba로 만들고있습니다.

F열(분류) 에서 정상 이면 H열(창고) 에 1번 표시
불량이면 2번, 폐기면 3번
식으로 분류를 해주고 있습니다.

만약 품목명에 "사과" 와 분류가 "정상"이면 1번을 표시해주고 싶습니다.

도움 부탁드립니다.

Option Explicit
Sub Search_Character()
    Dim rngAll As Range
    Dim rngTarget As Range
    Dim rngC As Range
    Dim oldTime As Single
   
    Application.ScreenUpdating = False
    oldTime = Timer
    Set rngAll = Range([F3], Cells(Rows.Count, "F").End(3))
    Set rngTarget = Range([H3], Cells(Rows.Count, "H").End(3))
    rngTarget.Clear
   
    For Each rngC In rngAll
        If InStr(rngC.Value, "정상") > 0 Then
            rngC.Offset(0, 2).Value = "1"
        ElseIf InStr(rngC.Value, "불량") > 0 Then
            rngC.Offset(0, 2).Value = "2"
        ElseIf InStr(rngC.Value, "폐기") > 0 Then
            rngC.Offset(0, 2).Value = "3"
        ElseIf InStr(rngC.Value, "반품") > 0 Then
            rngC.Offset(0, 2).Value = "4"
        ElseIf InStr(rngC.Value, "반송") > 0 Then
            rngC.Offset(0, 2).Value = "5"
        
        
        
        Else
            rngC.Offset(0, 2).ClearContents
        End If
    Next rngC
   
    Set rngAll = Nothing
End Sub
 
[불량 게시물 신고]  
조삿갓링크 찾아가서 잘 공부해 보시면
InStr 함수를 쓰더라도 배열과 함께 사용하여
조건문을 간단히 하는 팁도 있네요.
05-16 (22:48)
삭제 ■신고
박순기답변 감사합니다.
현재 조건은 F열만 00이면 00 표시
추가하고싶은 조건은 C열과 F열이 00이면 00표시를 하고싶습니다.
05-17 (12:09)
삭제 ■신고
조삿갓점점 이상합니다...?
C열의 코드는 D열과 관련 있는 것 아닌가요?
C3이 1인 것은 분류(F3)가 정상이어서가 아니고(우연의 일치?)
품목명(D3)이 사과여서 그런 게 아닌가요?

그러면 품목명과 분류에 따라 창고번호가 분류되어야 한다면
경우의 수가 현재 데이터 상태로 보아도 5*5 = 25인데, 창고 번호를 25개 만들어야 하나요?
그럼 창고번호를 1~25까지 일련번호로 할 것인지, 아니면 11, 12,..., 15, 21,... , 25, 31, ... , 55 등 코드식으로 할 것인지 먼저 결정해야 할텐데요?
05-17 (23:31)
삭제 ■신고
        
  

작성일 : 2018-05-16(22:30)
최종수정일 : 2018-05-16(22:30)
 
 
 
회사소개 | 이용약관 | 개인정보 처리방침 | 회원정보수정 | 교육신청 및 문의 | 이메일무단수집거부 위로

오피스튜터 블로그 오피스튜터페이스북 오피스튜터유투브
110-722 서울 종로구 세종대로23길 47, 601-74 ㈜오피스튜터 ☎1544-4102 대표이사 : 전경수
개인정보관리책임자 : 이희진(privacy@officetutor.com) 사업자등록번호 120-86-14501
통신판매업신고 2013-서울종로-0547
norton
Copyright ⓒ OfficeTutor.com 이 페이지의 저작권은 ㈜오피스튜터와 콘텐츠 제공자에게 있습니다. 무단 복제를 금합니다.
Microsoft 및 Office 로고는 미국, 대한민국 및/또는 기타 국가에서의 Microsoft Corporation 등록 상표 또는 상표입니다.