무성의한 블로그

유명산 휴양림의 야영데크를 예약했습니다. 

그런데 휴양림은 야영데크에 텐트를 설치해야 하므로 지금 있는 웨더마스터 6 보다 좀 작은 텐트가 필요하네요. 

평범한 텐트가 아닌 뭔가 특이한 거. 바로 티피 텐트를 사기로 했습니다. 

텐트 가격이 이만저만이 아닌지라 늘 그렇듯 아마존에서 마음에 드는 텐트를 구했습니다. 

가격은 100달러 이하, 우리가족 4명이 잘 수 있는 크기. 

기본적으로 티피텐트는 종류가 다양하지 않아요. 

그렇다고 Kodiak Canvas Flex-Bow 6-Person Canvas Tent를 사자니 너무 크고 무겁고..

그래서 아래 제품을 골랐습니다. 

12ft*12ft 여서 4명이 충분히 지낼만하고 가격도 80달러라서 부담도 없고. 

당연히 수입관세도 없지요. 

그리고 한국으로 배송비 35달러만 지불하면 집까지 배송해 줍니다. 

생각보다 크기가 작습니다. 

웨더마스터 6와 비교하면 엄청 나게 작고, 버팔로 타프보다 조금 큰 정도입니다. 

캠핑갈 때 텐트 크기가 줄어서 트렁크에 여유가 생길 것같습니다. 

앞에 있는게 웨더마스터 6, 뒤에 있는게 가이드기어 롯지텐트.

생각했던 것보다 너무 작아서 놀랐습니다. 잘못온 게 아닌가 해서. 

버팔로 타프와 비교해도 별로 크지 않아요. 

6월 22일 유명산에 가서 설치해보고 다시 사진을 올리지요.

아내가 홍콩으로 출장 다녀오면서 사온 쿠키. 

홍콩에서 무척이나 유명하다는 제과점이라네요. 

가게가 으리으리하지는 않다고 합니다. 

혼자 가서는 못 찾을 것같다고 하네요. 

쿠키가 부드럽네요. 부드럽게 씹히고 맛도 부드럽고.

그런데 

몇 년전에 홈플러스 문화센터에서 하는 쿠키만들기에 참가한 적이 있는데 그 때 만든 것과 비슷하다는 생각이 들었습니다. 

뭐 그리 대단하게 맛있다기 보다는 맛은 있지만 국제적 명성이 날만한가 싶은거.

아무튼 맛은 있습니다. 

서재를 정리해야겠다는 생각에 책을 이리저리 보다 보니 
앞으로도 영영 안 볼 책들이 좀 있어서 버릴려고 합니다. 
오래된 책이라 관심 있는 사람들이 있을까 싶지만 
혹시 필요한 책 있으면 연락 주세요. 
배송은 어려울 것같네요. 

을지로 입구역 시청방향으로 삼성화재 뒷편 YG빌딩에 있으니 

누구든지.

1. 중급회계 제 8판, 웅지세무대학 출판부, 2006년
2. 윈도우즈 임베디드 CE 프로그래밍(입문), 정보문화사, 2008
3. Mastering Web Application Development using Microsoft Visual InterDev 6.0, 정보문화사, 2000
4. 무선설비산업기사(필기), 세화 2008
5. Visual Basic 6 시작 그리고 완성, 대림, 1998
6. Visual Basic 6 Programming Bible, 정보문화사, 1999
7. Microsoft 한글 Visual InterDev 6.0 Programmer's guide, 영진출판사, 1998
8. Active Server Page 3.0, 정보문화사, 2000
9. 대한민국개발자희망보고서, 한빛미디어, 2007
10. 품질경영, 북코리아, 2010
11. 제국의역습, 밀리언하우스, 2009

그리고 정보시스템 감리에 관심이 있으신 분들을 위해 
12. 정보시스템 감리, 명경사, 1999

