에그드롭

분양 아파트 공정률 확인하기

에그드로퍼 — Wed, 31 May 2023 08:21:25 +0900

포스트 목차.

01. 공정률
02. HUG-i 앱을 통한 공정률 확인

본 포스트에서는 건설 중인 아파트의 공정률을 확인하는 방법을 소개한다.

01. 공정률

분양아파트가 입주 예정일정에 정확하게 입주가 가능할 것인지는, 분양을 받은 사람들한테는 중요한 요소가 된다. 이사계획/자녀 전학문제 등 여러가지가 입주 시점에 걸려 있기 때문이다.

아파트 건설에 필요한 여러 작업들을 종류별로 나눈 후에 해당 항목에 대한 가중치를 줘서, 일의 진행 정도를 계산 한 값이 공정률이다. 공정률이 100%면 아파트가 완성되었다는 것을 의미한다.

공정률 50%에 못미칠 경우, 중도금 납부 일정이 뒤로 밀리기도 한다.

따라서 아파트를 분양받은 사람들은 공정률을 확인할 필요가 있다.

02. HUG-i 앱을 통한 공정률 확인

공정률을 확인할 수 있는 방법은 주택도시보증공사의 HUG-i 앱을 이용하는 것이다.

(1) 설치 방법

안드로이드: 플레이스토어 접속 > 주택도시보증공사로 검색 > HUG-i 설치

iOS: 앱스토어 접속 > 주택도시보증공사로 검색 > HUG-i 설치

(2) 공정률 확인 방법

- HUG-i 앱을 실행한다.

- 내아파트공사정보를 클릭하여 '내 아파트 공사정보' 메뉴로 들어간다.

- 지역 선택을 하거나 검색어를 입력하여 확인하고자 하는 단지를 찾는다.

- 찾고자 하는 아파트 단지의 현재 공정률을 확인할 수 있으며, 상세 보기를 클릭하면 더 자세한 정보를 볼 수 있다.

- 상세 정보에서 밑으로 스크롤을 내리면 월별 공정률도 확인이 가능하다.

- 또한 현장 사진도 확인이 가능하다.

특례보금자리론 금리에 대해서

에그드로퍼 — Mon, 29 May 2023 18:07:34 +0900

포스트 목차.

01. 고정금리
02. 우대금리
03. 일반적인 대출의 금리를 알아보는 방법

본 포스트에서는 특례보금자리론의 금리에 대해 알아본다. 특례보금자리론의 금리는 고정금리와 우대금리로 구성된다. 특례 보금자리론에 대한 포스팅은 다음 링크를 참고하자.

https://eggdrop.tistory.com/132

특례 보금자리론 신청 조건

포스트 목차. 01. 특례 보금자리론 상품 설명 02. 신청대상 03. 대출 요건 04. 상품구조 05. 사용용도 06. 심사시 제출 서류 01. 특례 보금자리론 상품 설명 특례보금자리론: 무주택자 또는 1주택자가

eggdrop.tistory.com

01. 고정 금리

대출기간을 길게 설정할 수록 금리가 올라간다.

특례 u-보금자리론은 한국주택공사 홈페이지를 통해 신청 가능한 보금자리론이다.

특례 t-보금자리론은 SC제일은행과 기업은행에 직접 방문하여 대면신청할 수 있는 보금자리론을 이야기한다. 특례 u-보금자리론에 비해 금리가 저렴하다.

02. 우대금리

(1) 아낌e

전자 약정 및 등기 시 우대금리 0.1%를 제공한다. (하나, 국민, 부산, 신한, 우리, 농협은행 해당), 이 우대금리 정책에 의해 특례 u-보금자리론 이용 후 전자 약정 및 등기를 하면 특례 t-보금자리론과 동일한 금리를 받을 수 있다.

(2) 신혼가구

신혼가구의 경우 우대금리 0.2% 를 제공한다. 단 다음과 같은 조건이있다.

- 주택가격 6억원 이하

- 부부합산 연소득 7천만원 이하

- 주택면적 85㎡ 이하

- 혼인관계증명서상 혼인신고일이 신청일로부터 7년 이내(결혼 예정 가구 포함)

(3) 저소득 청년

저소득 요건을 만족하면 우대금리 0.1%를 제공한다. 단 다음과 같은 조건이 있다.

- 주택가격 6억원 이하

- 소득요건 부부합산 6천만원 이하

- 연령 만 39세 이하

(4) 다자녀가구

미성년 자녀 3명 이상인 다자녀 가구의 경우 우대금리 0.4%를 제공한다. 단 다음과 같은 조건이 있다.

- 주택가격 6억원 이하

- 부부합산 연소득 7천만원 이하

(5) 한부모가구, 장애인가구, 다문화가구

위의 사회적 배려층에 대해서는 우대금리 0.4%를 제공한다. 단 다음과 같은 조건이 있다.

- 주택가격 6억원 이하

- 부부합산 연소득 6천만원 이하

- 주택면적 85㎡ 이하 (수도권을 제외한 도시지역이 아닌 읍 또는 면의 경우 100㎡ )이하

(6) 미분양관리지역 내 미분양 아파트 입주자

서울/인천/경기도를 제외한 미분양 관리 지역에 위치한 미분양 아파트에 입주하는 가구에 대해서는 우대금리 0.2%를 제공한다. 단 다음과 같은 조건이 있다.

- 주택가격 6억원 이하

- 부부합산 연소득 8천만원 이하

- 구입용도 (등기시점에서 3개월이 경과하지 않은 경우)

- 신청일 현재 무주택자

- 최초 수분양자 (분양을 최초로 받은 사람, 분양권을 매수한 사람은 제외)

03. 일반적인 대출의 금리를 알아보는 방법

특례보금자리론 외의 다른 대출의 금리를 알아보는 방법은 다음링크에서 소개한다.

https://eggdrop.tistory.com/107

주택담보대출금리 알아보는 방법

포스트 목차. 01. 은행연합회 홈페이지 바로가기 02. 대출 금리 조회 03. 대출 금리 조회 결과 본 포스트에서는 은행별로 주택담보대출 금리를 신용정보조회 없이 알아보는 방법을 소개한다. 신용

eggdrop.tistory.com

https://eggdrop.tistory.com/108

전세자금대출 금리 알아보는 방법

포스트 목차. 01. 은행연합회 홈페이지 바로가기 02. 전세 자금 대출 금리 조회 03. 전세 자금 대출 금리 조회 결과 본 포스트에서는 은행별로 전세자금대출 금리를 신용정보조회 없이 알아보는 방

eggdrop.tistory.com

싼 주유소 찾기

에그드로퍼 — Sun, 28 May 2023 12:30:13 +0900

포스트 목차.

01. Opinet 바로가기
02. Opinet 으로 지역에서 가장 싼 주유소 찾기
03. Opinet 으로 주변 주유소 검색
04. Opinet 으로 고급휘발유 파는 주유소 검색하기
05. Opinet 앱 설치하여 사용하기

본 포스트에서는 지역별로 가장 기름값이 저렴한 주유소를 찾을 수 있는 오피넷(Opinet) 사이트와 앱을 소개한다.

다음맵이나 네이버맵에서도 주유소에 대한 정보와 휘발유/경유 가격이 연동되어 있으나, 한국석유공사에서 직접 운영 중인 Opniet에 더 다양한 자료가 있다.

01. Opinet 바로가기

오피넷(Opniet)은 석유제품가격 조사/공개를 통한 거래의 투명성 및 소비자 가격 안정화를 위해 한국석유공사가 2008년 4월부터 운영하고 있는 유가정보 사이트이다.

Opinet 바로가기

02. Opinet으로 지역에서 가장 싼 주유소 찾기

위의 그림은 네이버 지도를 통해 주유소를 검색한 화면이다. 멀지 않은 거리에 있는 주유소들의 휘발유 가격이 가장 비싼 곳은 1659원, 저렴한 곳은 1489원으로 리터당 170원 차이나는 것을 확인할 수 있다.

Opinet을 통해서 가장 저렴한 주유소를 찾는 방법을 소개한다.

