evaluate2 [VBA] Evaluate로 계산하기 Evaluate는 계산식을 조합하여 계산하기 위해서 쓰곤 한다. 1 2 3 4 5 Evaluate("A1*B2") 'Activeworksheet, A1 = 10, B2 = 2 'Result: 20 Evaluate("'Sheet1'!A1*'Sheet1'!A1B2") '"Sheet1", A1 = 10, B2 = 2 'Result: 20 Evaluate는 대괄호[]를 통해서도 표현이 되는데 이는 깔끔하고 보기는 좋지만 속도는 정석적인 표현 보다는 느리다. 1 2 3 4 5 6 7 8 9 'This is the same... Range("A1").Value '...as this [A1].Value 'This is the same... Range("A1:A2").Select '...as this [A1:A2].S.. 2022. 5. 4. [VBA] 신용카드 번호 검증하기 어디서 봤던...신용카드 번호의 규칙(?)... 어설프게 숫자를 좋아하는 본인에게 이 녀석은 맛있는 간식이 될듯하여...코드를 만들어 보았다. 카드번호가 16자리 숫자가 있고 각 번호를 1부터 15까지 2와 1을 교차하면서 곱한다.. 여기서 만약 두자리가 넘어가면 십자리와 일자리를 더한다. 이렇게 구한 값들을 1부터 15까지 더한 후 그값을 10으로 나눈다.... 여기서 나머지가 0이면 마지막 값과 계산한 값을 일치여부를 보면되고, 나머지가 0이 아니면 계산한 값을 10에서 뺀 후 그 값과 마지막 값의 일치 여부를 확인하면 된다. 여기서 사용한 코드는 1. 정규식 2. IIF 3. Evaluate 을 어떻게 사용했는지 살펴보길 바란다... 그럼 휘이익 2021. 11. 22. 이전 1 다음
