유효성검사6 [기초방] VBA 100제 #64 [ 유효성 검사를 통한 총 수량 구하기 ] 엑셀에서 많이 나오는 문제이다. 각 키값을 조회하여 sumifs를 통해서 총 수량을 구하는 그런 문제.... 이런 문제를 VBA로 풀 사람이 있을까도 싶다..ㅋㅋㅋ 근데 언제는 그런 거 생각하고 문제를 낸게 아니므로...그냥 코드 리뷰를 해보려한다. 유효성 검사를 만들어가는 하위 프로시저가 핵심이 아닐까 한다. Sub Validation(rngX As Range) Dim rngV As Range Dim V Set rngV = Range(rngX(1, -5), rngX(1, -5).End(4)) V = Application.Sort(Application.Unique(rngV)) V = Join(Application.Transpose(V), ",") With rngX.Validation .Delete .Ad.. 2023. 9. 19. [VBA] 스핀단추와 유효성검사 오늘은 이것을 해보려고 한다. 대안 번호가 1번부터 30번까지 있는데 유효성 검사의 리스트는 0이 아닌 값 까지만 노출이 되어야 하며, 스핀단추의 최소값은 대안번호 1번이며, 그값보다 작아지면 안되며, 반대로 대안번호의 리스트의 최고값보다 값이 커지면 안된다. 이런 조건식의 값들은 이벤트로 처리하면 실시간적으로 원하는 구성이 가능하다. 더보기 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim rngX As Range: Set rngX = [b2] Dim rngAll As Range, rngA As Range Dim V(100), Vall Dim i& Dim V_split If Intersect(Targ.. 2023. 8. 29. [VBA] 다중 유효성검사 VBA를 처음 시작할 때쯤 엑사남님께서 엑셀로 이중유효성검사를 만드는 문제를 내셨다.. 물론 당시에 본인은 그 문제를 풀지 못했다. 그로부터 2년.. 엑셀로는 아니지만 VBA로 본인은 만족할 만한 다중 유효성검사를 완성하였기에 코드를 올린다. 최대한 깔끔하게 하고 간결하게 만들려고 하였는데.. 그놈의 '조금만 더' 가 또 장황한 코드가 되어버렸다. 부서와 직위는 사용자정렬을 사용하였으며, 성명의 오름차순정렬과 고유값을 위해 ArrayList를 사용하였다. 이벤트 프로시저는 야생마 같은 녀석이다. 프로시저 내에서 이벤트 구문을 중복하여 사용할 경우는 항상 이벤트의 시작과 끝을 잘 생각하여서 사용하여야 한다. 코드 진행은 이렇다. 1. 워크북 오픈이벤트로 부서 / 직위 / 성명에 유효성 검사를 모두 추가한다.. 2022. 5. 14. [VBA] 유효성검사 목록 중 기존 선택목록 제외 외부 유효성검사 목록에 관한 글에서 좀 더 완성도를 높히고자 추가 구문을 만들없다. https://1stminokingdom.tistory.com/103 [VBA] GetObject를 이용한 유효성 검사 이전글 유효성 검사 관련한 글을 보면 https://1stminokingdom.tistory.com/96 [VBA] 선택적 유효성검사 본인이 하는일 중에 특정 입력하는 부분은 매크로로 일괄 입력되도록 하였다. 허나 하루에 3-4건 정도 1stminokingdom.tistory.com 본인이 하는 일은 출고 확인서에 중복된 상품이 출고가 되면 안된다. 기존 출고확인서와 업데이트한 출고확인서를 크게 두영역의 변화를 말할 수 있는데 1. 유효성검사의 목록이 기존 선택한 항목은 제외하고 목록에 보여지게 된다. .. 2022. 5. 12. 이전 1 2 다음