우리동네 싼 주유소 Top5 메뉴 사용하기

Opinet에 접속하면 첫 화면에서 우리동네 싼 주유소 Top5를 공개하고 있다.

- opinet 접속

- 우리동네 싼 주유소 Top 메뉴

오르쪽에 있는 우리동네 싼 주유소 Top 메뉴에서 지역을 선택해보자.

위의 그림은 지역을 용인시로 설정한 결과물이다. 휘발유가 가장 싼 주유소에 대한 정보를 알 수 있다.

03. Opinet으로 주변 주유소 검색하기

최저가 주유소를 찾더라도 그 주유소까지의 거리가 멀다면, 이동하는 데 사용하는 기름값이 더 드는 경우가 있을 수 있다. 따라서 주유소를 선택할 때는 현재 나의 위치와 주유소의 위치 사이의 거리도 중요한 선택 기준이 된다.

이런 경우 행정구역을 더 세세하게 나눠서 지역별 휘발유/경유 가격을 검색할 수 있는 직역별 싼 주유소 찾기 기능을 이용해보자.

- Opinet 메인 페이지에서 싼 주유소 찾기를 선택 후 지역별 메뉴를 클릭해보자.

- 검색 조건 입력 후 조회 하기

위의 메뉴에서 지역, 형태, 상표등을 지정한 후 조회 버튼을 누르면, 해당 지역에 있는 주유소의 리스트와 휘발유/경유 가격을 조회하는 것이 가능하다.

조회된 결과는 위와 같으며, 해당 주유소를 클릭하면 오른쪽 지도창에 주유소의 위치가 표시된다.

04. 고급휘발유 취급하는 주유소 찾기

고급 휘발유를 취급하는 주유소를 찾는 방법은 주변의 최저가 주유소를 찾는 방법과 크게 다르지 않다.

주유소 검색 후 위의 탭에서 고급 휘발유 탭을 클릭하면 된다.

고급 휘발유를 가장 싸게 취급하는 주유소가 검색된 결과이다.

05. Opinet 앱 설치하기

Opinet은 안드로이드 앱을 제공한다.

https://play.google.com/store/apps/details?id=com.lge.opinet&hl=ko&gl=US&pli=1

오피넷 - 싼 주유소 찾기 - Google Play 앱

스마트폰의 위치정보를 통해 주변의 주유소(충전소) 정보를 확인하고, 저렴한 가격의 주유소를 쉽고 빠르게 찾아 갈 수 있도록 도와 드립니다.

play.google.com

위의 링크를 통해 설치할 수 있으며, 사용방법은 웹과 동일하다.

아이폰 사용자는 애플 앱스토어에서 다음 링크를 통해 앱을 설치할 수 있다.

https://apps.apple.com/kr/app/%EC%98%A4%ED%94%BC%EB%84%B7-%EC%8B%BC-%EC%A3%BC%EC%9C%A0%EC%86%8C-%EC%B0%BE%EA%B8%B0/id373670219

‎오피넷 - 싼 주유소 찾기

‎오피넷 웹 사이트(www.opinet.co.kr )에서 제공하는 전국 주유소(충전소)의 판매가격정보를 스마트폰에서도 동일하게 이용하실 수 있습니다. 제품별 판매가격, 부가 서비스(세차, 셀프, 행사 등),

apps.apple.com

VBA로 동일한 형식의 보고서 여러 장을 만들어보자.

에그드로퍼 — Sat, 27 May 2023 19:44:21 +0900

포스트 목차.

01. 문제
02. 문제 해결 방법
03. 예제
04. 관련 포스트

01. 문제

누군가가 부탁한 문제이다. 심사위원회가 열리고 심사위원이 동일한 상황에서 특정 모델의 심사 결과표를 출력하는 엑셀파일을 만들어달라는 부탁이었다.

심사 결과표는 대략적으로 위와 유사한 형태이다.

그냥 만들어서 출력하면되는 일이지만, 심사해야할 모델이 많아서 저 페이지를 여러장 만들어야 하는 불편함이 있다고 한다.

심사 결과표는 모든 항목이 동일하지만, 접수번호와 모델명이 변경된다고 한다.

문제를 요약하면 다음과 같다.

1. 심사결과표를 여러장 출력해야됨

2. 심사결과표마다 접수번호와 모델명이 다름

3. 출력버튼 한번만 눌러서 여러 장의 심사결과표를 출력할 수 있어야 함

02. 문제 해결 방법

(1) 시트 구성

- 설정: 접수번호와 모델명이 들어갈 시트로 심사결과표 생성을 위한 버튼을 포함하고 있다.

- 템플릿: 심사표 양식이 들어갈 시트

- 심사결과표: 출력할 심사표들이 들어갈 시트

위와 같이 시트를 구성해보자.

설정 시트

템플릿 시트

(2) 심사 결과표 만들기

템플릿 시트에 들어갈 심사 결과표를 만드는 작업은 수작업이라고 볼 수 있다. 셀 높이, 셀 넢이, 셀 병합을 적절하게 활용하여 심사 결과표를 만들어 준다.

출력 > 미리보기를 이용하여 한 페이지에 적절하게 출력되는지 확인해보자.

(3) 시트 전체의 내용 지우기

심사 결과표 양식을 다 만들었으면, 템플릿 시트에 있는 양식을 심사결과표 시트에 붙여넣기 해야한다. 그 전에 심사결과표 시트의 내용을 모두 삭제 하는 작업이 필요하다.

Worksheets 객체의 Cells.Clear를 이용하여 시트 전체를 초기화할 수 있다.

1
2
3

    '심사결과표 시트 초기화
    Worksheets("심사결과표").Activate
    Worksheets("심사결과표").Cells.Clear

cs

위의 코드는 심사결과표를 시트를 초기화 한다.

(4) 셀의 너비 높이를 복사하기

심사결과표 시트에 템플릿 시트에 있는 심사결과표 양식을 복사하면, 내용은 복사가 되지만 행의 높이와 열의 너비는 복사가 되지 않는다.

따라서 행의 높이와 열의 너비를 복사하는 과정이 필요한다.

특정 열의 너비에 접근하기 위해서는 Columns.ColumnWidth 속성을 사용해야한다. 템플릿 시트의 1열의 너비에 접근하는 방법은 다음과 같다.

Worksheets("템플릿").Columns(1).ColumnWidth

특정 행의 높이에 접근하기 위해서는 Rows.RowHeight 속성을 사용해야 한다. 템플릿 시트의 1행의 높이에 접근하는 방법은 다음과 같다.

Worksheets("템플릿").Rows(1).RowHeight

템플릿 시트의 행의 높이와 열의 너비를 저장한 후, 심사결과표 시트에 행의 높이와 열의 너비를 적용해보자.

(5) 셀의 내용을 복사하기

심사결과표 시트에 템플릿 시트에 있는 심사결과표 양식을 복사하기 위해서는 copy와 paste 메소드를 사용하면 된다.

- 복사하는 과정

영역선택 -> copy 메소드 사용

- 붙여넣기 과정

영역선택 -> paste 메소드 사용

주의할 점은 copy 메소드는 Range 객체의 메소드이고, paste 메소드는 워크시트 객체의 메소드라는 점이다.

템플릿에서 영역을 선택 후 복사하는 코드는 다음과 같다.

1
2
3

    Worksheets("템플릿").Activate
    Worksheets("템플릿").Range(Cells(1, 1), Cells(30, 11)).Select
    Selection.Copy
Colored by Color Scripter

cs

심사결과표의 영역을 선택 후 붙여넣기하는 코드는 다음과 같다.

1
2
3
4

    
    Worksheets("심사결과표").Activate
    Worksheets("심사결과표").Cells(startRow, startCol).Select
    Worksheets("심사결과표").Paste

cs

03. 예제

이제 예제를 작성해보자.

예제는 다음과 같은 Sub 프로시저를 정의하여 사용하려고 한다.

서브 프로시저 1 (단추1_Click): 버튼을 클릭했을 때 실행되는 프로시저

