체인지이벤트3 [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] 조건부수식 대체하기 본인도 한때 엑셀로만 작업을 하였던 때가 있었다.. 시트가 고정되어 있고 그 값에서만 조건을 걸어야 한다면 간단하게 조건부 수식을 거는게 시간적으로 훨씬 유용하다. 허나 매월 매출일보가 달라져서 날짜가 계속 변경되어야 하고 자잘하게 계속 값이 변경된다면 그또한 월별 스트레스 일것이다. 코드 진행은 이렇다. 1. 오픈이벤트를 걸어서 파일이 열리면서 작업이 되도록 한다. 2. 각 시트에 월값이 변경이 되었을 때 역시 1번과 같은 이벤트가 발생한다. (연도 변경시는 이벤트가 발생하지 않아서 연도 변경 후 월을 다시한번 선택하여야 한다.) 그냥 둘다 변경되도록 수정하였다 3. 매출일보가 많아지면 시트를 순환하지 말고 가장 최신의 시트만 처리되도록 코드를 수정하도록 하는것을 권장한다. 4. 보통 매출일보의 날짜는.. 2022. 5. 24. [VBA] Alt + Enter 셀 텍스트 색상 변경하기 이전에 이런 글을 올릴적이 있다 https://1stminokingdom.tistory.com/56 [VBA] 글자색 바꾸기(feat. Instr/Characters) 오늘 해볼건 이런것이다. 색상 을 변경할 단어를 Inputbox로 입력받은 후 입력받은 단어를 색상은 빨강색 / Bold는 True하는 작업이다. 이 역시 막상 해보려면 좀 난감하기에 코드를 한번 쏴악 훝어보 1stminokingdom.tistory.com 이건 해당 영역을 순환하면서 값을 찾은 후 글자수를 계산하여 해당 글자만큼 색상을 입혀주기만 하면 된다. 아무 생각할 필요도 없다고 건방을 떨었다...와...근데 하루 반나절이 걸렸다. 물론 일하는 짬짬이 해결했지만 시간 상으론 하루 반나절이 맞다... 이전 글에 올렸던 글자색 변경 문.. 2022. 4. 20. 이전 1 다음
