|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(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
==============[dew님 글에 대한 답변입니다]==============
감사합니다.
잘 작동하는건 확인 했습니다.
제가 매크로를 모르다보니 조금 더 도움이 필합니다.
보내주신 파일을 확장해 사용하려고 하는데
계속 에러가 뜨고 있습니다.
파일에 주석이나 설명을 조금 달아주시면 공부해서 활용하는데
더 도움이 될 것 같습니다.
감사합니다. |
|