무성의한 블로그

• 빅데이터_분석활용_가이드v1.0.pdf
  

http://www.nia.or.kr/bbs/board_view.asp?BoardID=201111281321074458&id=10343&Order=010200&search_target=&keyword=&Flag=010000&nowpage=2&objpage=0

Ⅰ. 가이드 v1.0의 의의와 활용

1. 목적과 필요성

2. 구성과 범위

3. 빅데이터 분석의미와 활용 범위

Ⅱ. 빅데이터 분석을 위한 단계별 가이드

A. 빅데이터 분석환경 구축형 가이드

1. 계획 단계

2. 설계 단계

3. 구축 단계

4. 운영 및 관리 단계

5. 확장 단계

B. 빅데이터 분석 서비스 활용형 가이드

1. 시험 단계

2. 연계 단계

참고자료 1. 가이드의 상세구성과 점검 항목 총괄표

참고자료 2. 빅데이터 용어

아래 링크로 가시면 좋은 자료를 받을 수 있습니다. 

• 새로운_미래를_여는_빅데이터_시대.pdf
  

전체 585페이지

제1편  데이터 분석 기반 국가미래전략
 
제2편  빅데이터 기반 정부혁신 방향
 
제3편  빅데이터를 통한 국가사회 현안문제 해결
 
제4편  빅데이터 시대 새로운 신기술과 활용방향

http://www.nia.or.kr/bbs/board_view.asp?BoardID=201111281321074458&id=10436&Order=010200&search_target=&keyword=&Flag=010000&nowpage=2&objpage=0

지난 3개월간 바라크루드는 좀 줄었고 비리어드는 매출액의 변화가 별로 없네요.

지키는 바라크루드보다 쫓는 비리어드가 힘들 것같네요.

http://www.newsmp.com/news/articleView.html?idxno=111822

특별한 것은 없는데 중간에 하이퍼링크 거는 방법을 참고하시라고 올려봅니다.

Sub extractWord()

'

' Macro1 Macro

'

    '변수 선언 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     '   초기화

    '처리할 시트의 위치

    startSht = Cells(1, 2).Value

    jobName = Cells(2, 2).Value

    sColVal = Cells(1, 4).Value

    sRowVal = Cells(1, 6).Value

    eColVal = Cells(2, 4).Value

    eRowVal = Cells(2, 6).Value

    titleVal = Cells(2, 10).Value

    ' 시트를 새로 만든다.

    orgBookName = ActiveWorkbook.Name

    Sheets.Add after:=Sheets(1)

    Sheets(2).Name = jobName & Date & Hour(Time) & Minute(Time) & Second(Time)

    Cells(1, 4).Activate

    ActiveCell.FormulaR1C1 = "=COUNTA(R[1]C:R[3000]C)"

    '반복하며 파일 처리 함

        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

                If sNo < startSht Then

                Else

                    Workbooks(f_name).Activate

                    If Sheets(sNo).Visible = xlSheetVisible Then

                        Sheets(sNo).Select

                        sName = Sheets(sNo).Name

                        If sNo = startSht Then

                            Range(Cells(sColVal - titleVal, sRowVal), Cells(eColVal, eRowVal)).Select

                        Else

                            Range(Cells(sColVal, sRowVal), Cells(eColVal, eRowVal)).Select

                        End If

                        Selection.Copy

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

                        Workbooks(orgBookName).Activate

                        If sNo = startSht Then

                            ActiveSheet.Cells(cellPnt + titleVal, 1).Value = sNo

                            anchorinfo = file_name + "#'" + sName + "'!A1"

                            ActiveSheet.Hyperlinks.Add Anchor:=Cells(cellPnt + titleVal, 3), Address:=anchorinfo, TextToDisplay:=sName

                        Else

                            ActiveSheet.Cells(cellPnt, 1).Value = sNo

                            anchorinfo = file_name + "#'" + sName + "'!A1"

                            ActiveSheet.Hyperlinks.Add Anchor:=Cells(cellPnt, 3), Address:=anchorinfo, TextToDisplay:=sName

                        End If

                        Cells(cellPnt, 4).Select

                        ActiveSheet.Paste

                        lastRow = Cells(1, 4).Value

                        If sNo = startSht Then

                            ActiveSheet.Cells(cellPnt + titleVal, 2).Value = lastRow - (titleVal)

                            Range(Cells(cellPnt + titleVal, 1), Cells(cellPnt + titleVal, 3)).Copy

                            Range(Cells(cellPnt + titleVal + 1, 1), Cells(lastRow - cellPnt + 3, 3)).Select

                            ActiveSheet.Paste

                        Else

                            pgmCnt = lastRow - cellPnt + 2

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

                            Range(Cells(cellPnt, 1), Cells(cellPnt, 3)).Copy

                            Range(Cells(cellPnt + 1, 1), Cells(cellPnt + pgmCnt - 1, 3)).Select

                            ActiveSheet.Paste

                        End If

                        cellPnt = lastRow + 2

                    End If

                End If

                sNo = sNo + 1

            Loop

            '파일 닫기

            Application.DisplayAlerts = False

            Workbooks(f_name).Close SaveChanges:=False

         i = i + 1

    Cells(titleVal + 1, 1).Value = "시트번호"

    Cells(titleVal + 1, 2).Value = "프로그램목록 수"

    Cells(titleVal + 1, 3).Value = "시트명"

    Rows("2:3000").Select

    Selection.RowHeight = 16.5

    Cells(titleVal + 2, 4).Select

    ActiveWindow.FreezePanes = True

    Sheets(2).Range(Cells(titleVal + 1, 1), Cells(titleVal + 1, 38)).Select

    Selection.AutoFilter

    Cells(1, 7).Select

