1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

업무에 필요한 부분인데 도저히 혼자서는 안되네요.

 

내용은 피복명단시트에 있는 명단으로 개인별 급대여품카드를 작성했습니다.

그리고, 개인별 급대여품카드에  지급수량이 있으면 메인페이지에 있는 지급일이 개인별 카드에 적용 되어야 합니다.

메인페이지에 있는 지급내역 단추를 누르면, 한명만 됩니다. 개인별 카드에 모두 적용해야 하는데...

 

 


댓글 '2'

profile

[레벨:30]아별

2011.07.05 01:48:55
*.130.73.75



자인님.. 안녕하세요?

 

코드 자체가 논리에 맞지 않구요... 불필요한 배열을 너무 많이 쓰시네요..

vba로 짤 이유가 없는 것 같습니다.

 

피복명단 시트에 있는 명단으로 개인별 급대여품카드를 작성할때..

메인페이지에서 정보를 갖고와서 박아버리는게 좋았을것을.. 개인별 카드를 작성하는 코드는 없네요?

암튼.. 현재 데이터 상태에서는 수식으로 필요한 값을 불러오는 것만으로도 충분히 원하는 결과를 얻을 수 있을 것 같습니다.

 

D6셀에 아래 수식을 넣으시고.. 아래쪽은 채우기하세요..

=IF(B6="","",IF(VLOOKUP(A6,메인페이지!$A:$J,4,0)=0,"",VLOOKUP(A6,메인페이지!$A:$J,4,0)))

 

보통은..

데이터베이스(예제에서는 "피복명단")에서 양식에 맞춰 인쇄를 할때에는

양식지는 하나만 두고, 개인별 카드를 만들어서 바로 바로 인쇄 보내버리는 방법을 씁니다.

개인별 카드를 아래쪽으로 쭉 만들어서 한번에 인쇄하진 않구요..

 

이 방법을 응용하면,

개인별 급여명세서나, 주식매매계약서, 우편 주소 라벨 등도 쉽게 제작할 수 있습니다. ^^

 

첨부파일을 참고하세요..

다운받기 : abyulQnA_card_20110704-1.xlsm

 

관련 코드를 작성해봤습니다.

[idxCode]와 [myDB]는 웍크시트에서 미리 정의해논 영역 이름입니다.

Sub printEachCard()
   
    Dim rngID As Range: Set rngID = [idxCode]
    Dim cntDB As Double: cntDB = [myDB].Rows.Count
    Dim i As Long
   
    For i = 1 To cntDB - 1
        rngID.Value = i
        '### 실제 인쇄할때는 아래 미리 보기 코드를 저 아래 PrintOut코드로 대체하면 됩니다.       
        ActiveWindow.SelectedSheets.PrintPreview
'       ActiveWindow.SelectedSheets.PrintOut
    Next i

 

End Sub

 

 

도움이 되셨기를.. 

첨부

[레벨:1]자인

2011.07.05 06:12:39
*.128.70.5

감사합니다. 많은 도움이 되었습니다.

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수sort
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 46344
302 엑셀일반 정렬해서 평균을구하고 차이 여쭤봅니다. file [5] [레벨:4]우보천리 2011-09-30 3264
301 엑셀일반 부분합 질문이요 file [1] [레벨:4]요셉 2013-08-01 3263
300 엑셀일반 프린트시 여백설정방법에 대하여 질문합니다. file [4] [레벨:5]정화 2012-02-17 3262
299 피벗 필드 셀서식에 원본데이터 셀서식 적용이 안됩니다. file [1] [레벨:3]블루짱이 2011-03-30 3261
298 재미난 엑셀 기능구연 가능?? [1] [레벨:6]ryanoh 2010-10-25 3261
297 엑셀일반 rnd함수 질문입니다.. [1] [레벨:4]신강현 2013-01-29 3256
296 VBA 사진 삽입 file [3] [레벨:1]비베초보 2013-12-16 3254
295 엑셀수식 엑셀 함수관련해서 질문드려요 file [레벨:4]요셉 2014-11-04 3247
294 엑셀버그 엑셀이 이상합니다.ㅜㅜ imagefile [1] [레벨:1]여엉 2013-01-29 3242
293 VBA ^^ 또다른 질문입니다. _ 한 시트에서 다른 시트로 데이터를 순차적으로 붙여넣기 file [1] [레벨:2]광택입니다 2011-11-15 3232
292 엑셀일반 기초질문 3개 드립니다. 감사합니다. file [3] [레벨:1]Patric Jane 2013-03-13 3227
291 엑셀수식 이름 범위를 여러열에 걸쳐 지정 후 조건문 수식 만들기 file [1] [레벨:4]성투은자 2013-02-06 3220
290 엑셀수식 분포도 그래프 [1] [레벨:5]눈물바다 2012-09-05 3215
289 엑셀수식 match 함수 #N/A 오류 file [2] [레벨:4]성투은자 2014-02-17 3203
288 아별툴관련질문 설치시 오류 질문드립니다. [4] [레벨:1]pritsno2 2013-06-28 3197
287 드롭다운 메뉴를 만들고 싶습니다 file [4] [레벨:2]파란달 2011-07-21 3193
286 VBA 오늘은 간단한 것 질문할께요 _ VBE 모듈, 유저폼 내보내기(Export) 방법 [4] [레벨:3]엑셀대단해 2012-03-05 3176
285 엑셀수식 자동계산 질문입니다._세금계산서 자리수 & 숫자 한글 표시 file [4] [레벨:5]정화 2011-09-14 3171
284 SUMPRODUCT 이런 다중조건도 가능할까요? file [4] [레벨:2]진주22 2013-04-04 3170
283 엑셀일반 엑셀 수식이 바로 적용이 안됩니다. [1] [레벨:0]soiltree 2013-11-04 3163