서브 프로지저 2 (템플릿_페이지복사하기): 심사결과표에 들어갈 접수번호/모델명을 입력받아서, 템플릿 시트에 있는 양식을 복사한 후 심사결과표 시트에 있는 적절한 위치에 복사한다. 적절한 위치를 계산하기 위해 템플릿 시트에서 소용되는 행의 수와 지금 작업하는 심사결과표가 몇번째 표인지에 대한 정보를 함께 입력 받는다.

서브 프로시저3 (심사결과표_행높이_맞추기): 템플릿 시트의 행높이를 그대로 가져와서 심사결과표의 행높이를 맞춘다. 적절한 위치를 계산하기 위해 템플릿 시트에서 소용되는 행의 수와 지금 작업하는 심사결과표가 몇번째 표인지에 대한 정보를 함께 입력 받는다.

서브프로시저4 (심사결과표_열너비_맞추기): 템플릿 시트의 열너비를 그대로 가져와서 심사결과표의 열너비를 맞춘다. 여기서 출력되는 모든 심사결과표는 동일한 열너비를 갖기 때문에 해당 작업은 한번만 해주면 된다.

가장 핵심 역할인 서브 프로지서2의 코드는 다음과 같다.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

Sub 템플릿_페이지복사하기(applNo As Variant, modelNm As Variant, depth As Integer, index As Integer)
    '템플릿페이지에서 유효한 영역을 선택 후 복사한다.
    Worksheets("템플릿").Activate
    Worksheets("템플릿").Range(Cells(1, 1), Cells(depth, 11)).Select
    Selection.Copy
    
    '심사결과표 시트에서 복사할 영역의 주소를 구한다.
    startRow = (index - 1) * depth + 1
    startCol = 1
    
    '접수번호와 모델명이 들어갈 주소를 계산한다.
    appNoRow = 4
    modelRow = 9
    appNoCol = 3
    modelCol = 3
    
    appNoRow = appNoRow + (index - 1) * depth
    modelRow = modelRow + (index - 1) * depth
    
    '복사한 템플릿 시트의 내용을 심사결과표에 붙여넣기한다.
    Worksheets("심사결과표").Activate
    Worksheets("심사결과표").Cells(startRow, startCol).Select
    Worksheets("심사결과표").Paste
    
    '접수번호와 모델명을 해당 주소의 셀에 기입한다.
    Worksheets("심사결과표").Cells(appNoRow, appNoCol) = applNo
    Worksheets("심사결과표").Cells(modelRow, modelCol) = "(모델명: " & modelNm & ")"
 
End Sub
Colored by Color Scripter

cs

열너비와 행높이를 조정하는 서브프로세저의 코다는 다음과 같다.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

Sub 심사결과표_행높이_맞추기(depth As Integer, index As Integer)
    '행높이 저장을 위해 적절한 크기의 배열 사용
    Worksheets("템플릿").Activate
    Dim heightArray(100) As Integer
    
    '템플릿 시트의 행높이를 배열에 저장한다.
    For i = 1 To depth
        heightArray(i) = Worksheets("템플릿").Rows(i).RowHeight
    Next i
    
    '심사결과표 시트의 행 높이를 배열에 저장된 값을 기준으로 조정한다.
    Worksheets("심사결과표").Activate
    startRow = (index - 1) * depth
            
    For i = 1 To depth
       Worksheets("심사결과표").Rows(startRow + i).RowHeight = heightArray(i)
    Next i
End Sub
 
 
Sub 심사결과표_열너비_맞추기()
    '열너비 저장을 위해 적절한 크기의 배열 사용
    Worksheets("템플릿").Activate
    Dim widthArray(20) As Integer
    
    '템플릿 시트의 열너비를 배열에 저장한다.
    For i = 1 To 20
        widthArray(i) = Worksheets("템플릿").Columns(i).ColumnWidth
    Next i
    
    '심사결과표 시트의 열 너비를 배열에 저장된 값을 기준으로 조정한다.
    Worksheets("심사결과표").Activate
    For i = 1 To 20
       Worksheets("심사결과표").Columns(i).ColumnWidth = widthArray(i)
    Next i
End Sub
Colored by Color Scripter

cs

마지막으로 버튼을 클릭했을 때, 위의 프로시저들을 실행하는 메인작업을 담당하는 프로시저의 코드는 다음과 같다.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

Sub 단추1_Click()
    '입력한 데이터의 수 알아내기
    '첫번째 줄은 제목이기 때문에 2번째 줄부터 시작
    startRow = 2
    Worksheets("설정").Activate
    '마지막 데이터가 있는 줄 찾기
    endRow = Worksheets("설정").Cells(Rows.Count, 1).End(xlUp).Row
    '만들어야할 심사결과표의 수 구하기
    numOfPrints = endRow - startRow + 1
      
        
    '심사결과표 시트 초기화
    Worksheets("심사결과표").Activate
    Worksheets("심사결과표").Cells.Clear
    
    
    '템플릿 페이지의 열너비와 심사결과표 페이지의 열너비를 일치하게 설정한다.
    심사결과표_열너비_맞추기
    
    '만들어야 하는 심사결과표에 맞게 복사작업 반복하기
    For i = 1 To numOfPrints
        '설정 시트에 있는 접수번호와 모델명을 가져온다.
        Worksheets("설정").Activate
        applicationNo = Worksheets("설정").Cells(startRow + i - 1, 1)
        modelName = Worksheets("설정").Cells(startRow + i - 1, 2)
        '심사결과표의 행높이를 템플릿 시트의 행높이와 일치하게 설정한다.
        심사결과표_행높이_맞추기 depth:=30, index:=Int(i)
        '템플릿페이지를 복사한다.
        템플릿_페이지복사하기 applNo:=applicationNo, modelNm:=modelName, depth:=30, index:=Int(i)
    
    Next i
    
End Sub
Colored by Color Scripter

cs

설정 시트가 다음과 같을 때의 실행 결과를 알아보자.

여러장의 심사 결과표가 심사결과표 시트에 생성되는 것을 확인할 수 있다.

04. 관련 포스트

(1) VBA로 선택하여 붙여넣기

https://eggdrop.tistory.com/5

엑셀 매크로 (VBA) - 001. 특정 행을 복사하여 삽입하기

작업하다가 VBA를 사용할 일이 많아서, 기본적인 내용 및 해왔던 내용들을 정리해 봅니다. 전체 목차 - 001. 특정 행을 복사하여 삽입하기 - 002. 선택하여 붙여 넣기 기능 정리 - 003. 변수/Assignment/Loo

eggdrop.tistory.com

(2) VBA로 셀의 높이 너비 조정하기

https://eggdrop.tistory.com/154

엑셀 VBA 셀의 너비와 높이 가져오기 , 셀의 너비와 높이 변경하기

포스트 목차. 01. 엑셀에서 셀의 너비와 높이 설정하기 02. VBA에서 셀의 높이와 너비 가져오기 03. VBA에서 셀의 높이와 너비 설정하기 00. 사용할 데이터 본 포스트에서는 위의 데이터를 이용하여

eggdrop.tistory.com

(3) VBA 버튼 컨트롤

https://eggdrop.tistory.com/21

Excel 매크로 (VBA) - 009. 버튼 컨트롤 (Excel Form vs. ActiveX )

전체 목차 - 001. 특정 행을 복사하여 삽입하기 - 002. 선택하여 붙여 넣기 기능 정리 - 003. 변수/Assignment/Loop/비교 - 004. 데이터가 있는 셀의 범위 알아내기 - 005. 데이터 시트(쉘) 순회하기 - 006. 셀 병

eggdrop.tistory.com

(4) 데이터가 있는 셀의 범위 알아내기

https://eggdrop.tistory.com/9

Excel 매크로 (VBA) - 004. 데이터가 있는 셀의 범위 알아내기

전체 목차 - 001. 특정 행을 복사하여 삽입하기 - 002. 선택하여 붙여 넣기 기능 정리 - 003. 변수/Assignment/Loop/비교 - 004. 데이터가 있는 셀의 범위 알아내기 포스트 목차 - 01. 엑셀에서 데이터가 있는

eggdrop.tistory.com

