재고관리 VBA IsUnique 함수 숫자 비교 방법

VBA
작성자
새우튀김
작성일
2021-01-11 15:27
조회
51
오빠두님이 강의 하신 재고관리 강의를 보며 제 입맛에 맞게 수정하고 있습니다.

등록 및 수정 작업을 할때 수정, 등록할 제품 코드가 기존 데이터에 중복 여부를 판단하는 IsUnique 함수가

문자형식에서는 잘 작동하는데 숫자로만 이루어진 제품 코드에서는 동작하지 않고 중복이 되도 전부 True를

반환합니다.

 

아래 사용자지정수식을 어떻게 수정해야 할까요??

 

 

Function IsUnique(DB As Variant, uniqueVal, Optional ColNo As Long = 1, Optional Exclude) As Boolean

Dim endRow As Long
Dim i As Long

For i = LBound(DB, 1) To UBound(DB, 1)
If DB(i, ColNo) = uniqueVal Then
If Not IsMissing(Exclude) Then
If Exclude <> uniqueVal Then
IsUnique = False
Exit Function
End If
Else
IsUnique = False: Exit Function
End If
End If
Next

IsUnique = True

End Function
전체 4

  • 2021-01-12 04:42
    채택된 답변

    안녕하세요.

    숫자로 이루어진 제품코드를 관리하실 때에는 Unique 여부를 검색할 항목을 Clng(값) 이나 Cstr(값) 으로 숫자 또는 텍스트로 강제 변환한 뒤 고유값 여부를 확인해보세요. (현재 관리중인 DB 형태에 따라 Clng, Cstr 으로 변경해주시면 됩니다 ^^)

    제시해드린 답변이 도움이 되셨길 바랍니다. 감사합니다.


    • 2021-01-12 22:12

      감사합니당~~ 친절하게 답변해주셔서 저도 정신이 없네요 딴 질문 댓글을 여기다 달았네요,,,

      언젠가 저도 오빠두님처럼 엑셀 좀 잘했으면 좋겠어요!!


  • 2021-01-11 16:31

    홧팅


  • 2021-01-11 23:08

    해결 했어요,,,,

    변수를 기존에 있던 DB와 새로 SearchDB라는 변수를 만들고

    IF문 6개로 해결했어용


