무성의한 블로그

일본 여행 일정

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)

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

또다른 구분법으로는

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

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

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