'    ActiveWorkbook.SaveAs Filename:="c:\temp\test.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

    ActiveWorkbook.Save

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

End Sub

외부에서 하나의 텍스트 파일로 제공된 파일을 정해진 크기에 맞춰 자르는 매크로 소스입니다. 

파일이 없으면 확인하기도 어렵겠지만 처리하는 방식을 참조하시기 바랍니다. 

첫번 째 시트에 텍스트 파일을 옮겨놓습니다. 텍스트파일은 sam파일이나 cdr 데이터 등 일겁니다.

두번째 시트에 작업을합니다. 

시작은 두번째 시트에서 시작합니다. 

Sub chopText()

    Cells(4, 3).Select

    ActiveCell.FormulaR1C1 = "=COUNTA(R[3]C:R[300]C)"

    colCnt = Cells(4, 3)

    '테이블 정의 읽어오기

    Range(Cells(6, 3), Cells(colCnt + 6, 3)).Select

    Selection.Copy

    Cells(3, 12).Select

    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

    Range(Cells(6, 6), Cells(colCnt + 6, 8)).Select

    Selection.Copy

    Cells(4, 12).Select

    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

    '컨텐츠 복사해 오기

    Sheets("데이터").Select

    Range(Cells(1, 1), Cells(100000, 10)).Select

    Selection.Copy

    Sheets("수행").Select

    Cells(7, 13).Select

    ActiveSheet.Paste

    Cells(2, 12).Select

    ActiveCell.FormulaR1C1 = "=COUNTA(R[5]C:R[100000]C)"

    txtCnt = Cells(2, 12)

    '7번에 있는 레코드는 헤더

    t = 8

    Do While t < txtCnt + 6

        chopTxt = Cells(t, 12)

            i = 13

            Do While i < colCnt + 14

                chopLen = Cells(5, i)

                Cells(t, i + 1).Select

                Selection.NumberFormatLocal = "@"

                Cells(t, i + 1) = Mid(Cells(t, i), chopLen + 1)

                Cells(t, i).Select

                Selection.NumberFormatLocal = "@"

                Cells(t, i) = Mid(Cells(t, i), 1, chopLen)

                i = i + 1

            Loop

        t = t + 1

    Loop

 Cells(6, 12).Select

End Sub

Sub clearPage()

    Range(Cells(7, 1), Cells(300, 10)).Clear

    Range(Cells(1, 11), Cells(1000, 400)).Clear

End Sub

