holyspirit-lee 님의 블로그

"무진정" 이라는 이름만으로도 왠지 모를 고즈넉함과 아름다움이 떠오르지 않나요? 오늘은 시간이 멈춘 듯 평화로운 경상남도의 숨겨진 보석, 무진정으로 여러분을 초대합니다. 경상남도 함안군 함안면 괴산리에 있는 조선시대의 정자. 1976년 12월 20일 경상남도 유형문화유산으로 지정되었다. 조선시대의 문신 무진(無盡) 조삼(趙參)이 기거하던 곳으로 가야읍에서 서쪽으로 3km 떨어진 가야와 함안의 경계지점에 위치한다. 1567년(명종 22) 후손들이 그의 덕을 추모하기 위하여 이곳 연못가에 정자를 건립하고 그의 호를 따서 무진정이라 하였다. ‘무진정’이라는 편액과 정기(亭記)는 주세붕이 쓴 글씨로 추정된다. 현재의 건물은 1929년 4월에 중건한 것으로 기둥 위에 아무런 장식이나 조각물이 없이 단순 소박하게 ..

신갈동 버섯이랑031-281-7880경기 용인시 기흥구 상갈동 119-2510:30~21:00둘째 넷째 일요일 휴무주차 1~2 대 가능 '버섯이랑'. 용인시 기흥구 상갈동에 위치해있다. 백남준 아트센터와 경기도 박물관 근처여서 찾기 어렵지는 않지만 주차가 매장 앞 1~2대만 가능해 조금 불편한 것이 단점이다. 주변을 이용하여 주차를 하는 것이 좋다. 실내는 모두 좌식으로 신발 벗고 입장해야해서 조금 불편하다.버섯이랑 메뉴모두 메뉴에  버섯이 들어가 있고, 전골류라 큰 사이즈와 혼밥도 가능할 수 있게 1인용 탕도 있다. 올해 겨울에는 한층 더 건강식으로 복달임 하는 게 좋을 것 같아 어떤 음식이 좋을까 고민하다가 안성맞춤인 버섯이랑의 전골을 찾았다.버섯이랑 선택- 신선한 버섯 : 다양한 종류의 신선한 버섯..

"몽브리끄"​영업시간 : 월 ~ 금 10:00 - 21:30(15:00 -17:00 브레이크타임 / 20:15 라스트오더)토 / 일 10:00 -21:30(브레이크 타임 없음 / 20:15 라스트오더)주소 : 경기 의왕시 학현로 23-5주차 : 매장 앞 주차가능화장실 : 남/녀화장실구분(내부)연락처: 0507-1382-0490  자연과 함께 여유로운 시간을 보내고 싶다면 백운호수 근처에 위치한 브런치 카페 **몽브리끄(MONT BRIQUE)**를 추천한다. 아름다운 호수를 바라보며 맛있는 음식과 함께 여유로운 시간을 즐길 수 있는 곳있다.몽브리끄(MONT BRIQUE)의 매력1. 따뜻하고 아늑한 분위기 몽브리끄는 따뜻한 조명과 자연 친화적인 인테리어로 편안하고 아늑한 분위기를 자랑합니다. 넓은 창을 통해..

일을 하다 보면 동일한 내용(양식)의 엑셀 파일을 여러 개를 만들어 놓은 파일들이 존재한다. 동일한 여러 개의 엑셀 파일의 내용을 통합하여 작업을 해야 할 때가 많다. 이럴 때 사용하는 방법이 여러 개의 파일을 병합하여 작업하는 방법이다. 엑셀파워쿼리를 사용하여 병합하는 방법을 소개한다. 누구나 쉽게 따라 할 수 있는 방법으로 어렵지 않다.엑셀 파워쿼리엑셀에서 정규화되지 않은 데이터를 정규화하는 보조 프로그램으로 파워 쿼리는 데이터를 셰이프하는 데 도움이 되도록 하는 방법이다. 다양한 데이터 원본에서 데이터를 가져오고 새로 고친 후에는 데이터 분석 요구 사항에 맞게 고유한 테이블 형식 셰이프를 점진적으로 만드는 단계별 변환으로 데이터를 셰이프 할 수 있다.엑셀파워쿼리를 사용하면 유용한 기능들을 활용할 수..

선정릉선정릉은 서울 강남구 삼성동에 있는 조선시대 왕릉으로, 조선 제9대 왕 성종과 계비 정현왕후 윤씨의 능과 조선 제11대 왕 중종의 능이 합쳐진 곳이다. 1970년 사적 제199호로 지정되었다. 선정릉은 능역이 19만 8813㎡에 달하는 큰 규모로, 정릉과 선릉 두 개의 능역이 하나의 담장으로 둘러싸여 있다. 정릉은 중종의 능으로, 단릉 형태로 조성되어 있다. 선릉은 성종과 정현왕후의 능으로, 동원이 강릉 형태로 조성되어 있다. 선정릉은 조선시대 왕릉의 대표적인 능으로, 봉분, 난간석, 장명등, 혼유석, 석인, 석수, 망주석, 비각, 수복방, 정자각 등 다양한 석물이 잘 보존되어 있다. 선정릉은 서울 도심 한복판에 위치한 왕릉으로, 시민들의 휴식처이자 역사 교육의 장으로 활용되고 있다.선릉선릉은 조선..

파일명 찾기 VBASub 화일명찾기()    Dim iRow As Integer, sFile As String    디렉토리 = ThisWorkbook.Path & "\"                          ' 현재화일의 디렉토리 + \    sFile = Dir(디렉토리 & "*.xls")                        ' *_화성.xls를 포함한 모든화일    Do While sFile  ""                                        ' 루프(loop)를 시작        iRow = iRow + 1                                         ' 표시위치        [A1].Offset(iRow, 0) = sFile    ..