|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007):
* 아래줄에 질문을 작성하세요 >>
작업 조건입력란에 있는 번호를
다음탭에 순서대로 나열하고 싶습니다.
사양별로 건너뛰는 번호와 다시 돌아오는 번호가 있어
여러가지 시도 해 봤습니다만.... 방법을 찾지 못 했습니다.
간단한 설명과 도움을 부탁드립니다.
감사합니다.
==============[김춘수님 글에 대한 답변입니다]==============
첨부화일 참조하세요.
Sub CreateSheet()
Dim shtMain As Worksheet, shtX As Worksheet
Dim rTable As Range
Dim iCnt As Integer, iRow As Integer, iCol As Integer, iNo As Integer
Dim rTg As Range
Dim sName As String
Set shtMain = Sheet1
Set rTable = shtMain.Range("B6:F7")
For iCnt = 1 To 2 '2개의 영역을 순환
Set rTable = rTable.Offset((rTable.Rows.Count + 1) * (iCnt - 1))
sName = Split(rTable.Cells(1, 1), "-")(0)
' 기존시트가 있으면 삭제함
On Error Resume Next
Application.DisplayAlerts = False
Worksheets(sName).Delete
Application.DisplayAlerts = True
On Error GoTo 0
' 시트를 추가
Set shtX = Worksheets.Add(After:=Sheets(Sheets.Count))
shtX.Name = sName
Set rTg = shtX.Range("B4") ' 기록할 위치 지정
For iRow = 1 To 2
For iCol = 2 To 5 Step 2
For iNo = rTable.Cells(iRow, iCol) To rTable.Cells(iRow, iCol + 1)
rTg.Cells(iNo, 1) = rTable.Cells(iRow, 1)
rTg.Cells(iNo, 2) = iNo
Next
Next
Next
With shtX.UsedRange
.Borders.LineStyle = xlContinuous
.HorizontalAlignment = xlCenter
End With
Next
End Sub
|
|