엑셀 VBA 셀의 너비와 높이 가져오기 , 셀의 너비와 높이 변경하기

에그드로퍼 — Mon, 22 May 2023 22:37:45 +0900

포스트 목차.

01. 엑셀에서 셀의 너비와 높이 설정하기
02. VBA에서 셀의 높이와 너비 가져오기
03. VBA에서 셀의 높이와 너비 설정하기

00. 사용할 데이터

본 포스트에서는 위의 데이터를 이용하여 셀의 너비/높이에 대해 설명한다.

01. 엑셀에서 셀의 너비와 높이 설정하기

엑셀에서 셀의 너비와 높이를 설정하는 방법은 여러가지가 있다.

(1) 행 번호와 열 번호에 있는 셀을 이용하여 크기 조정하기

열의 너비는 열 번호 행의 셀의 경계를 클릭하면 확인할 수 있다.

클릭 후 해당 아이콘을 드래그하면 셀의 너비를 조정할 수 있다.

행의 높이는 행 번호 행의 셀의 경계를 클릭하면 확인할 수 있다.

클릭 후 해당 아이콘을 드래그하면 셀의 높비를 조정할 수 있다.

(2) 셀 선택 후 서식 메뉴 이용

위의 방식은 셀의 너비/높이의 수치는 나오지만, 마우스로 조정해야하고 정확한 수치로 조정하기는 힘들수 있다는 단점이 있다. 또한 셀의 너비 또는 높이가 모니터에 표기되는 크기를 초과하면 해당 높이/너비를 변경할 수 없다는 단점이 있다.

셀 선택 후 서식 메뉴에서 수치를 직접 입력하여 셀 너비/높이를 바꾸는 것도 가능하다.

- 셀을 선택한다.

- 홈 > 셀 > 서식 메뉴를 실행한다.

셀 크기의 행 높이 또는 열 너비를 선택한다.

- 수치를 입력한다.

02. VBA에서 셀의 높이와 너비 가져오기

셀의 너비는 Range 객체의 ColumnWidth 프로퍼티를 이용하여 구할 수 있다.

예) Worksheets("sheet1").Cells(2, 1).ColumnWidth

셀의 높이는 Range 객체의 RowHeight 프로퍼티를 이용하여 구할 수 있다.

예) Worksheets("sheet1").Cells(2, 1).RowHeight

위의 예는 셀 A2의 너비와 높이를 구하는 스크립트이다.

버튼을 하나 추가한 후 셀 A2의 너비와 높이를 메시지 박스로 출력하는 예제를 구성해보자.

1
2
3
4
5
6

Sub 단추1_Click()
    
    MsgBox "높이: " & Worksheets("sheet1").Cells(2, 1).RowHeight & " 너비: " & Worksheets("sheet1").Cells(2, 1).ColumnWidth
    
End Sub
 
Colored by Color Scripter

cs

버튼을 클릭했을 때 출력되는 값은 다음과 같다.

03. VBA에서 셀의 높이와 너비 설정하기

셀의 너비는 Range 객체의 ColumnWidth 프로퍼티를 이용하여 설정할 수 있다.

예) Worksheets("sheet1").Cells(2, 1).ColumnWidth = 10

셀의 높이는 Range 객체의 RowHeight 프로퍼티를 이용하여 설정할 수 있다.

예) Worksheets("sheet1").Cells(2, 1).RowHeight = 50

버튼을 하나 추가하여 셀의 너비를 10으로 셀의 높이를 50으로 변경해보자.

셀의 높이/너비 설정 버튼을 누르면 셀의 너비는 10으로 셀의 높이는 50으로 변경된다.

초기화 버튼을 누르면 셀의 너비는 5.58로 셀의 높이는 30으로 초기화된다.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

Sub 단추2_Click()
 
Worksheets("sheet1").Cells(2, 1).RowHeight = 50
Worksheets("sheet1").Cells(2, 1).ColumnWidth = 10
 
 
End Sub
 
 
 
Sub 단추3_Click()
 
Worksheets("sheet1").Cells(2, 1).RowHeight = 30
Worksheets("sheet1").Cells(2, 1).ColumnWidth = 5.58
 
 
End Sub
 
Colored by Color Scripter

cs

 

셀의 높이/너비 설정 버튼을 누른 결과는 다음과 같다.

엑셀 필터된 데이터의 합 구하기 (subtotal 함수)

에그드로퍼 — Sat, 20 May 2023 18:50:24 +0900

포스트 목차.

01. 엑셀에서의 필터
02. 엑셀에서 행 숨기기
03. 엑셀에서 합 구하기
04. Subtotal 함수
05. 결론

SUBTOTAL 함수를 사용하여 필터된 데이터의 합이 궁금한 사람은 04로 이동하자.

00. 사용할 데이터

본 포스트에서 사용할 데이터는 다음과 같다.

01. 엑셀에서의 필터

엑셀은 필요한 데이터만 걸러내는 필터 기능을 제공한다.

필터 기능을 사용하기 위한 작업 순서는 다음과 같다.

1) 필터를 적용할 데이터를 선택한다.

2) 데이터 > 필터를 선택한다.

필터 설정 방법

필터 설정 결과

3) 제목행에 있는 열이름의 화살표 버튼을 눌러서 필터를 적용한다.

위의 예에서 부개체의 필터 버튼을 선택 후 A를 선택한 결과는 다음과 같다.

필터에서 특정한 데이터를 선택

필터 결과

부개체의 값이 A인 데이터만 화면에 보여지는 것을 확인할 수 있다.

또한 좌측의 행번호를 보면 기존의 행번호가 유지되는 상태에서 필터를 거치지 못한 데이터들이 숨김 처리된 것을 확인할 수 있다.

즉 필터는 원하는 데이터 외의 다른 데이터는 숨김처리 하는 기능이라고 생각할 수 있다.

02. 엑셀에서 행 숨기기

엑셀에서는 사용자가 임의로 행이나 열을 숨길 수 있다.

위의 예제로 돌아가서 특정 행을 숨기는 작업을 해보자.

NO 6, 7, 8 (행번호 12, 13, 14)를 숨기려고 한다.

숨길 행 번호에 마우스를 가져가면 화살표 모양으로 변경된다. 이 때 마우스를 클릭하면 행이 선택된다.

행 번호를 클릭한 상태에서 마우스를 드래그하거나, 컨트롤 키를 누른 상태에서 여러 행 번호를 클릭하면 복수의 행을 선택하는 것이 가능하다.

숨기고자하는 행이 선택된 상태에서 마우스 우클릭 하여 선택한 행 숨기기를 클릭하면, 행을 숨길 수 있다. (열의 경우도 같은 방법으로 숨길 수 있다.)

특정 행을 숨긴 결과는 다음과 같다. 11번행 다음에 15번 행이 나오므로 12번행에서 14번행까지는 숨겨졌다는 것을 알 수 있다.

03. 엑셀에서 합 구하기

엑셀에서 데이터의 합을 구하는 방법은 여러가지가 있을 수 있지만, 대부분의 사람들이 가장 먼저 생각나는 함수는 SUM함수일 것이다.

(1) SUM 함수 사용하여 합을 구해보자.

위의 그림처럼 SUM함수를 이용해서 G7부터 G18까지의 합을 구하여 셀H4에 표기해보자.

셀H4에 다음과 같은 수식을 입력하면 무정란 유정란을 포함하여 생상된 모든 달걀의 수가 구해진다.

=SUM(G7:G18)

SUM 함수 사용하기

G열에있는 숫자를 모두 더한 값인 24로 셀H4가 채워지는 것을 확인

여기서 한 가지 의문이 들 수 있다. 필터를 걸거나, 행 숨기기를 적용해서, 화면에 보이는 데이터의 수가 달라진 경우 SUM 함수의 결과는 어떻게 될까? 결론부터 말하면 SUM 함수의 결과는 데이터가 화면에 보이고 말고와는 상관없이 일정하다는 것이다.

(2) 필터를 적용하여 SUM 함수의 결과값에 변화가 생기는지 확인해보자.

부개체 A로 필터를 설정한 결과

