본문 바로가기

전체 글

[엑셀VBA] 파일 목록(리스트) 만들기(Dir 함수) 안녕하십니까 춤추는초코칩입니다. 업무 중에 필요한 엑셀VBA를 기록하고 있습니다. 오늘은 폴더 내에 파일 목록과 파일 갯수를 가져오는 매크로를 만들어 보겠습니다. Temp 폴더안에 4개 엑셀 자료가 있습니다. 해당 경로의 파일 목록과 파일 갯수를 가져오는 매크로입니다. Sub FileList() Dim dirPath As String Dim fileName As String Dim i As Integer dirPath = "C:\Temp\" '폴더 경로 fileName = Dir(dirPath & "*.*") '첫번째 파일명 가져오기 Do While fileName "" i = i + 1 Range("A" & CStr(i + 1)).Value = fileName fileName = Dir() '다음 파일.. 더보기
[엑셀VBA] Open, Close 파일 열기, 닫기 안녕하십니까 춤추는초코칩입니다. 업무 중에 필요한 엑셀VBA를 기록하고 있습니다. 오늘은 엑셀을 파일을 열고 닫는 매크로를 만들어 보겠습니다. 이 기능을 활용하면, 엑셀에서 다른 엑셀 파일을 편집할 수 있습니다. 우선 파일 열기 매크로입니다. '예제1-1. 파일열기 Sub openExcel() Application.Workbooks.Open Filename:="C:\Users\cysti\Desktop\openExcel\sampleA.xlsx" End Sub 같은 폴더 내에서 파일이 있다면, 아래와 같이 작성하셔도 됩니다. '예제1-2. 같은 폴더 안에서 파일열기 Sub openExcel() Application.Workbooks.Open Filename:= ThisWorkbook.Path & "\samp.. 더보기
통계DB관리시스템 이용자교육 실습 예제 0. 예제 취합파일 1. 단위 수정 2. 통계표명 수정, 분류값 수정 3. 항목 추가, 삭제 4. 분류값 추가, 분류레벨조정 5. 신규통계표 생성 더보기
[엑셀VBA] Save, SaveAs 저장하기 안녕하십니까 춤추는초코칩입니다. 업무 중에 필요한 엑셀VBA를 기록하고 있습니다. 오늘은 엑셀을 저장하는 매크로를 만들어 보겠습니다. 이 기능을 활용하면, 특정 제목으로 저장하거나 특정 위치에 저장할 수 있습니다. 우선 가장 기본적인 저장부터 시작하겠습니다. 저장하기 매크로는 아래와 같습니다. '예제1. 저장하기 Sub saveExcel() ActiveWorkbook.Save End Sub 다만, 코드가 포함되어 있어서, 명령문을 실행하면 아래와 같은 메시지 창이 팝업 됩니다. 가볍게 무시해주셔서도 상관없을 거 같습니다. 해당 명령문을 실행하면 기본으로 설정되어 있는 폴더에 "통합문서.xlsx"가 저장됩니다. 두번째는 "예제2. 원하는 파일명으로 저장하기"라는 제목으로 파일을 저장해 보겠습니다. 이때에는.. 더보기
[엑셀VBA] Join, 문자열 합치기 안녕하십니까 춤추는초코칩입니다. 업무 중에 필요한 엑셀VBA를 기록하고 있습니다. 지난 시간에 "Split, 문자열 나누기"를 했습니다. 오늘은 "문자열 합치기" 혹은 "텍스트 합치기" 기능입니다. 엑셀 VBA의 Join 함수는 배열의 항목을 결합하여 하나의 문자로 반환합니다. 함수의 구문 Join ( SourceArray, [Delimiter] ) 함수의 인수 SourceArray 필수 결합하려는 문자열 Delimiter 선택 각 문자열을 구분하는데 사용되는 구분 기호로, 생략하면 공백(" ")으로 설정 '예제1. 문자열 합치기, 구분자 기본설정(" ") Sub TextJoin() ' Join together the strings "John", "Paul" and "Smith". Dim fullName.. 더보기
[엑셀VBA] 목차 만들기(Sheet Hyperlink) 안녕하십니까 춤추는 초코칩입니다. 업무 중에 필요한 엑셀 VBA를 기록하고 있습니다. "시트명을 클릭하면, 해당 시트로 이동하는 목차" 엑셀을 다루다 보면, 가끔 몇십 개의 시트가 하나의 파일에 있는 경우가 있습니다. 목차도 없고, 목차가 있다 하더라도 시트 링크가 없을 때에는 감정이 올라오기도 합니다. 몇 개 정도야 hyperlink를 사용하기도 하지만 10개가 넘어가고 20개가 넘어가면 반복적인 일에 피로감을 느낍니다. 그래서 "시트명을 클릭하면, 해당 시트로 이동하는 목차"를 만들어 보겠습니다. 우선 아래와 같은 파일이 있다고 가정하겠습니다. 첫 번째 시트는 목차 시트입니다. 그리고 두 번째 시트부터 다섯번째 시트까지 4개 시트에 대한 목록을 만들어 보겠습니다. 첫번째 방법. 직접 링크 만들기 A2.. 더보기
30. [엑셀] 꺾은선 그래프 0, 빈 셀 연결하기 작성일자: 2020-04-20 작성자: 춤추는초코칩 작성버전: 엑셀 2016 작성내용: 꺾은선 그래프 0, 빈셀 연결하기 꺾은선 그래프를 사용할 때, 0이나 누락된 자료(빈 셀)이 있으면 보기가 싫습니다. 그래서 0이나 누락된 자료(빈 셀)를 무시하고 그리는 방법에 대해 알아보겠습니다. 다음 자료는 2018년 1월부터 2019년 12월까지 저의 누적 배당금 자료입니다. 임의로 2018년 6월 자료는 0으로, 12월 자료는 빈 셀로 표시했습니다. 1단계. 꺾은선 그래프 그리기 1. 데이터 선택 2. 삽입[탭] > 차트[그룹] > 꺾은선 그래프 2단계. 그래프 꾸미기- 데이터 레이블 추가 1. 그래프에서 값 선택 후 오른쪽 클릭 2. 데이터 레이블 추가 3. 데이터 레이블 선택 후 데이터 레이블 서식 4. .. 더보기
[엑셀VBA] 셀 선택, 범위 선택(Cells, Range, Offset) 안녕하십니까 춤추는초코칩입니다. 업무 중에 필요한 엑셀VBA를 기록하고 있습니다. 오늘은 "셀을 선택"하거나 "범위를 선택"하는 방법입니다. 엑셀 VBA의 Range, Cells, Offset 을 통해서 셀과 범위를 표현할 수 있습니다. 아래의 코드들은 표현방식은 조금씩 다르지만 동일한 결과를 보여줍니다. '1. 셀선택 'A1을 선택합니다. Sub SelectCells1() Cells(1, 1).Select Range("A1").Select End Sub '2. 범위선택 'A1부터 B2까지 4칸을 선택합니다. Sub SelectCells2() Range("A1:B2").Select Range("A1", "B2").Select Range(Cells(1, 1), Cells(2, 2)).Select End S.. 더보기

티스토리툴바