전체 2,080
번호 카테고리 제목 작성자 작성일 추천 조회
2072 기능/도구
New 셀에 수치있을때만 색깔, 테두리나오게 하는방법 (2) 답변완료
H.B | 11:49 | 추천 0 | 조회 17
H.B 11:49 0 17
2071 기능/도구
New 다중필터 (1)
un**** | 10:51 | 추천 0 | 조회 12
un**** 10:51 0 12
2070 VBA
New 웹크롤링 관련 문의사항
코코 | 10:31 | 추천 0 | 조회 13
코코 10:31 0 13
2069 함수/공식
New 엑셀 수식 아이디어 조언주시면 감사하겠습니다 (1)
막내야제법이구나 | 2021.01.17 | 추천 0 | 조회 31
막내야제법이구나 2021.01.17 0 31
2068 함수/공식
New 데이터 유효성 검사(입력범위 제한)을 일괄적으로 할 수 있는 방법이 없나요? (1)
증평에서온가나슈 | 2021.01.17 | 추천 0 | 조회 22
증평에서온가나슈 2021.01.17 0 22
2067 기능/도구
New 복잡한 수식값 자동채우기
jo2 | 2021.01.17 | 추천 0 | 조회 33
jo2 2021.01.17 0 33
2066 함수/공식
New 도와주세요! 초보에요ㅜㅜ (1)
소이 | 2021.01.17 | 추천 0 | 조회 25
소이 2021.01.17 0 25
2065 VBA
New 안녕하세요. 매크로 실행 관련입니다. 첨부파일 (1)
korail | 2021.01.17 | 추천 0 | 조회 27
korail 2021.01.17 0 27
2064 함수/공식
New 셀안의 숫자를 여러셀에 나오게 하는 분배 관련하여 재 문의를 드립니다. 첨부파일 (1)
엑셀초보 | 2021.01.17 | 추천 0 | 조회 29
엑셀초보 2021.01.17 0 29
2063 VBA
New VBA 특정 셀 문자내용에 따라 다른 셀이 변경되도록 가능하려면.. (5)
사가 | 2021.01.17 | 추천 0 | 조회 30
사가 2021.01.17 0 30
2062 함수/공식
New Today에서 년월까지 출력 후 범위에서 가장 가까운값 가져오는 공식이 필요합니다 첨부파일 (2)
yok | 2021.01.17 | 추천 0 | 조회 31
yok 2021.01.17 0 31
2061 문서서식
New 드롭다운(다중데이터) 세모 목록표시 조정 (2)
소이 | 2021.01.17 | 추천 0 | 조회 30
소이 2021.01.17 0 30
2060 함수/공식
New 비정형 데이터에서 특정 단어 추출 (1)
naver_6003227c2f81b | 2021.01.17 | 추천 0 | 조회 38
naver_6003227c2f81b 2021.01.17 0 38
2059 VBA
New 로그인강의를 보고 따라할려는데 마음대로 안되네요.... 첨부파일 (1)
iviolin**** | 2021.01.17 | 추천 0 | 조회 40
iviolin**** 2021.01.17 0 40
2058 VBA
New 매크로 저장 방법 관려해서 문의 드립니다 (2) 답변완료
엑셀초보 | 2021.01.16 | 추천 0 | 조회 28
엑셀초보 2021.01.16 0 28
2057 함수/공식
New 셀안의 숫자를 여러셀에 나오게 하는 분배 관련 문의 드립니다. (3) 답변완료
엑셀초보 | 2021.01.16 | 추천 0 | 조회 45
엑셀초보 2021.01.16 0 45
2056 함수/공식
New 셀 내용 합치기 관련 문의 (1)
유레카 | 2021.01.16 | 추천 0 | 조회 21
유레카 2021.01.16 0 21
2055 함수/공식
New 입사일 / 퇴사일을 활용하여 월말 인원 구하는 함수 (3) 답변완료
CX74B | 2021.01.16 | 추천 0 | 조회 42
CX74B 2021.01.16 0 42
2054
New '계획' 시트의 B열을 M열 처럼 만드는 함수 첨부파일
007 | 2021.01.16 | 추천 0 | 조회 42
007 2021.01.16 0 42
2053 VBA
New 메모장 출력 ExportText 함수 첨부파일 (1)
이하늘 | 2021.01.16 | 추천 0 | 조회 25
이하늘 2021.01.16 0 25
2052 함수/공식
New 성적관리 프로그램 관련 질문입니다~ 첨부파일 (2) 답변완료
최재형 | 2021.01.16 | 추천 0 | 조회 36
최재형 2021.01.16 0 36
2051 VBA
New 매크로 버큰 문의요청 첨부파일 (3) 답변완료
작은소녀 | 2021.01.16 | 추천 0 | 조회 47
작은소녀 2021.01.16 0 47
2050 VBA
New 리스트 박스 표시 형식 변경 (4) 답변완료
새우튀김 | 2021.01.16 | 추천 0 | 조회 44
새우튀김 2021.01.16 0 44
2049 VBA
New IMPORTHHTML 함수 추가기능 vba구현 (2)
이예본 | 2021.01.15 | 추천 0 | 조회 29
이예본 2021.01.15 0 29
2048 기능/도구
New 혹시 이모지 질문입니다. (1)
조민성 | 2021.01.15 | 추천 0 | 조회 44
조민성 2021.01.15 0 44
2047 기능/도구
New 메일머지에 사진 나오게 하는법 (1)
욕심없는성공v | 2021.01.15 | 추천 0 | 조회 37
욕심없는성공v 2021.01.15 0 37
2046 함수/공식
New 초보입니다ㅠ 호봉을 자동으로 구하고 싶어요~ (4) 답변완료
eggs**** | 2021.01.15 | 추천 0 | 조회 62
eggs**** 2021.01.15 0 62
2045 함수/공식
년도별 금액평균을 구하고 싶어요 첨부파일 (1)
DDD | 2021.01.15 | 추천 0 | 조회 52
DDD 2021.01.15 0 52
2044 함수/공식
수량별 개수 곱합 후 합계금액 구하기 첨부파일 (2) 답변완료
민준맘 | 2021.01.15 | 추천 0 | 조회 47
민준맘 2021.01.15 0 47
2043 VBA
시트 합치기는 나오는데 여러개 엑셀파일 통합은 어떻게 하나요? 첨부파일 (1)
wbyu**** | 2021.01.15 | 추천 0 | 조회 43
wbyu**** 2021.01.15 0 43