VBA맛집4 [심화방] VBA_심화_100제 #16 [ 소득세계산기] 오늘은 소득세 계산기를 만들어보려고 한다. https://incometax.calculate.co.kr/earned-income-tax-calculator 근로소득세 계산기 - 소득세 계산기 전체 공제대상 가족 중 7세 이상 20세 이하 자녀 수 : 0인 1인 2인 3인 4인 5인 6인 7인 8인 9인 10인 11인 incometax.calculate.co.kr 사이트에서 필요한 내용을 선택해서 값을 넣으면 계산해주는 방식이다. 더보기 Sub 소득세계산기() Dim Sel As New Selenium.ChromeDriver Dim rngAll As Range Dim rngA As Range Dim Reg As Object: Set Reg = CreateObject("vbscript.regexp") '= .. 2023. 4. 4. [기초방] VBA 100제 #29 [ 폰트처리하기 ] 이번 문제는 각각의 셀안에 모든값이 Bold 처리 되었거나, 일부만 Bold 처리 되었을 때, 이를 모두 Bold처리하고 노란색 음영을 주는 29번 문제와 영역의 모든 값을 병합한 후 29에서 처리한 Bold 영역에 빨간색과 Bold 처리하는 문제이다. 셀의 폰트 컬러가 아닌 셀안에 특정 단어의 컬러에 변화를 주려면 Characters구문을 알아야 한다. 전에 비슷한 문제를 낸 적이 있다. https://1stminokingdom.tistory.com/56 [VBA] 글자색 바꾸기(feat. Instr/Characters) 오늘 해볼건 이런것이다. 색상 을 변경할 단어를 Inputbox로 입력받은 후 입력받은 단어를 색상은 빨강색 / Bold는 True하는 작업이다. 이 역시 막상 해보려면 좀 난감하기에.. 2023. 2. 7. [기초방] VBA 100제 #25 [ 병합셀 다루기 ] 병합셀을 다루는 구문이다. 병합셀은 딱 두 개만 알아두면 된다. If rngX.MergeCells Then rngX.Next.Resize(rngX.MergeArea.Count, 1) = rngX if rngX.MergeCells : 병합된 셀이니 병합이면 이렇게 병합이 아니라면 이렇게.... MergeArea.Count : 병합된 영역의 크기 이 두개를 모르면 맨땅에 헤딩각!!! 더보기 Option Explicit Sub 기초방25() Dim rngX As Range: Set rngX = [c7] Dim rngM As Range Dim R& Dim cnt&: cnt = 1 Do Until IsEmpty(rngX) '= 병합된 셀들을 순환 If rngX.MergeCells Then rngX.Next.Res.. 2023. 2. 2. [기초방] VBA 100제 #24 [ 멀티 필터링 ] 이번 문제는 본인이 의뢰받은 일중에서 계속적으로 필터링을 해야 하는데 그때마다 필터의 설정 / 해제를 해준는것이 불편하여 사용하고 있던 필터링 문제를 착안하여 문제를 만들어 보았다. 역시 사용된 것은 이벤트 구문 + 필터링으로 노력한거에 비해 뽀대(?) 뿜뿜인 녀석이다. 실무에 활용하기 바란다. 기초방 구문은 익숙하지가 않아서 그렇지 그 원리를 알면 코드를 이해하거나 활용에 대해서는 각자의 코딩 지식 수준에 따라 그 스펙트럼이 충분히 더 넓어지리라 예상한다. 구문 진행은 이렇다. 더블클릭이벤트로 영역안에서 더블 클릭하면 자동 필터가 설정 또는 해제된다. 체인지 이벤트는 이벤트 구간의 값의 변화에 따라 포함 / 일치 / 이상 / 이상 순으로 체인지 이벤트를 설정하였다. On Error Resume Next.. 2023. 2. 1. 이전 1 다음
