|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007):
* 아래줄에 질문을 작성하세요 >>
중소기업에서 각 외주 협력사에 작업지시 업무를 하고있습니다.
작업지시서를 작성하여 배포하고 이것을 매크로를 이용하여 데이터베이스 시트에 쌓이게 하고싶습니다.
고수님의 도움이 필요합니다.
==============[애니킴님 글에 대한 답변입니다]==============
Sub 작시서DB()
Dim IntX, IntY, IntR, IntD As Integer
Dim RngR, RngD As Range
Application.ScreenUpdating = False
IntR = WorksheetFunction.CountA(Sheet17.Range(Cells(6, 1), Cells(15, 1)))
Sheet9.Select
IntD = WorksheetFunction.CountA(Sheet9.Range(Cells(4, 1), Cells(4, 1).End(xlDown)))
For IntX = 1 To IntR
Sheet9.Cells(3 + IntD + IntX, 1) = IntD + IntX
Sheet9.Cells(3 + IntD + IntX, 2) = Sheet17.Cells(IntX + 5, 1)
Sheet9.Cells(3 + IntD + IntX, 3) = Sheet17.Cells(IntX + 5, 2)
Sheet9.Cells(3 + IntD + IntX, 4) = Sheet17.Cells(3, 2)
Sheet9.Cells(3 + IntD + IntX, 5) = Sheet17.Cells(3, 4)
Sheet9.Cells(3 + IntD + IntX, 6) = Sheet17.Cells(3, 6)
Sheet9.Cells(3 + IntD + IntX, 7) = Sheet17.Cells(IntX + 5, 3)
Sheet9.Cells(3 + IntD + IntX, 8) = Sheet17.Cells(IntX + 5, 4)
Sheet9.Cells(3 + IntD + IntX, 9) = Sheet17.Cells(IntX + 5, 5)
Sheet9.Cells(3 + IntD + IntX, 10) = Sheet17.Cells(IntX + 5, 6)
Sheet9.Cells(3 + IntD + IntX, 11) = Sheet17.Cells(IntX + 5, 7)
Sheet9.Cells(3 + IntD + IntX, 12) = Sheet17.Cells(IntX + 5, 8)
Sheet9.Cells(3 + IntD + IntX, 13) = Sheet17.Cells(IntX + 5, 9)
Sheet9.Cells(3 + IntD + IntX, 14) = Sheet17.Cells(IntX + 5, 10)
Next IntX
Sheet17.Select
End Sub
|
|