mod2 [기초방] VBA 100제 #93 [ 엑셀 테이블 변환 ] 테이블 변환은 기초방 처음부터 많이 풀어봤던 문제이다. 복습의미로 풀어보았다.더보기Option Explicit ' 변수 선언을 강제하여 오류를 예방함Sub 기초방93() ' 변수 선언: 데이터 범위와 개별 셀을 위한 변수 Dim rngAll As Range, rngA As Range ' C5:I15 범위를 rngAll에 설정 (데이터가 포함된 범위) Set rngAll = [C5:I15] ' P5:R100 범위의 내용을 초기화 (이전 데이터 삭제) [P5:R100].ClearContents ' C5:I15 범위의 각 셀을 순회하며 처리 For Each rngA In rngAll ' P열의 마지막 행에 해당 학생의 이름(B열 값.. 2024. 10. 20. [VBA] 신용카드 번호 검증하기 어디서 봤던...신용카드 번호의 규칙(?)... 어설프게 숫자를 좋아하는 본인에게 이 녀석은 맛있는 간식이 될듯하여...코드를 만들어 보았다. 카드번호가 16자리 숫자가 있고 각 번호를 1부터 15까지 2와 1을 교차하면서 곱한다.. 여기서 만약 두자리가 넘어가면 십자리와 일자리를 더한다. 이렇게 구한 값들을 1부터 15까지 더한 후 그값을 10으로 나눈다.... 여기서 나머지가 0이면 마지막 값과 계산한 값을 일치여부를 보면되고, 나머지가 0이 아니면 계산한 값을 10에서 뺀 후 그 값과 마지막 값의 일치 여부를 확인하면 된다. 여기서 사용한 코드는 1. 정규식 2. IIF 3. Evaluate 을 어떻게 사용했는지 살펴보길 바란다... 그럼 휘이익 2021. 11. 22. 이전 1 다음