인생 v.2.0.
말이 쉽지 기존의 삶으로부터 엄청나게 큰 변화를 하겠다는 것은 사실 매우 어렵다. 
기존의 일정한 패턴에서 들어오는 수입, 근로/여가 등 생활양식의 변화로 인한
불안정성이 높아지고 이에 따른 예기치 않던 문제가 발생하기도 한다. 
대부분은 문제가 발생할 거다. 

그리고 2.0을 위해 투자하는 비용이 만만치 않은데 비해 새로운 시도가 성공한다는 
보장도 없고, 설사 2.0으로 성공적으로 이동했다고 해도 투자 대비 수익이 
기대하던 것만 못할 경우도 많다. 
어쩌면 처음부터 기대수익이 그리 높지 않은 경우도 많다. 
기대수익을 금전적 보상에 한정하지 않고 모든 종류의 만족을 포함해도 큰 차이가 없다.

더우기 가족이 주렁주렁 달린 가장이라면 처음부터 시도하기 힘들 것같고
이 때문에 현재의 삶에 대한 막연한 불만, 아쉬움, 그리고 은퇴 후의 삶에 대한
불안이 점점 실체화되어 다가오는 걸 보면서도 쉽사리 움직이지 못한다.

그렇지만 진부해가는 1.0을 붙잡고 살자니 너무 답답하고 불안하다. 
아직 아무 것도 보이지 않고 뭔가 막막해도 앞으로 나가야 할 것같다. 
앉아 있으나 움직이나 불안하기는 마찬가지니 움직여서 뭔가 다른게 있나 찾아봐야겠다.

한 걸음 뗐는데 더 못가고 주저앉아도 할 수 없고.

오늘부터 많이 기도해야겠다. 

엑셀 매크로를 작성하는 동안 상당히 거슬렸던 것이 autofilter다.

selection.autofilter라고하면 자동으로 필터가 걸리기 때문에 설정도 쉽고

기왕에 설정된 시트에 selection.autofilter를 실행하면 자동으로 해제되기 때문에 해제도 쉽다.

그러나 있으면 없애고 없으면 생기게 하기가 쉽지 않았다. 

 autofilter는 셀 단위로 걸리는데 필터의 설정 여부를 확인하는 것은 시트 단위이다.

따라서 시트의 autofiltermode를 점검해서 true면 넘어가고 false면 설정하면 된다. 

        ' 시트에 자동 필터가 설정되어 있는지 확인한다. 

        afChk = Worksheets("컬럼비교").AutoFilterMode

' 만약 설정되어 있으면

        If afChk = True Then

' 내가 원하는 필터가 아닐 수 있으므로 해제하고 내가 원하는 필터로 교체한다. 

            afChk = Selection.AutoFilter

            Range("A3:K3").Select

            afChk = Selection.AutoFilter

        Else

' 내가 원하는 필터를 설정한다. 

            Range("A3:K3").Select

            afChk = Selection.AutoFilter

        End If

아침에 일찍 일어나서 유니버셜 스튜디오로 가기로했습니다. 

우선 아침일찍 일어나 샤워하고 아이들 씻기고 8시 30분 되기 전에 3층 식당으로 갔습니다 

소문대로 음식은 좋았습니다. 

저렴한 호텔의 소박한 식사와는 전혀 다른 

많은 음식, 많은 과일, 다양한 나라의 음식이 있었습니다 

식사는 만족스러웠습니다 

그런데 아이 둘을 데리고 왔으니 아이들 값은 별도로 계산합니다. 

3일 연속으로 먹으면 만만치 않은 비용이 될 것같네요. 

유니버셜 스튜디오 출발하기 전에 먼저 나나여행사에 들렸습니다. 

가깝다고 하니 걸어가기로 했는데 일단 길을 모르겠고, 싱가포르에는 횡단보다가 많지 않아서

길을 건너기가 쉽지 않았습니다. 

그래서 결국 택시로 이동했습니다. 

홈페이지에 적힌 주소로 가서 2층의 사무실에 들러서 한국에서 주문한 티켓을 받았습니다 

한구에서 주문한 내역을 변경했는데 약간 혼선이 있어서 현지에서는 주문과 다르게 구입했습니다.

