VBA280 [VBA] GetObject를 이용한 유효성 검사 이전글 유효성 검사 관련한 글을 보면 https://1stminokingdom.tistory.com/96 [VBA] 선택적 유효성검사 본인이 하는일 중에 특정 입력하는 부분은 매크로로 일괄 입력되도록 하였다. 허나 하루에 3-4건 정도 수정을 해야 하는 업무가 발생한다. 그냥 수기로 써도 되지만 만약 재고 리스트와 이름이 1stminokingdom.tistory.com 현재 파일에서 영역을 이름정의 하여 유효성검사 목록에 추가하는 것을 해보았다. 이번에 해볼것은 제품가격이라는 파일에서 제품가격들을 끌어와서 제품출고 확인서에 값들을 도출하는 것을 해보도록 하겠다. 이 코드를 작성하게 된 이유는 이렇다. 처음에는 제품가격이라는 DB파일에서 Vlookup으로 연결하여 제품출고확인서를 출력하였는데, 이게 연결이.. 2022. 5. 11. [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] 원본과 비교하여 같은 단어들을 강조해라 오늘도 같은 오픈 챗 크루중 한분의 질문으로 시작하여 구문을 작성하게 되었다.. 아.SQL 공부해야 하는데 두번의 GG 선언도 필요없었다.. 역시 엑사남님은 명강사가 맞다.. 공부하기 싫어하는 학생을 어떻게는 자극하여 결국 공부를 하게 만드니.... 코드 진행은 이렇다.. 1. 두번의 정규식을 필요로 한다. 이유는 문장속에서 띄어쓰기와 언더바를 통해 각 단어들을 분리할것이다. 2. 분리된 단어들을 각 영역에 대입을 하여 단어들의 빈도수를 체크하게 될것이다. 3. 엑셀입니다 / 엑셀이라도 / 엑셀공부 / 엑셀 이렇게 있다고 하면 엑셀입니다(1) / 엑셀이라도(1) / 엑셀공부(1) / 엑셀(4) 이렇게 카운팅이 된다. 4. 결국 [엑셀]단어만 색상이 변경되게 된다. * 정말 중요한 구문은 이렇다... 원본.. 2022. 5. 4. [VBA] 구글 입사문제 풀이( 8이 몇번나오나요?) 엇..나도 구글 입사 가능한가.. 앗..나이가...ㅠ.,ㅜ Option Explicit Sub Haja_Google() Dim i&, Cnt& '= i 숫자만틈 반복할 변수 / Cnt 빈도수를 카운팅 할 변수 Dim Reg As Object: Set Reg = CreateObject("vbscript.regexp") '= 정규식 선언 Dim Mat As Object '= 정규식의 일치값을 담을 변수 With Reg .Pattern = "8" '= 정규식의 패턴은 숫자 8로 해라 .Global = True End With For i = 1 To 10000 '= 1부터 10,000까지 순환해라 If Reg.test(i) Then '= 숫자가 패턴과 일치하면 Set Mat = Reg.Execute(i) '= .. 2022. 4. 28. 이전 1 ··· 47 48 49 50 51 52 53 ··· 70 다음