(3) 행 숨기기를 적용하여 SUM 함수의 결과값에 변화가 생기는지 확인해보자.

화면에 보이는 데이터와는 상관없이 SUM함수의 결과는 일정하다는 것을 확인할 수 있다.

04. SUBTOTAL 함수

사용자에 따라서 화면에 보이는 데이터 만의 합이 궁금한 사람도 있을 것이다. 이러한 작업을 할 수 있는 방법은 여러가지가 있지만 본 포스트에서는 SUBTOTAL 함수를 사용하여 화면에 보이는 데이터의 합을 구해보려고 한다.

(1) SUBTOTAL 함수의 인자

SUBTOTAL 함수는 합 외에 여러가지 작업을 할 수 있는 함수다.

- 첫 번째 인자인 Function_num의 값에 따라 수행할 작업이 결정된다.

- 두 번째 인자부터는 SUM함수와 동일하게 특정 연산을 할 셀의 참조 또는 영역이 들어간다.

첫번째 인자인 Function_num은 1에서 11까지의 값 또는 101에서 111까지의 값이 들어갈 수 있다. 숨겨진 행을 무시하길 원할 경우 100번대 숫자를 지정하고, 숨겨진 행까지 연산에 포함되길 원할 경우에는 1에서 11까지의 숫자를 지정하면 된다.

숨겨진 행 포함	숨겨진 행 무시	연산 종류
1	101	AVERAGE
2	102	COUNT
3	103	COUNTA
4	104	MAX
5	105	MIN
6	106	PRODUCT
7	107	STDEV
8	108	STDEVP
9	109	SUM
10	110	VAR
11	111	VARP

(2) SUBTOTAL 함수로 합 구하기

본 포스트에서 관심있는 부분은 SUM이기 때문에 FunnctionNum 값이 9, 109인 경우만 다루려고 한다. 다른 숫자도 유사한 함수의 결과만 다를 뿐 유사한 통계함수이기 때문에 같은 방식으로 접근하면 된다.

SUM 함수와 동일한 영역에 대해 SUBTOTAL 함수를 적용해보자.

위의 그림처럼 첫 번째 인자가 9인 경우와 109인 경우를 나눠서 각각 셀 H1, H2에 표기하려고 한다.

셀 H1과 H2에 다음 수식을 입력해보자.

H1: =SUBTOTAL(9, G7:G18)

H2: =SUBTOTAL(109, G7:G18)

현재는 수식에 관여하는 모든 셀이 보이기 때문에, SUM 함수의 결과와 SubTotal 함수의 결과가 동일하다.

(1) 행 숨기기 적용 후의 결과

먼저 첫 번째 인자 9와 109의 차이를 알기 위해서 행13~15를 숨겨보자.

첫번째 인자가 9 인 경우 숨겨진 셀의 내용까지 포함하여 SUM 연산을 하여 SUM 함수와 같은 결과를 반환한다. 첫번째 인자가 109인 경우 숨겨질 셀의 내용은 연산에 포함시키지 않아서 SUM 함수와 다른 결과를 반환한다.

(2) 필터만 적용한 경우

위에서 적용한 숨기기를 취소한 후에, 이번에는 부개체 A 에 대한 필터를 걸어보자.

SUBTOTAL 함수의 결과는 화면에 보이는 데이터에 대한 값만 더해진 것을 확인 할 수 있다.

(3) 필터 적용 후 숨기기 시도

위에서 적용된 필터를 그대로 유지한 상태에서 9행을 숨기기 해보자.

이미 필터가 걸려있기 때문에 두 함수 모두 화면에 보이는 데이터에 대한 SUM만 하는 것을 확인할 수 있다.

05. 결론

사용자에 따라 필터에 해당하는 데이터의 합이 궁금한 상황이 발생할 수 있다. 이런 경우에는 SUBTOTAL 함수의 9,109 인자를 셋팅하여 사용하면 필터 상태에 따라 SUM 연산을 할 수 있다. 본 포스트에서는 SUM만 다루고 있지만, SUBTOTAL 함수에서 제공하는 모든 연산을 필터 결과에 따라 동적으로 수행하는 것이 가능하다.

VBA 중복데이터 합치기

에그드로퍼 — Thu, 27 Apr 2023 22:02:27 +0900

포스트 목차.

01. 중복 데이터 합치는 문제
02. Do While 문
03. 행 전체 제거
04. 예제

본 포스트에서는 중복 데이터 중 특정 데이터를 합치면서, 중복데이터를 제거하는 예제 코드를 소개한다.

01. 중복데이터 합치는 문제

아래와 같은 데이터가 있다고 가정하자.

식별번호가 일치할 경우 금액을 하나로 합쳐야되는 작업이다.

금액을 제외한 다른 데이터는 가장 처음에 등장하는 데이터 그대로 유지한다.

중복 데이터를 제거하면서, 금액은 하나로 합치는 작업을 해야한다.

02. Do While 문

이 문제를 해결하기 위해서 이중 루프문을 사용하려고 한다.

첫번 째 루프에서는 비교대상1을 선택하고

두번 째 루프를 돌면서 배교대상1 외의 다른 데이터와의 식별번호를 비교해야한다.

식별번호가 일치할 경우 금액을 합치면 된다.

https://eggdrop.tistory.com/8

엑셀 매크로 (VBA) - 003. variable/assignment/branch/loop (변수/할당/비교/순환)

전체 목차 - 001. 특정 행을 복사하여 삽입하기 - 002. 선택하여 붙여 넣기 기능 정리 - 003. 변수/Assignment/Loop/비교 포스트 목차 - 01. VBA에서의 변수(variable) - 02. VBA에서 할당(Assingment) - 03. VBA에서 변수

eggdrop.tistory.com

루프 문에 대해서는 위의 포스트를 참고하자.

논리의 흐름을 정리하면,

첫번째 루프:

비교대상1을 선정한다.

두번째 루프:

비교대상 1의 아래 행에 있는 비교대상 2를 선정 후

- 식별번호가 같은 경우 금액을 합한 후 비교대상2가 있는 행 전체를 삭제한다.

- 식별번호가 다른 경우 다음 행으로 이동하여 비교대상2를 다시 설정한다.

- 더이상 비교대상2로 설정할 데이터가 없으면 두 번째 루프를 끝낸다.

다음 비교대상 1을 선정한다.

더이상 비교대상1로 설정할 데이터가 없으면 첫 번째 루프를 끝낸다.

03. 행 삭제

중복된 데이터가 있을 경우 첫번 째 행을 제외한 나머지 행을 삭제되어야 한다.

다음과 같은 명령을 수행하면, 해당 행 전체를 삭제할 수 있다.

Rows(행번호).EntireRow.Delete

위 명령은 행을 선택 후 마우스 우클릭 - 삭제를 선택한 것과 같으며,

셀을 선택 후 마우스 우클릭 - 삭제 행 전체를 선택한 것과 같다.

04. 예제

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45

Sub 단추1_Click()
    
    '시작 행 설정
    i = 6
      
    '비교대상 1의 데이터가 있을때만 루프를 수행한다
    Do While Not ActiveSheet.Cells(i, 10).Value = ""
               
        '금액 (j열에 있는 값을 구한다.)
        Price = ActiveSheet.Cells(i, 10).Value
        '식별 번호를 저장한다.
        idNumber = ActiveSheet.Cells(i, 3).Value
        
        '비교대상 2는 i행 다음의 데이터로 설정한다.
        j = i + 1
        
        '비교대상2의 데이터가 있는 경우만 루프를 수행한다.
        Do While ActiveSheet.Cells(j, 10).Value <> ""
        
            '비교대상 2의 식별번호 저장
            idNumberTmp = ActiveSheet.Cells(j, 3).Value
            
            '비교대상1과 비교대상2의 식별번호가 일치할 경우
            If idNumber = idNumberTmp Then
                '비교대상2의 값을 구한다.
                PriceTmp = ActiveSheet.Cells(j, 10).Value
                '비교대상1의 값과 비교대상2의 값을 합한 값을 저장한다.
                Price = Price + PriceTmp
            
                ActiveSheet.Rows(j).EntireRow.Delete
            '식별번호가 일치하지 않은 경우 다음 비교대상2를 설정한다.
            Else
                j = j + 1
            End If
        Loop
        
        '비교대상 1의 값을 설정한다.
        ActiveSheet.Cells(i, 10) = Price
        '다음 비교대상 1을 설정한다.
        i = i + 1
        
    Loop
 
