무성의한 블로그

일본 여행 일정

1. 김포 -> 도쿄

2. 도쿄 -> 삿포로

3. 삿포로 -> 도쿄

4. 도쿄 -> 서울

1. 김포 출발

출발(Departure) 서울, Gimpo Intl Arpt (GMP) 02MAY17 07:45 Terminal No : I

이른 아침 비행기로 가기 위해 일찍 출발했습니다. 

처음 가는 일본이라 무척이나 들뜨네요. 

ANA 항공입니다. 

도쿄까지 

마침 추석 기간에 연휴가 있어서 가족들끼리 여행 갈 계획을 세웠다. 

알아보던 중에 러시아가 있었고 바이칼 호수가 있는 이르쿠츠크로 여행지를 정했다. 

러시아에 들어가기 위해서는 먼저 러시아 대사관에 가서 사증을 받아야 한다는데 혹시 이게 잘못되면 비행기표만 날리게 된다. 

뭐 별일이야 있겠나 싶네. 

삿포로 여행을 준비합니다. 하나씩 진행합니다. 

일정은 4박 5일, 

여행 기간이 더 길어지면 피곤해집니다. 

일정은 김포 -> 도쿄, 다음날 도쿄 -> 삿포로 

귀국 삿포로 -> 도쿄, 도코 -> 김포입니다. 

뭔가 유익한 정보를 게제해야 할텐데.

엑셀의 여러 파일을 열어 단어를 추출하는 매크로입니다. 

Sub getFolder()

    '각종 변수 선언

    Dim strPath As String

    Dim strNm As String

    Dim i As Integer

    Dim fdFolder As FileDialog

    Dim lngCount As Long

    ' 현재 있는 데이터를 모두 삭제해야 함.

    Sheets("fileSheet").Activate

    ActiveSheet.Range("d3").Value = ""

    ActiveSheet.Range("b9:f10000").Value = ""

    ActiveSheet.Cells(8, 6).Value = 9

    Cells(1, 1) = "단어:"

    Cells(1, 3) = "을"

    Cells(1, 5) = "행"

    Cells(1, 7) = "열부터"

    Cells(1, 10) = "행"

    Cells(1, 12) = "열까지에서 찾기"

    Range("B1,D1,F1,I1,K1").Select

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideVertical)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideHorizontal)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Interior

        .Pattern = xlSolid

        .PatternColorIndex = xlAutomatic

        .Color = 65535

        .TintAndShade = 0

        .PatternTintAndShade = 0

    End With

    Cells(8, 5) = "*.xls*"

    '서브폴더의 내용을 가져옴

    Set fdFolder = Application.FileDialog(msoFileDialogFolderPicker)

    With fdFolder

        .Title = "검색할 폴더를 선택 하세요"

        If .Show = -1 Then

            Range("D8") = .SelectedItems(1) '선택한 폴더명을 A3 셀에 저장

            folderspec = Range("D8").Value

            SearchSubFolders2

        End If

    End With

    Cells(8, 6) = "=counta(C9:C2000)"

End Sub

Sub extractWord()

'

    '변수 선언 integer 는 32767 까지의 값만을 지원한다.

    Dim i As Integer

    Dim maxVal As Integer

    Dim startVal As Integer

    Dim nextVal As Integer

    Dim fileCnt As Integer           ' 파일의 수

    Dim sheetCnt As Integer     ' 파일의 시트 수

    Dim sNo As Integer          ' 처리한 시트 수

    Dim cellPnt As Integer

    Dim rowCnt As Integer

    Dim colCnt As Integer

    Dim f_name As String        '읽고자 하는 파일명

    Dim t_name As String        '매핑정의서에 기재된 소스테이블명

    Dim file_name As String      '파일명 전체

    Dim targetWord As String   '찾고자하는 단어명

    Dim cellVal As String       '단어를 찾은 셀의 내용

    '변수 기본값 할당

    i = 9           ' 첫 파일명이 세번째 줄에 있음.

    cellPnt = 2     ' 두번째 줄부터 써야 함.

    maxVal = 0      '   초기화

    startVal = 1    ' 파일 찾기 시작

    nextVal = 0     '   초기화

    '처리할 파일의 갯수\

    orgWorkBookName = ActiveWorkbook.Name

    fileCnt = Cells(8, 6).Value

    targetWord = Sheets("fileSheet").Cells(1, 2).Value

    srVal = Sheets("fileSheet").Cells(1, 4).Value

    scVal = Sheets("fileSheet").Cells(1, 6).Value

    erVal = Sheets("fileSheet").Cells(1, 9).Value

    ecVal = Sheets("fileSheet").Cells(1, 11).Value

    ' 현재 있는 데이터를 모두 삭제해야 함.

    Sheets.Add after:=Sheets(1)

    Sheets(2).Name = "단어추출-" & Date & Hour(Time) & Minute(Time) & Second(Time)

    Sheets(2).Activate

    Cells(1, 1).Value = "번호"

    Cells(1, 2).Value = "폴더명"

    Columns("b:b").ColumnWidth = 20

