Tip19 [Tip] VBA 조건부 서식에 대한 고찰 엑셀에서 조건부 서식을 통해서 코드를 관리하면 너무나 편하고 관리하는 측면에서도 좋지만, 코드가 추가로 들어오거나 변동이 되었을 때 조건부 서식이 처음에 세팅한것처럼이 아닌 이상하게 변동이 되는 것을 경험하였을 것이다. 오늘은 이 조건부 서식또한 VBA에 관리 할 수 있는 코드들을 정리해 보려고 한다. 1. 값이 0 이상인 셀에 초록색 배경색 적용하기 Range("A1:A10").FormatConditions.Add Type:=xlExpression, Formula1:="=$A1>=0" Range("A1:A10").FormatConditions(1).Interior.Color = RGB(0, 255, 0) 2. 값이 0 이하인 셀에 빨간색 배경색 적용하기 Range("A1:A10").FormatCondi.. 2023. 2. 23. 텍스트 파일로 바탕화면에 저장하기 더보기 Option Explicit Sub ExportToDesktop() Dim FileNum& Dim DesktopPath$ Dim FilePath$ DesktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") FilePath = DesktopPath & "\example.txt" FileNum = FreeFile() Open FilePath For Output As #FileNum Print #FileNum, "ExaNam world!" Close #FileNum End Sub 2023. 2. 16. 시트 복사시 이벤트 삭제하기 이벤트가 걸린 시트를 복사할 때 복사된 시트에도 이벤트가 걸려서 시트들 끼리 이벤트가 꼬일 수도 있기에 복사된 시트의 이벤트를 제거해 주는 편이 낫다. 한달에 한번 또는 몇일에 한번 이라면 그때마다 시트 이벤트를 삭제하면 되겠지만, 하루에도 수십번 이일을 반복한다면 우리 VBA맨들은 참지않지!! 본인 검색 능력으로는 살짝 모자라서 같은 방 크루들에게 질문을 했고, 이에 시훈아빠님의 성스러운 응답이 있어 소개한다. sheets.copy after:=sheets(sheets.count) str = Activesheet.CodeName With ThisWorkbook.VBProject.VBComponents(str).CodeModule .DeleteLines 1, .CountOfLines End With| 코.. 2023. 2. 4. 엑사남들의 크리스마스 2022. 12. 25. 이전 1 2 3 4 5 다음
