개발노트/VBA4 [VBA] AutoFilter 기능으로 조건에 해당하는 데이터 필터링 Function filterData() On Error GoTo RESULT Application.ScreenUpdating = False '업데이트 방지' Application.DisplayAlerts = False '팝업 무시' Sheets(1).Select Set rawData = Sheets(1).UsedRange '데이터 추출하고자 하는 시트' '숨기기 취소' Cells.EntireColumn.Hidden = False '필터 적용되어있는 경우, 필터 해제' If ActiveSheet.AutoFilterMode Then ActiveSheet.UsedRange.AutoFilter End If '아래 조건에 해당하는 시트 데이터 필터링' With rawData .AutoFilter 7, "법정·필수.. 2024. 4. 4. [VBA] 달력 만들기 Function InsertData() On Error GoTo RESULT Application.ScreenUpdating = False '업데이트 방지' Application.DisplayAlerts = False '팝업 무시' Dim clipboard As Object Dim str As String Dim arr() As String Dim InsertDate As Date Dim count As Integer Set clipboard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") clipboard.GetFromClipboard str = clipboard.GetText '부서명 & 부서코드 & 검색시작일 & 검색종료일 & 폴더경로' .. 2024. 3. 29. [VBA] 클립보드 값 가져오기/넣기 Function ExtractData() On Error GoTo RESULT Application.ScreenUpdating = False '업데이트 방지' Application.DisplayAlerts = False '팝업 무시' Dim ClipboardGet As Object Dim str As String Set ClipboardGet = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") ClipboardGet.GetFromClipboard str = ClipboardGet.GetText '클립보드 값 str 변수에 할당하여 가져오기' Dim lastRow As Integer Dim ClipboardPut As Object Dim Data A.. 2024. 3. 29. [VBA] 시트를 개별 파일로 분리하기 Function divideFiles() On Error GoTo RESULT Application.ScreenUpdating = False '업데이트 방지' Application.DisplayAlerts = False '팝업 무시' Dim Clipboard As Object Dim str As String Dim sheetCount As Integer Dim wb As Workbook Dim sheetName As String Dim j As Integer Dim 원본시트 As String Set Clipboard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") Clipboard.GetFromClipboard str = Clipboard.Ge.. 2024. 3. 29. 이전 1 다음