End Sub
 
Colored by Color Scripter

cs

버튼을 하나 만들어서 위와 같은 매크로를 연결하자.

실행 전

실행 후의 결과는 다음과 같다.

실행 후

엑셀 중첩 IF함수 사용하기

에그드로퍼 — Fri, 21 Apr 2023 20:00:58 +0900

포스트 목차.

01. IF 함수의 기본 형태
02. 중첩 IF 함수의 사용
03. 예제

01. IF 함수의 기본 형태

=IF(Logical_test , Value_if_true, Value_if_false)

- Logical_test: TRUE 나 FALSE로 판정될 값이나 식
- Value_if_true: Logical_test가 TRUE 일 때 돌려주는 값(생략 시에는 TRUE를 반환)
- Value_if_false: Logical_test가 FALSE 일 때 돌려주는 값(생략 시에는 FALSE를 반환)

- 일반적인 사용

아래의 예제는 C2의 값이 B2보다 크거나 같을 경우에 "합격"을 반환하고, 이에 해당하지 않을 경우에는 "불합격"을 반환한다.

다시 정리하면,

첫 번째 인자에는 참/거짓을 판별할 수 있는 값 또는 식이 들어가야하며,

두 번째 인자는 첫 번째 인자가 참으로 판단되었을 때 반환되는 값,

세 번째 인자는 첫 번째 인자가 거짓으로 판단되었을 때 반환되는 값이 들어간다.

02. 중첩 IF함수의 사용

IF함수는 결국에는 특정 값을 반환하게 된다. 따라서 IF함수의 결과물은 다른 IF함수의 두 번째 인자 또는 세 번째 인자에 사용될 수 있다.

(1) IF함수의 두 번째 인자에 다른 IF함수가 들어가는 경우

다음과 같은 자료가 있다고 가정해보자.

학생 A, B, C, D의 성적을 다음 기준으로 분류해보자.

- 평균 점수가 커트라인 이상이고, 과목1 점수가 과목1 과락 기준 이상일 경우 합격

- 평균 점수가 커트라인 이하일 경우, 탈락

- 평균 점수가 커트라인 이상이고, 과목1점수가 과목1 과락 기준 미만일 경우 과락

=IF(F2>=B2, IF(D2>=C2,"합격","과락"), "탈락")

위의 수식은 첫번째 IF함수의 두번째 인자 자리에 다른 IF문이 포함되어 있는 것을 확인할 수 있다.

첫번 째 조건인 평균 점수가 커트라인 이상인 경우, 과락 기준까지 다시 한번 비교를 하게 된다.

- 과목 1의 과락 기준을 만족할 경우, 합격이 출력되고

- 과목 1의 과락 기준을 만족하지 못할 경우, 과락이 출력된다.

첫번 째 조건인 평균 점수가 컨트라인 미만인 경우, 탈락으로 처리된다.

(2) IF함수의 세 번째 인자에 다른 IF함수가 들어가는 경우

다음과 같은 자료가 있다고 가정해보자.

학생 A, B, C, D의 성적을 다음 기준으로 분류해보자.

- 평균 점수가 커트라인 이상이면 "합격"

- 평균 점수가 커트라인 이하일 경우, 과목1의 점수가 특수합격 기준 이상인 경우 "특수 합격"

- 평균 점수가 커트라인 이하일 경우, 과목1의 점수가 특수합격 기준 미만인 경우 "탈락"

=IF(F2>=B2,"합격",IF(D2>=C2,"특수합격","탈락"))

위의 수식은 첫번째 IF함수의 세번째 인자 자리에 다른 IF문이 포함되어 있는 것을 확인할 수 있다.

첫번 째 조건인 평균 점수가 커트라인 이상인 경우, 합격이다.

첫번 째 조건인 평균 점수가 컨트라인 미만인 경우,

- 과목 1의 특수합격 기준을 만족할 경우, 특수합격이 출력되고

- 과목 1의 특수합격 기준을 만족하지 못할 경우, 탈락이 출력된다.

(3) IF함수가 여러번 중첩되는 경우

다음과같이 여러번의 IF함수가 중첩되는 것도 가능하다.

03. 예제

Q. A의 학점을 계산하는 수식을 중첩 IF문을 이용하여 작성하시오.

학점을 계산하는 방법은 다음과 같다.

- 평균점수가 100점 이하 ~ 90점이상 이면 "A"
- 평균점수가 90점 미만 ~ 80점이상 이면 "B"
- 평균점수가 80점 미만 ~ 70점이상 이면 "C"
- 평균점수가 70점 미만 ~ 60점이상 이면 "D"
- 평균점수가 60점 미만 이면 "F"

위와 같은 데이터가 있을 때 학점을 계산해보자.

평균점수는 B열에 기록되어 있다.

학생 A의 학점을 구하기 위해서 다음 조건들을 계산해야 한다. (아래수식은 평균점수가 정수라는 가정을 하고 있다.)

학점이 A일 조건: B2 <=100 AND B2 >=90 따라서 수식은 AND(B2 <= 100, B2 >= 90)

학점이 B일 조건: B2 <90 AND B2 >=80 따라서 수식은 AND(B2 < 90, B2 >= 80)

학점이 C일 조건: B2 <80 AND B2 >=70 따라서 수식은 AND(B2 < 80, B2 >= 70)

학점이 D일 조건: B2 <70 AND B2 >=60 따라서 수식은 AND(B2 < 70, B2 >= 60)

학점이 F일 조건: B2 < 60

위의 수식을 이용하여 IF문을 구성하면 다음과 같다.

=IF(AND(B2<=100,B2>=90),"A",IF(AND(B2<90,B2>=80),"B",IF(AND(B2<80,B2>=70),"C",IF(AND(B2<70,B2>=60),"D","F"))))

수식을 복사하여 도출한 결과는 다음과 같다.

Excel 매크로 (VBA) - 024. 엑셀 파일 열기

에그드로퍼 — Wed, 12 Apr 2023 19:48:58 +0900

전체 목차
- 001. 특정 행을 복사하여 삽입하기
- 002. 선택하여 붙여 넣기 기능 정리
- 003. 변수/Assignment/Loop/비교
- 004. 데이터가 있는 셀의 범위 알아내기
- 005. 데이터 시트(쉘) 순회하기
- 006. 셀 병합 하기
- 007. 변수에 저장되어 있는 데이터 확인하기 (디버그 기능)
- 008. 정렬하기 (Sort)
- 009. 버튼 컨트롤 (Excel Form vs. ActiveX)
- 010. 콤보 상자 컨트롤 (Excel Form vs. ActiveX)
- 011. 확인란/옵션단추 컨트롤(Excel Form vs. ActiveX)
- 012. 스핀단추 컨트롤(스피너, Excel Form vs. ActiveX)
- 013. 자동필터(Auto Filter)
- 014. 함수(function) (전편)
- 015. 함수(function) (후편)
- 016. 중복 데이터 제거하기
- 017. 텍스트 나누기 (공백, 특수문자)
- 018. Vlookup으로 데이터 조회하기(주식 종목 코드 조회)
- 019. 런타임 에러 처리 (1)
- 020. 런타임 에러 처리 (2)
- 021. 인풋박스 (InputBox) 사용 방법

- 022. 로또 번호 생성기를 만들어 보자

- 023. 클래스 모듈 (간단한 예제)

포스트 목차

01. Application.GetOpenFilename 메소드
02. Workbook.Open 메소드

01. Application.GetOpenFilename 메소드

Application.GetOpenFilename 메소드를 이용하면, 스탠다드 오픈 다이얼로그 박스(파일 선택 대화상자)를 표기하여, 사용자로 하여금 파일을 선택할 수 있도록 한다. 이 메소드를 사용하면 파일 선택 대화상자에서 선택한 파일의 경로와 파일명을 문자열 형태로 반환한다.