'    Rows("8:8").RowHeight = 35.25

    Cells(1, 3).Value = "파일명"

    Columns("c:c").ColumnWidth = 40

    Cells(1, 4).Value = "시트명"

    Columns("d:d").ColumnWidth = 20

    Cells(1, 5).Value = "셀위치"

    Cells(1, 6).Value = "조회결과"

    Columns("f:f").ColumnWidth = 20

    Range(Cells(1, 1), Cells(1, 7)).Select

    Selection.AutoFilter

    '반복하며 파일 처리 함

    Do While i < fileCnt + 9

        sNo = 1

'        ' 파일열기

        d_name = Sheets("fileSheet").Cells(i, 2).Value

        f_name = Sheets("fileSheet").Cells(i, 3).Value

        file_name = d_name + "\" + f_name

        Dim fs, f, s

        Set fs = CreateObject("Scripting.FileSystemObject")

        Set f = fs.GetFile(file_name)

            Workbooks.Open Filename:=file_name

            sheetCnt = ActiveWorkbook.Sheets.Count

    '        '시트 수 만큼 반복하며 확인할 것

            Do While sNo <= sheetCnt

                Workbooks(f_name).Activate

                If Sheets(sNo).Visible = False Then

                Else

                    Sheets(sNo).Select

                    sName = Sheets(sNo).Name

                    With Worksheets(sNo).Range(Cells(srVal, scVal), Cells(erVal, ecVal))

                        Set c = .Find(targetWord, LookIn:=xlValues)

                        If Not c Is Nothing Then

                            firstAddress = c.Address

                            Do

                                cellVal = c.Value

                                '확인된 시트명을 결과시트에 적기

                                Workbooks(orgWorkBookName).Activate

                                Sheets(2).Activate

                                ActiveSheet.Cells(cellPnt, 2).Select

                                ActiveSheet.Cells(cellPnt, 1).Value = Str(i - 8) + "/" + Str(fileCnt)

                                ActiveSheet.Cells(cellPnt, 2).Value = d_name

                                ActiveSheet.Cells(cellPnt, 3).Value = f_name

                                ActiveSheet.Cells(cellPnt, 4).Value = sName

                                anchorinfo = file_name + "#" + sName + "!" + c.Address

                                ActiveSheet.Hyperlinks.Add anchor:=Cells(cellPnt, 5), Address:=anchorinfo, TextToDisplay:=c.Address

                                ActiveSheet.Cells(cellPnt, 6).Value = cellVal

                                cellPnt = cellPnt + 1

                                Set c = .FindNext(c)

                                If c Is Nothing Then

                                    Exit Do

                                End If

                            Loop While Not c Is Nothing And c.Address <> firstAddress

                        Else

                            '확인된 시트명을 결과시트에 적기

                            Workbooks(orgWorkBookName).Activate

                            Sheets(2).Activate

    '                        ActiveSheet.Cells(cellPnt, 2).Select

                            ActiveSheet.Cells(cellPnt, 1).Value = Str(i - 8) + "/" + Str(fileCnt)

                            ActiveSheet.Cells(cellPnt, 2).Value = d_name

                            ActiveSheet.Cells(cellPnt, 3).Value = f_name

                            ActiveSheet.Cells(cellPnt, 4).Value = sName

                            ActiveSheet.Cells(cellPnt, 5).Value = "없음"

                            ActiveSheet.Cells(cellPnt, 6).Value = "없음"

                            cellPnt = cellPnt + 1

                        End If

                    End With

                End If

                Cells(cellPnt, 1).Select

                sNo = sNo + 1

            Loop

            '파일 닫기

            Application.DisplayAlerts = False

            Workbooks(f_name).Close SaveChanges:=False

         i = i + 1

    Loop

    Range("a1:k1000").Select

    With Selection.Font

        .Name = "맑은 고딕"

        .Size = 10

    End With

    MsgBox ("작업을 완료하였습니다.")

