재능iN 월간최다 재능기부 회원

필농군 채택재능수 (9)
여자와아이는놔줘 채택재능수 (2)
BMOooooo 채택재능수 (1)

재능iN

[문서작업]

엑셀 매크로 질문 드립니다.ㅠㅠ

크브 2023-06-10 (토) 14:44 조회 : 720

예제.xlsm (185.6KB), 2023-06-10 14:44:49

https://etoland.co.kr/link.php?n=8525415 복사

저는 매크로는 1도 모르는 완전 초보구요..

예제파일 보시면

동호수별로 1명일 경우 1장만

5명일 경우 5장이 나오게끔 하고 싶은데 방법좀 알려주세요

크브 게시물보기 구독

자기소개가 없습니다

자기소개 더보기

요청자가 자신의 500포인트를 걸었습니다. 요청이 채택되면 250포인트를 드립니다.

댓글 3개 댓글쓰기

나는될놈이다

2023-06-10 (토) 15:50

되는지 한 번 해보세여.
MsgBox는 임의로 넣었는데 매크로가 성공하면 인쇄 할 장수가 몇장인지 볼 수 있게 했고요.
매크로가 실패(동호수가 잘못 기입되어 있을 경우)하면 "동호수를 확인하라는 메세지가 뜨게 바꿨습니다.

Sub 매크로1()
Dim copies As Integer
Dim ws As Worksheet
Dim cell As Range

Set ws = ActiveSheet
copies = 0

For Each cell In ws.Range("AQ10:AQ14")
If Not IsEmpty(cell) Then
copies = copies + 1
End If
Next cell
MsgBox "인쇄 할 장수: " & copies
If copies > 0 Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=copies, Collate:=True, IgnorePrintAreas:=False
MsgBox "인쇄 할 장수: " & copies
Else
MsgBox "동호수를 확인해 주세요"
End If
End Sub