Application.GetOpenFilename 메소드는 다음과 같은 optional 파라미터를 사용할 수 있다.

파라미터명	타입	설명
FileFilter	Variant	선택 가능한 파일 유형을 지정하는 문자열이다. 이 무자열은 다음과 같은 구조를 갖는다. "설명(.확장자), .확장자" 세미콜론(;)을 사용하여 여러 개의 파일 필터를 지정하는 것이 가능하다. 사용 예) "텍스트 파일(.txt),.txt;워드문서(.docx),docx"
FilterIndex	Variant	FileFilter 문자열에서 기본적으로 선택되는 필터의 인덱스를 지정한다. (인덱스는 1부터 시작)
Title	Variant	파일 선택 대화 상자의 제목을 지정하는 문자열이다.
ButtonText	Variant	파일 선택 대화 상자에서 버튼의 레이블을 지정하는 문자열이다.
MultiSelect	Variant	여러 파일을 선택할 수 있는지 를 지정하는 Boolean 값이다. 기본 값은 False 다.

다음과 같은 예제 코드를 작성해보자.

(1) 시트에 버튼 추가

ActiveX컨트롤을 추가해도 상관없지만 여기서는 엑셀 폼 컨트롤 단추를 추가했다.

(2) 매크로 지정

버튼을 선택 > 우클릭 > 매크로 지정을 선택한다.

이름을 적절하게 부여한다. (새로 만들기 클릭)

(3) 매크로 코드 작성

1
2
3
4
5
6
7
8
9
10
11

Sub 단추1_Click()
 
    Dim fileName As Variant
    fileName = Application.GetOpenFilename("엑셀 파일(*.xlsx), *.xlsx")
 
    If fileName <> False Then
        MsgBox fileName
    End If
    
End Sub
 
Colored by Color Scripter

cs

 

(4) 버튼을 클릭한 결과

로또.xlsx 파일을 선택한 결과는 다음과 같다.

02. Workbook.Open 메소드

Workbook.Open 메소드는 지정된 파일을 열고 해당 파일에 대한 Workbook 객체를 반환한다. 해당 메소드를 사용하여 다른 Excel 파일의 데이터를 읽거나 수정하는 것이 가능하다.

Workbooks.Open 메소드의 일부 매개변수는 다음과 같다.

FileName: 필수 매개변수, 열려는 파일의 경로 및 이름을 지정하는 문자열
UpdateLinks: 선택적 매개변수, 워크북 내에서 열린 링크를 업데이트할지 여부를 지정하는 Boolean 값
ReadOnly: 선택적 매개변수, 읽기 전용으로 파일을 열지 여부를 지정하는 Boolean 값
Password: 선택적 매개변수, 파일의 암호를 지정하는 문자열
IgnoreReadOnlyRecommended: 선택적 매개변수, 파일이 읽기 전용으로 설정된 경우에도 열리도록 지정하는 Boolean 값
Notify: 선택적 매개변수, 파일이 다른 사용자에 의해 잠겨 있는 경우 알림을 표시할지 여부를 지정하는 Boolean 값
AddToMru: 선택적 매개변수, 최근에 사용한 파일 목록에 파일 이름을 추가할지 여부를 지정하는 Boolean 값

다음과같이 변수에 Set하여 엑셀 파일에서 Workbooks 객체를 가져와서 사용하는 것이 가능하다.

1
2
3
4
5
6
7
8
9
10
11
12
13

Sub 단추1_Click()
 
    Dim fileName As Variant
    fileName = Application.GetOpenFilename("엑셀 파일(*.xlsx), *.xlsx")
 
    If fileName <> False Then
        Set wb = Workbooks.Open(xfile1)
        ' 이후 wb를 이용한 작업 
 
    End If
    
End Sub
 
Colored by Color Scripter

cs

서울 근교에서 봄에 오르기 좋은 산들

에그드로퍼 — Fri, 7 Apr 2023 22:49:20 +0900

서울 근교에서 봄에 오르기 좋은 산들에 대해 알아보겠습니다.

포스트 목차.

01. 북한산
02. 용마산
03. 불암산
04. 예봉산
05. 아차산

01. 북한산

서울 근교에서 가장 높은 산으로, 대표적인 등산지이며 자연 경관이 아름답습니다.

북한산은 서울과 경기도에 걸쳐 있는 산으로 대한민국에서 가장 높은 산인 도봉산을 비롯해 다양한 코스가 있습니다. 북한산에서 대표적인 등산 코스 3개는 다음과 같습니다:

수락산 코스: 북한산 중에서도 수락산은 가파른 등산로와 화려한 봉우리 경치로 유명합니다. 수락산 등산로는 도심과 가까워 대중교통으로도 쉽게 접근할 수 있습니다.

도봉산 코스: 북한산의 중심부인 도봉산은 가파른 등산로가 많아 전문적인 등산객들에게 인기가 있습니다. 도봉산 정상에서는 서울 시내 전경을 한눈에 볼 수 있습니다.

인왕산 코스: 북한산 중에서도 인왕산은 조용하고 자연적인 산책로가 유명합니다. 등산로가 넓어 일반인들도 쉽게 오를 수 있어 가족, 연인, 친구들과 함께 산책하기 좋습니다

북한산 국립공원에는 여러 입구가 있으며, 등산로도 다양하게 있어서 출발지에 따라 다르지만, 대표적으로는 지하철 1호선 도봉산역과 지하철 4호선 수락산역이 북한산을 가는데 가장 편리한 역입니다. 이 외에도 지하철 3호선 불광역, 지하철 6호선 화랑대역, 지하철 7호선 태릉입구역 등에서도 북한산 입구로 가는 셔틀 버스나 지선버스를 이용할 수 있습니다.

주요 코스는 다음 링크에서 찾아볼 수 있습니다.

https://www.knps.or.kr/front/portal/visit/visitCourseSubMain.do?parkId=121500&parkNavGb=park&menuNo=7020092

코스별난이도 < 북한산국립공원 < 국립공원탐방 < 국립공원공단

국립공원공단

www.knps.or.kr

02. 용마산

용마산은 서울시 강동구와 구리시, 하남시, 남양주시 등 경기도 일부 지역에 걸쳐 있는 산으로, 서울시와 경기도민들 사이에서 매우 사랑받는 등산 코스 중 하나입니다.

가장 인기 있는 등산 코스는 강동구 천호역과 구리시 소용리역 사이에 있는 "개울가를 따라 걷는 코스"로, 6km 정도의 거리를 이동하며 경치를 즐길 수 있습니다. 또한, 용마산 국립공원에는 여러 개의 등산로가 있어서 취향에 따라 선택할 수 있습니다.

특히 봄이 되면 용마산에는 벚꽃이 만개하여 많은 관광객들이 찾아옵니다. 또한 가을에는 단풍이 매우 아름답고, 겨울에는 눈이 내리면서 풍경이 매우 아름다워집니다. 그리고 이곳에는 많은 야생동물들이 서식하고 있어서 자연을 즐기는 산책로로도 좋습니다.

용마산 국립공원은 서울시 내 남동쪽 경계에 위치한 산악공원으로, 용마산과 불암산, 청계산, 아차산 등 총 4개의 산으로 이루어져 있습니다. 용마산은 높이 348m이며, 서울에서 쉽게 가볼 수 있는 등산 코스 중 하나입니다. 또한, 용마산 국립공원은 서울시민들의 휴식 공간으로 유명하며, 자연 경관을 즐길 수 있는 산책로도 있습니다

자세한 정보는 다음 링크에서 얻을 수 있습니다.

https://www.jungnang.go.kr/portal/main/contents.do?menuNo=200371

03. 불암산

불암산은 경기도 파주시와 양주시에 걸쳐 있는 산으로, 서해안 지대의 계곡과 평야를 한 눈에 내려다 볼 수 있는 곳으로 유명합니다.