End Sub

Sub SearchSubFolders2()

    Dim result As String

    Dim strFilter As String

    Dim Msg As String

    Dim strDir As String

    Dim r As Long

    strDir = Range("D8").Value

    If strDir = "" Then

        MsgBox ("선택된 폴더가 없습니다. 폴더를 선택하세요.")

        Exit Sub

    End If

    r = 8

    Sheets(1).Cells(r, 2) = "폴더명"

    Sheets(1).Cells(r, 3) = "파일명"

    Sheets(2).Range("a1:d1").Font.Name = "Arial"

    r = r + 1

    If Trim(Right(strDir, 1)) <> "\" Then strDir = strDir & "\"

    strFilter = Range("E8").Value

    result = sRetrieve(strDir, strFilter, r)

End Sub

Private Function sRetrieve(sPath As String, strFilter As String, r As LoadPictureConstants) As String

    Set fs = CreateObject("Scripting.FileSystemObject")

    Set dDirs = fs.getFolder(sPath)

    For Each dDir In dDirs.SubFolders

        sRetrieve = sRetrieve(dDir.Path, strFilter, r) ' Here is the recursion

    Next

    For Each fFile In dDirs.Files

        If fFile.Name Like "~*" Then

        ElseIf fFile.Name Like strFilter Then

            Sheets(1).Cells(r, 2) = fFile.parentfolder.Path

            Sheets(1).Cells(r, 3) = fFile.Name

            r = r + 1

        End If

    Next

    Set fs = Nothing

End Function

나무위키---

'안'은 '아니'의 준말이며 '않'은 '아니하-'의 준말이다. 즉, 사용시 '아니하'를 대입하여 말이 되면 않, 안 되면 안이 들어간다.

예) 그렇지 않다 = 그렇지 아니하다(O)
예) 그건 않 된다 = 그건 아니하 된다(X)

국립국어원----
안녕하십니까?
‘안/앉/않’은 쓰임과 뜻이 다른 각각의 단어와 어근입니다.
‘안’은 여러 뜻이 있지만 ‘아니’의 준말로 {안 벌고 안 쓰다/안 춥다./비가 안 온다.}처럼 씁니다. 
‘앉’은 ‘앉다’의 어간으로 {의자에 앉다/바닥에 앉아서 책을 읽었다./모두 자리에 앉으세요.}처럼 씁니다.
‘않’은 ‘않다’의 어간이며, ‘어떤 행동을 아니하다’의 뜻으로 {그는 말을 않고 떠났다./꼬마는 세수를 않고 밥을 먹으려고 해 엄마에게 혼이 났다.}처럼 씁니다.
보다 자세한 단어의 뜻과 용례는 국립국어원 누리집에서 제공하는 <<표준국어대사전>>에서 검색할 수 있습니다.
감사합니다.

또다른 구분법으로는

'않/안'을 빼서 말이 되면 '안', 말이 안되면 '않'이다라는 게 있다. 

가지 않았다. 빼서 말이 안되므로 않 

안 먹는다. 빼서 말이 되므로 안

http://www.korean.go.kr/nkview/nknews/200006/23_5.htm 참조

요약하면  숫자를 우리말로 쓸 때는 만 단위로 끊어쓴다. 

 . 삼천이백사십삼조 칠천팔백육십칠억 팔천구백이십칠만 육천삼백오십사

 . 3243조 7867억 8927만 6354

 . 3,243,786,789,276,354

우리말 숫자가 아닌 아라비아 숫자 다음에 바로 단위성 의존 명사인 ‘원’이 

나오면 붙여 쓸 수 있다.

 숫자를 우리말로 쓴 경우인데, 이때에는 붙여 쓸 수 없다. 다시 말해 ‘열개’와 