6월 22일 유명산 휴양림 오토캠핑장으로 금년 첫 캠핑 갈 계획입니다. 

아래는 이번 캠핑에서 사용할 준비물입니다. 

엑셀로 데이터를 처리한 후 이를 특정파일에 일일이 저장하는 것은 생각보다 번거로운 일입니다. 

가끔 잊어버리는 경우 백업본이 생성되지 않아 작업결과를 잃어버리기도 하지요. 

아래 코드는 자료 처리를 완료한 후 새로운 엑셀 파일을 만들거나 기존 파일에 작업결과를 저장하는 코드입니다. 

    ' 시트를 새로 만든다.

   ' 현재 작업 파일 정보를 저장한다. 

    orgBookName = ActiveWorkbook.Name

    '먼저 기존 파일 존재 여부 체크함.

    dFile = "C:\temp\result\"

    fFile = "점검결과-" & Year(Date) & Month(Date) & ".xlsx"

    newFileName = dFile & fFile

    Set fs = CreateObject("Scripting.FileSystemObject")

    fileChkTF = fs.fileexists(newFileName)

    '만약 파일이 있으면 기존 파일에 시트를 추가하고 시트명을 부여함.

    If fileChkTF = True Then

  Workbooks.Open newFileName

' 첫번째 시트 앞에 상세시트 추가

        Sheets.Add before:=Sheets(1)

' 시트명이 중복되지 않도록 시분초를 붙임

        Sheets(1).Name = "점검결과상세-" & Date & Hour(Time) & Minute(Time) & Second(Time)

'첫번째 시트 앞에 결과 시트 추가

        Sheets.Add before:=Sheets(1)

        Sheets(1).Name = "점검결과-" & Date & Hour(Time) & Minute(Time) & Second(Time)

    ' 만약 파일이 없으면 새로 파일을 만들어 시트명을 변경함.

    Else

        Workbooks.Add

        ActiveWorkbook.SaveAs Filename:=newFileName, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

        Sheets(1).Name = "점검결과-" & Date & Hour(Time) & Minute(Time) & Second(Time)

        Sheets(2).Name = "점검결과상세-" & Date & Hour(Time) & Minute(Time) & Second(Time)

    End If

    '작업 파일 활성화, 시트 선택후 작업결과부분 복사

    Workbooks(orgBookName).Activate

    Sheets(2).Select

    ccCnt = Cells(5, 3)

    Range(Cells(3, 8), Cells(abCnt, 12)).Copy

   ' 백업 파일을 활성화하여 붙여 넣기    

    Workbooks(fFile).Activate

    Sheets(1).Select

    Cells(2, 1).Select

    ActiveSheet.Paste

  ' 필요할 경우 번호를 자동 부여 함. 

    Cells(2, 1) = 1

    Cells(3, 1) = 2

    Range("a2:a3").Select

    Selection.AutoFill Destination:=Range(Cells(2, 1), Cells(20000, 1))

    Cells(1, 1) = "제목"

    Cells(1, 2) = "세부내용"

    Cells(1, 3) = "수량"

    Cells(1, 4) = "비고"

   ' 다시 작업 파일 활성화 후 복사

    Workbooks(orgBookName).Activate

    Sheets(2).Select

    hcCnt = Cells(2, 17)

    Range(Cells(2, 16), Cells(hcCnt + 2, 18)).Copy

   ' 두번째 시트에 내용 입력    

    Workbooks(fFile).Activate

    Sheets(2).Select

    Cells(2, 1).Select

    ActiveSheet.Paste

    Cells(1, 1) = "날짜"

    Cells(1, 2) = "제목"

    Cells(1, 3) = "결과수"

  ' 저장후 종료                            

    ActiveWorkbook.Close SaveChanges:=True

   '점선 모양 반짝이는 선택 창을 비활성화

    Application.CutCopyMode = False

  ' 가장 앞 셀로 이동       

    Cells(1, 1).Select