Excel & VBA---Brain Training

아래의 구문을 실행 시키시면..

Sub createSheet()
Dim iX As Integer
Dim bX As Boolean
Dim shtX As Worksheet
'순환문형식의 요사이는 잘 사용하지 않는 
'오래된 버전 While~Wend를 일부러 사용하였다
'눈에 익숙하게 하기 위하여..
While Not bX
    iX = iX + 1
    Set shtX = Worksheets.Add
    shtX.Name = iX & "_"
    shtX.Range(shtX.Cells(1, 1), shtX.Cells(100, 100)) = getRandomDatas
    If iX = 30 Then bX = True
Wend
End Sub

Function getRandomDatas()
Dim iX As Integer
Dim iY As Integer
Dim arrX(1 To 100, 1 To 100) As Integer
For iX = 1 To 100
    For iY = 1 To 100
        arrX(iX, iY) = Application.Ceiling(Int(Rnd() * 1500) + 500, 100)
    Next
Next
getRandomDatas = arrX
End Function

한장의 시트에 행방향 100*열방향 100 셀에
난수가 작성된다
문제는 이 30장의 시트를 각각 하나의 통합문서를 만들어서
각각의 시트를 옮긴후 100개의 열을 5개의 열씩 끊어서
행방향으로 이동 시킨후(즉 100개의 열이 5개의 열이 되면서
행방향으로 행의 갯수가 2000개가 되는 셈이다)
실행하는 통합문서가 있는 폴더내에 5개의 폴더를 만들어서
하나의 폴더에 6개씩의 통합문서가 저장되게 한다


폴더의 이름은 아래와 같이 하고 각각의 폴더에 6개의 통합문서가
저장되는 셈이다

• Loop Structure
• WorkSheet.Move
• FileSystemObject.CreateFolder
• FileSystemObject.FolderExists
• FileSystemObject.FileExists
• FileSystemObject.DeleteFile
• FileSystemObject.
• Workbook.Close
• Range.ClearContents
• Range.Resize

***[LOG-IN]***