나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 위저드 (kclim-e)

추천:  2
파일:     급여명세(도움요청자료).zip (103.6KB) 조회:  6295
제목:   사원 급여명세 다중출력 코드수정 도움요청.
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...): 

* 아래줄에 질문을 작성하세요 >>
 먼저, 첨부자료의 양식을 본 "엑사모" 게시물에서 인용하였고 원래의 게시하였
 던분에게 양해를 구합니다. (인쇄에 관련하여 부분적 수정도움이 필요하여 
 게시판에 인용첨부 하였습니다. )

 * 질문의 요지는 첨부자료의 "급여명세" 전사원출력에 관한것입니다. 
   출력용지 한장에 2명의 명세가 들어가며, 많은직원이 있을시, 부서별 또는
   일부여러명의 인명을 출력시 이에따른 코드수정이 필요해서 도움글 올립니다.
   자세한 내용은 - 첨부자료의 "도움글"시트에 기록하였습니다.-  살펴봐주시고
   선배분들의 코드수정을 부탁드립니다.    - 감사합니다 -
 
[불량 게시물 신고]  
김종철안녕하세요?

아래의 코드는 첨부하신 파일의 매크로를 약간 수정한 것입니다.

Sub 전사원인쇄()
Worksheets("급여명세서").Activate
StartNum = val(InputBox("시작"))
EndNum = val(InputBox("끝"))
For 사원번호 = StartNum To EndNum Step 2
Range("C2") = 사원번호
단표인쇄
Next 사원번호
End Sub
06-28 (16:23)
삭제 ■신고
위저드* 김종철님! 고맙습니다.
  깔끔하게 코드를 잡아주셨군요. 
  그런데, 약간의 문제가 ... 
  전사원인쇄 버튼을 누른후, 시작창에서 숫자입력을 하지않고
  취소버튼을 누를시, 취소가 되지않고 "0"연번으로 넘어가면서
  (인명 : #value 상태) 인쇄가 실행되는군요. 
  이부분을 잡아주셨으면 합니다만 ..
  불편을 끼쳐드려서 죄송합니다.   그럼, 이만 ...
06-28 (20:21)
삭제 ■신고
김종철Sub 전사원인쇄()
DIm StartNum,EndNum as integer
Worksheets("급여명세서").Activate
StartNum = val(InputBox("시작"))
if startnum<1 then exit sub
EndNum = val(InputBox("끝"))
For 사원번호 = StartNum To EndNum Step 2
Range("C2") = 사원번호
단표인쇄
Next 사원번호
End Sub
06-28 (23:05)
삭제 ■신고
위저드* 김종철님! 관심갖고 마무리 해주셔서 고맙습니다. 
   깨끗하게 잘됩니다. 게시물을 보니, 많은분들에게
   도움을 주시고 계시더군요. 많은 가르침 바랍니다.
   그럼, 건강하시고 하시는일 잘되시길 ...
06-29 (02:14)
삭제 ■신고
        
  

작성일 : 2003-06-28(16:04)
최종수정일 : 2003-06-28(16:04)