확실히 가격은 저렴했습니다만 너무 많이 구입했습니다. 

700달려 가지고 간 돈 중 

어제 택시 타고, 오늘 아침에 택시타고 583달러를 여기서 써버리니 그야 말로 돈이 바닥이 났습니다. 

아내에게 엄청 혼나고 결국 현금서비스를 받아야 했습니다. 

케이블카 타는 곳까지는 택시 타고 이동. 티켓 보여주고 바로 케이블카를 탔습니다. 

높은 데서 보는 경치는 역시 볼만했습니다. 

아 그런데 덥네요. 

유니버셜 스튜디오.

오늘이 목요일이니 아무래도 사람도 적고 놀기에 충분할 거라 생각했는데, 웬걸

사람이 바글바글합니다 너무 많습니다. 차라리 한국의 에버랜드가 낫다는 생각이 드네요. 

첫째(10살, 딸)와 놀이기구를 타기 위해 줄을 섰는데 무섭다네요. 

결국 아무것도 못타고 오전 보내고, 보통 1시간 이상 기다려야 하는 줄을 보고 놀이기구 타는 것은 포기. 

여기저기 구경만하다가 점심 대충 먹고 오후. 구경은 잘 했는데 너무 힘드네요. 

아내는 오늘 회사에 휴가를 냈고, 나는 휴가를 못냈습니다.

오전에 근무하고 오후에 좀 일찍 퇴근하기로 했습니다.  

사이버 환전하겠다고 계획했지만 게으름부리다가 결국 못했습니다. 

찾아보니 다행히 외환은행은 당일 환전이 가능하더군요. 

그래서 급히 사이버 환전을 신청했습니다. 

처음 계획보다 많게 700달러 환전했습니다. 

달려당 900원 정도 하는 것같네요. 

집에서 짐 챙겨서 출발. 

6시 40분 비행기 이므로 좀 넉넉하게 3시 30분 전에 출발했습니다 

집에서 공항까지 40분 정도 걸리는지라. 공항에는 4시 좀 넘어서 도착했습니다. 

환전 하고 라운지에서 좀 쉬다가 비행기를 탔습니다. 

비행기에서는 그냥 내내 잠만 잤습니다. 

싱가포르에 도착하고 공항에서 짐을 찾아서 택시를 타고 호텔로 갔습니다. 

싱가포르에서는 공항에서 10분 내외 거리인데도 20달러/2만원정도 나옵니다. 

호텔에서 늦게 체크인하고 방에서 잠만 잤습니다. 

팬퍼시픽은 호텔도 크고 좋아보이네요.

비지니스호텔이라 아무래도 아이들 시설은 좀 부족합니다. 

준비-

항공권

 - 현대카드 프리비아 에서 예약함.

 - 바우처, 리워드쿠폰 등을 사용하여 예약함.

 - 그럼에도 가격은 만만치 않네요.  

숙박

 - 팬퍼시픽호텔에 예약함. 다른 호텔은 아이 2 동반 불가인 곳이 대부분이네요. 

   추가 비용을 지불한다고 해도 안된다니 어쩔 수가 없었습니다. 

 - 준비는 좀 일찍 시작했지만 일정이 확정되지 않아 호텔 예약이 늦어졌습니다. 

   호텔은 아무래도 빨리 예약하는 게 좋은 호텔 싼 값에 잡을 수 있습니다. 

   늦어도 싼값호텔은 있지만 좋은 호텔은 없습니다.

- 위에 이야기한 것처럼, 싱가포르는 아이 동반 시 반드시 가능 여부를 확인해야 합니다. 

  아니면 현지에서 낭패를 볼 수도 있다고 합니다. 

환전

 - 얼마나 할까 하다가 신용카드를 주로 쓸거나 한 500달러 정도 하기로 했습니다. 

 - 사이버 환전을 해야겠네요. 

예정 일정

1일차- 밤 늦게 도착. 택시로 팬퍼시픽 이동. 늦게 체크인. 

2일차-

 아침일찍 호텔조식먹고 유니버셜스튜디오 관광. 주말전에 보면 아무래도 한가하게 볼 것같아서 일찍 가기로 함. 

3일차-

먹을거리