같이 적지는 못하게 되어 있다는 뜻이다.

 . 7890 원 (원칙) / 7890원 (허용)

 . 10개, 35명, 9미터, 600근, 1그램, 3년 6개월 20일간

 . 10 개, 35 명, 9 미터, 600 근, 1 그램, 3 년 6 개월 20 일간

 . 열 개, 삼십오(서른다섯) 명, 구 미터, 육백 근, 일 그램, 삼 년 육 개월 

안된다 -> 된다/안된다로 사용할 때 사용 가능 

안 된다 -> 된다를 부정할 때 사용

밥을 먹으면 안 된다. 

아직 안된 일은 중단하세요. 

되었다가 맞는 표현임. 

돼는 되어의 축약형.

되어었다로 풀어볼 것

알리에서 구입한 자전거 헬멧입니다. 

자전거 헬맷이 있기는 하지만 겨울이라 눈에 찬바람이 불어오면 시리기도 하고 해서 고글이 있는 것으로 하나 더 샀습니다. 

고글만 사서 쓰는 방법도 있겠지만 안경을 써야 하므로 헬멧을 다시 사는 걸로 했습니다. 

매장에 가서 살수도 있겠다음이나 네이버 쇼핑에서 검색하면 제품이 다양하게 있습니다. 

해외 배송의 경우 5만8천원입니다. 

어차피 해외배송이니 그냥 알리에서 구입하는게 더 편합니다. 

28달러에 샀는데 좀 더 내렸네요. .

https://www.aliexpress.com/item/2016-Cycling-Helmet-Evade-Goggle-LED-Light-Ultralight-Road-Bike-Casco-Ciclismo-Bicicleta-Capacete-Men-Women/32621564871.html?spm=2114.13010608.0.0.hXT8KE

10월 12일 주문하고 10월 28일 물건을 받았으니 16일 걸렸네요. 

알리 치곤 빠른 편입니다. 두 달 넘게 걸린 적도 있었으니....

제품은 마음에 듭니다. 추천.

포장은 박스 없이 비닐에 싸여 왔습니다. 

완충재로 두어번 말아서 보냈습니다. 

특징: 

안경을 쓴 상태에서도 편하게 착용 가능합니다. 

헬멧이 가벼워서 머리가 편합니다. 

머리 모양에 상관없이 잘 맞는 것같습니다. 

헬멧뒤에 등이 있어서 교통사고를 방지할 수 있습니다. 

헬멧 뒤쪽에 버튼을 감거나 풀어서 크기를 조정할 수 있습니다. 

안쪽은 별 특징이 없네요. 뒤쪽에 있는 빨간색 쿠션 뒤에 크기조절 버튼이 있습니다. 

헬멧 뒤쪽에 rear light 가 있습니다. 

빨간 색으로 켜져 있거나 반짝이는 두 가지 모드를 제공합니다.  

고글입니다. 자석을 이용한 탈착식입니다. 

단단하게 고정되니까 도로 주행중에 떨어져나갈 것같지는 않습니다. 

고글을 잡고 헬멧을 옆으로 들어도 고글이 떨어지지 않을 정도로 자력이 셉니다. 

헬멧을 정면으로 눕히거나 뒤집어서 들면 

빠집니다. 

바람이 불지 않거나 답답할 때는 뒤집어서 올려둘수 있습니다. 

학교다닐 때 영어 교재에서 한번쯤 본듯한 문장인데 생각이 안난다.

돈 내는 사람이 하고 싶은대로 한다. 대략 이런 뜻.

He who pays the piper calls the tune.

Prov. If you are paying for someone's services, you can dictate exactly what you want that person to do. When Mrs. Dalton told the artist what she wanted her portrait to look like, the artist cringed to think that anyone could have such bad taste. Still, he who pays the piper calls the tune, and Mrs. Dalton got what she wanted.

See also: call, he, pay, piper, tune, who

McGraw-Hill Dictionary of American Idioms and Phrasal Verbs. © 2002 by The McGraw-Hill Companies, Inc.

He who pays the piper calls the tune.

something that you say which means that the person who provides the money for something can decide how it should be done You may not agree with Mr Brown but he funded this venture, and he who pays the piper calls the tune.

See also: call, he, pay, piper, tune, who

Cambridge Idioms Dictionary, 2nd ed. Copyright © Cambridge University Press 2006. Reproduced with permission.