무성의한 블로그

• 빅데이터_분석활용_가이드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