본문 바로가기

Haja157

[VBA_파일통합] 폴더속 파일 통합하기 폴더속 엑셀 파일들을 [통합]시트에 합치는 작업을 하려고 한다. 유의해야 할것은 각각의 파일들에서 헤더값들은 중복이 됨으로 헤더값을 제외한 DATA 영역의 값만 가져오는것이 관건이다. '= 헤더값을 제외한 내용부분 Set srcRange = ActiveSheet.UsedRange.Rows("2:" & ActiveSheet.UsedRange.Rows.Count) 이렇게 하면 헤더값이 아닌 2행부터 데이터가 있는 값들을 가져올 수 있기 때문에 헤더중복을 피할 수 있다. 더보기 Option Explicit Sub 파일통합() Dim srcRange As Range Dim destRange As Range Dim str$ Dim n& Dim Strpath$, Filename$ Sheets("통합").[a2:i1.. 2024. 3. 16.
[GAS] 데이터유효성검사 [ newDataValidation ] 스프레드시트에서 일정영역의 데이터 값의 원하는 기준에 부합하는지 확인하는 스크립트이다. function validateMySpreadsheet(){ let cell = SpreadsheetApp.getActive().getRange('B1:B8'); // 영역설정 let rule = SpreadsheetApp.newDataValidation() // 유효성 검사 설정 .requireNumberBetween(1,800) // 허용 데이터 범위 .setAllowInvalid(false) // 허용 X .setHelpText('Number Must be between 1 and 800') // 경고문구 .build(); // 실행 cell.setDataValidation(rule); // 셀에 적용 } 이상 .. 2024. 3. 14.
[심화방] VBA_심화_100제 #21 [ 서울시 상권분석 크롤링 ] 회사 업무중에 서울시 상권분석을 하기 위해 참조한 사이트를 소개하려고 한다. 서울시 상권분석 서비스 (seoul.go.kr) 서울시 상권분석 서비스 Chrome, Microsoft Edge, Safari등 타 브라우저 이용 부탁드립니다. 이 브라우저는 서비스 지원이 곧 종료되어 최적화된 서비스 제공을 위해 Chrome, Microsoft Edge, Safari 등 타 브라우저로 서비스 이용 부탁드 golmok.seoul.go.kr 이 사이트에서 [지역·상권별 현황] 탭에 대해서 보려고 한다. 이 사이트는 몇개의 조건 검색으로 Json형태로 사이트에서 뿌려주는데 반응도 빠르다. 허나 한번에 하위메뉴를 여는 방법이 없고, 엑셀이나 다른방식으로 데이터를 다운받을 수 없어 이것을 재 가공하기 위해서는 일일이 긁.. 2024. 3. 12.
[365리뷰] 날짜추출하기 [feat. 서랍님] https://www.youtube.com/watch?v=e2E87OeceBM 오늘은 서랍님 영상중 [텍스트에서 자동날짜인식] 을 리뷰하기로 하겠다. =LET( →step1, "각 셀의 단어들을 모두 행으로분리한후 숫자만 결합해라", q,CONCAT(IFERROR(--MID(D2,SEQUENCE(LEN(D2)),1),"")), →step2, "각 셀의 단어들을 모두 행으로분리한후 에러가 발생한것을 공백으로 연결한후 트림으로 공백을 분리후 하이픈으로 연결해라", _d,--SUBSTITUTE(TRIM(CONCAT(IFERROR(--MID(D2,SEQUENCE(LEN(D2)),1)," "),""))," ","-"), →step3, "전체문자의 길이가 4개인 경우", _d4,IF(((--LEFT(q,2)>=1).. 2024. 3. 6.