본문 바로가기

전체 글62

[Regex] 지번 및 도로명 주소 정규식 지번 주소 (번지 또는 산)[가-힣A-Za-z·\d~\-\.]{2,}(시|도)\s([가-힣A-Za-z·\d~\-\.]{1,}(시|군|구)\s)?([가-힣A-Za-z·\d~\-\.]{1,}(읍|면)\s)?([가-힣A-Za-z·\d~\-\.]{1,}(동|리)\s)?(|(\d{1,}-?\d{1,}(번지)|((산)\d{1,}-?\d{1,}))  도로명 주소[가-힣A-Za-z·\d~\-\.]{2,}(시|도)\s([가-힣A-Za-z·\d~\-\.]{1,}(시|군|구)\s)?([가-힣A-Za-z·\d~\-\.]{1,}(시|군|구)\s)?([가-힣A-Za-z·\d~\-\.]{1,}(읍|면)\s)?([가-힣A-Za-z·\d~\-\.]{1,}(로|길)\s)?[가-힣A-Za-z·\d~\-\.]{1,}?\s?\d{1,}-?\.. 2024. 4. 29.
[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.
[원격 데스크톱 연결] Windows 원격 설정 및 포트 변경하기 ※ 주의 ※ 아래 사항들은 원격으로 연결되고자 하는 PC에서 설정해주어야 한다. 원격 연결을 시도하는 PC 설정과는 관련이 없다. 1. Windows 시스템 속성 설정 단축키(Win+R) 로 실행창을 열고 'sysdm.cpl' 을 입력한 뒤 확인 버튼 클릭한다. 시스템 속성 창에서 원격 테스크톱 영역의 '이 컴퓨터에 대한 원격 연결 허용' 체크박스를 선택한다. '네트워크 수준 인증을 사용하여 원격 데스크톱을 실행하는 컴퓨터에서만 연결 허용(권장)' 은 원격 접속을 시도하는 PC와 원격으로 연결되는 PC의 네트워크 망이 다를 경우 반드시 체크해제해야 연결이 가능해짐으로 주의🤗 '적용' 버튼 클릭 후 '확인' 버튼 클릭하여 설정한다. 2. Windows Defender 방화벽을 통해 앱 또는 기능 허용 설정.. 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.

티스토리툴바