|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):2000
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):98
3. CPU (486,PentiumI/II/III/IV...):3
4. RAM (32,64,128,256,512MB,1G...): 256
* 아래줄에 질문을 작성하세요 >>
메트로사용중에 잘몰라서여
아래 내용 자세히 설명을 좀 부탁드려여
Sheets("2번").Select
Range("a4").Select
If a4 = ActiveCell Then GoTo 1000
Sheets("1번").Select
Range("A4").Select
ActiveCell.FormulaR1C1 = "='2번'!RC"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("1번").Select
Sheets("2번").Select
Range("a5").Select
If a5 = ActiveCell Then GoTo 1000
Sheets("1번").Select
Range("A4").Select
ActiveCell.FormulaR1C1 = "='2번'!R[1]C"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("1번").Select
Sheets("2번").Select
Range("a6").Select
If a6 = ActiveCell Then GoTo 1000
Sheets("1번").Select
Range("A4").Select
ActiveCell.FormulaR1C1 = "='2번'!R[2]C"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("1번").Select
Sheets("2번").Select
Range("a7").Select
If a7 = ActiveCell Then GoTo 1000
Sheets("1번").Select
Range("A4").Select
ActiveCell.FormulaR1C1 = "='2번'!R[3]C"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
1000 Sheets("1번").Select
End Sub
감사 감사
|
|