불암산에는 여러 등산 코스가 있습니다. 대표적으로는 파주시 산성동 출발점에서 출발하는 불암산 중앙코스, 양주시 장흥면 출발점에서 출발하는 불암산 서쪽코스 등이 있습니다. 불암산 중앙코스는 전체 코스가 약 10km 정도이며, 중간에는 대형 산림욕장과 쉼터 등이 있어 쉬어가며 즐길 수 있습니다. 불암산 서쪽코스는 약 8km 정도이며, 산림욕장과 쉼터가 위치한 중간 쯤에서 다양한 길로 갈라지므로, 자신에게 맞는 코스를 선택하여 즐길 수 있습니다.

불암산은 이름의 유래도 흥미롭습니다. 불암산이라는 이름은 신라 시대의 유명한 승려인 원효가 이곳에 처가를 지어 철종왕을 모시고 불을 지핀 것에서 유래하였습니다. 또한 불암산에는 고대 신앙의 유적인 대불사와 불암사, 고려시대의 유적인 불현사, 그리고 인조시대의 유적인 미륵사 등이 위치하여 역사와 문화를 함께 즐길 수 있는 곳입니다.

https://korean.visitseoul.net/nature/%EB%B6%88%EC%95%94%EC%82%B0/KOP003828

불암산

노원구와 남양주시에 걸쳐있는 불암산은 산 정상에 있는 큰 바위가 송낙을 쓴 부처님의 모습을 닮았다고 하여 불암산이라는 명칭을 갖게 되었다.

korean.visitseoul.net

불암산 등산 후에는 다음과 같은 곳들을 방문해볼 수 있습니다.

불암동굴: 불암산 자락에 위치한 불암동굴은 한국의 대표 동굴 중 하나로 유명합니다. 약 1km 정도의 길이를 가지고 있으며, 약 500m 정도만 개방되어 있습니다.

청계천: 불암산 주변에는 청계천이 흐르고 있어, 청계천을 따라 산책을 즐길 수 있습니다. 특히 봄이면 벚꽃이 아름답게 피어서 유명한 명소입니다.

구리시민공원: 불암산과 인접해 있는 구리시민공원은 넓은 잔디밭과 산책로, 놀이시설 등이 마련되어 있어 가족 단위로 즐길 수 있는 장소입니다.

상동호수공원: 불암산과 인접한 상동호수공원은 호수 주변을 따라 산책로가 마련되어 있으며, 물놀이 시설도 마련되어 있어 더운 여름에 시원하게 놀 수 있습니다.

가좌도립수목원: 불암산과 인접한 가좌도립수목원은 다양한 나무와 꽃들이 심어져 있어 자연을 즐기기에 좋은 장소입니다. 봄에는 벚꽃과 진달래, 가을에는 단풍이 아름답게 변하는 등 계절마다 다양한 색깔로 물들어 매력적입니다.

04. 예봉산

대표적인 코스는 팔당산성을 중심으로 하는 코스와 팔당사이킹 코스입니다. 팔당산성은 조선시대 고종 때, 왜적의 침략을 막기 위해 건설된 산성으로, 지금은 탑과 단선굴 등이 남아있습니다. 팔당사이킹 코스는 팔당호 수변을 따라 코스를 따라가면서 산책할 수 있는 코스로, 팔당댐, 팔당물류생태공원 등을 지나가면서 아름다운 경관을 즐길 수 있습니다.

또한, 팔당산 국립공원 내에는 팔당호, 팔당댐, 물류생태공원, 팔당산자연휴양림 등 감성적인 장소들이 많습니다. 팔당호는 한강의 중류에 위치한 인공호수로, 수상레저를 즐길 수 있는 장소입니다. 물류생태공원은 팔당댐과 팔당호를 중심으로 자연생태를 보존하고 있는 공원입니다. 팔당산자연휴양림은 가족들이 함께 즐길 수 있는 바베큐장, 산림욕장, 야영장 등이 갖추어져 있습니다.

등산 후에는 다음과 같은 곳을 방문해 볼 수 있습니다.

팔당댐: 팔당산과 함께 자연 경관을 즐길 수 있는 대표적인 명소입니다. 댐 위에서는 수상 스포츠나 자전거 타기를 즐길 수 있습니다.
양지골 카페거리: 팔당댐 근처에 위치한 카페 거리로, 각종 음식점과 카페들이 밀집해 있습니다. 산책하며 다양한 메뉴를 즐길 수 있습니다.
팔당산국립공원 나무굴: 팔당산 국립공원 내에 위치한 나무굴은 자연 산책로와 숲속을 따라 걸으며 다양한 나무와 동물들을 볼 수 있는 곳입니다.
북한강 물문화관: 팔당댐 근처에 위치한 북한강 물문화관은 물 관련 전시물이나 체험 프로그램을 제공하는 곳입니다.
산모퉁이: 팔당산 국립공원 내에 위치한 산도자기로, 가족 단위나 친구들과 함께 피크닉이나 캠핑을 즐길 수 있습니다.

05. 아차산

서울 아차산의 높이는 295.7m이다. 예전에는 남쪽을 향해 불뚝 솟아오른 산이라 하여 남행산이라고도 하였고, 마을사람들은 아끼산·아키산·에께산·엑끼산 등으로 부르기도 한다. 《경기지(京畿誌)》 양주조에 보면 화양사(지금의 영화사)가 악계산(嶽溪山)에 있다고 되어 있다.

현재 아차산의 한자 표기는 阿嵯山, 峨嵯山, 阿且山 등으로 혼용되는데, 옛 기록을 보면 《삼국사기》에는 아차(阿且)와 아단(阿旦) 2가지가 나타나며, 조선시대에 쓰여진 고려역사책인 《고려사》에는 아차(峨嵯)가 처음으로 나타난다. 조선시대에는 봉화산을 포함하여 망우리 공동묘지지역과 용마봉 등 광범위한 지역을 모두 아차산으로 불렀던 것으로 추정된다. 특히 이성계의 휘(諱)가 단(旦)이기 때문에 이 글자를 신성하게 여겨서 旦이 들어간 이름은 다른 글자로 고치면서 단(旦) 대신 이와 모양이 비슷한 차(且)’자로 고쳤는데, 이때 아차산도 음은 그대로 두고 글씨를 고쳐 썼다고 한다

그밖에 산이름과 관련하여 전해지는 이야기가 있는데, 조선 명종 때 점을 잘 치는 것으로 유명한 홍계관이라는 사람이 있었다고 한다. 명종이 소문을 듣고 그를 불러 쥐가 들어 있는 궤짝으로 능력을 시험하였는데, 그가 숫자를 맞히지 못하자 사형을 명하였다. 그런데 조금 후에 암쥐의 배를 갈라보니 새끼가 들어 있어서 아차하고 사형 중지를 명하였으나 이미 때가 늦어 홍계관이 죽어버렸고, 이후 사형집행 장소의 위쪽 산을 아차산이라고 불렀다는 것이다.

백두대간에서 갈라나온 광주산맥의 끝을 이룬다. 온달에 대한 전설이 많이 전해져오는데, 온달이 가지고 놀았다는 지름 3m짜리 공기돌바위와 온달샘 등이 있고 아차산성(사적 234)에서 온달이 전사했다고 전해진다. (출처 네이버)

아차산에는 다양한 등산 코스가 있습니다. 가장 대표적인 코스는 북쪽 입구인 아차산역에서 시작하는 아차산 둘레길입니다. 이 코스는 총 5개의 구간으로 이루어져 있으며, 대부분 산책로 수준으로 쉽게 오르내릴 수 있습니다.

또한 아차산은 서울 둘래길 중의 2코스에 해당합니다.

서울 둘래길 코스 정보는 다음과 같습니다.

https://www.foresttrip.go.kr/pot/frtrl/ar/selectAroundRoadDtl12.do

숲나들e - |

2. 망우묘지공원 망우산 일대 83만 2,800㎡의 공간에 조성된 묘지공원이다.한용운, 오세창, 서동일 등 독립운동가들과 방정환, 이중섭, 박인환 등 17인의 유명인사가 잠들어 있으며, 안창호 선생의