[엑셀 VBA] 예약 DB - 9. 시트의 바우처&견적서 양식에 데이터 뿌리기

작성자
dra****
작성일
2022-11-11 13:29
조회
158

이번 예약 관련 포스팅의 마지막 파트입니다.

데이터가 입력이 끝났고, 고객한테 바우처나 견적서를 인쇄 혹은
카톡으로 전달하고자 할 때 하는 방식입니다.

아래 그림의 빨간색 테두리를 보시면, 예약폼에 있는 정보와 같습니다.

화살표를 다 그리기 힘들어서 몇 개만 그렸습니다.

인쇄에 필요한 데이터(폼 컨트롤)를 배열로 설정합니다.

arrVoucher_fieled = Array("GUEST", "TOFF_DATE", "PAX", "A_TIME")

해당 시트의 Cell 주소도 배열로 만듭니다.

arrVoucher_customer = Array("C24", "B24", "D24", "F24")

Loop를 돌면서 인쇄합니다.

Dim i As Byte
    For i = LBound(arrVoucher_fieled) To UBound(arrVoucher_fieled)    
        arrVoucher_value(i) = Me.Controls(arrVoucher_fieled(i)).value
 
        With ThisWorkbook.Worksheets("Voucher")
            .Range(arrVoucher_customer(i)).value = arrVoucher_value(i)
        End With
    Next i

 

상단에 필요한 매크로 몇 개 더 만들어 클릭만으로 처리하게 하면 끝입니다.

실제 코드들은 위의 것 보다 많이 복잡합니다. 복수개의 예약 관련 내용을 찍는 다던가,

골프장마다 바우처 양식이 다르고, 인쇄 되어야 하는 부분도 달라,

골프장 마다 필드와 Cell 주소가 달라 Customizing 해야 합니다.

 

이상의 포스팅이 누군가에게는 아이디어를 누군가에게는 실질적 도움이 되었으면 좋겠습니다.

스크랩
공유
회원등급 : 29레벨
포인트 : 4276 EP
전체 3

  • 2022-11-11 16:31

    @dra**** 님 세상엔 정말로 숨은 고수분들이 많다는 것을 여기에서 새롭게 느끼고 있슴다..ㅎㅎ;;

    정말 신세계네요


  • 2022-11-13 11:12

    @dra**** 님 게시글과 관련 없는 내용인데요 현재 게시판에 글을 올리수 있는 등급도 안되고, 엑셀에 많이 아시는 것 같아서 질문 드립니다.  급해서ㅠㅠ~~

    다른 파일에 있는 표를 구조적 참조를 하려면 구문을 어떻게 넣어줘야 하는지 궁금해서요, 보통 동일파일의 다른시트에 있는 표를 참조하는 경우에 대해서는 설명이 나와 있는데 다른 파일에 있는 경우는 안되는 것인지 or 설명이 없어요 ㅠㅠ

     


    • 2022-11-13 12:00

      @하이드로킹

      Sub vLook()
      
      Dim wb1 As Workbook
      Dim wb2 As Workbook
      Dim Range1, myValue
      Set wb1 = ThisWorkbook
      Set wb2 = Workbooks.Open("C:\Code\Book4.xlsx")
      
      Range1 = wb2.Sheets(1).Range("A1:C5")
      myValue = Application.WorksheetFunction.VLookup("Test", Range1, 2, False)
      
      End Sub

      흔히 위와 같은 방식으로 다른 파일의 데이터, 표 등등 참조합니다.

      파일을 열지 않고 참조하는 방법을 소개하기도 하는데, 사실은 열어 놓고, 그 파일을 숨기는 꼼수를 써서 하기도 합니다.


전체 69
번호 제목 작성자 작성일 추천 조회
알림
🎉 오피스 분야 30주 연속 1위! - 「 진짜쓰는 실무엑셀 」 전자책이 출간되었습니다! (37)
오빠두엑셀 | 2022.09.28 | 추천 9 | 조회 3088
오빠두엑셀 2022.09.28 9 3088
공지사항
[VBA] 구하라 그러면 주어질 것이다. - VBA 마스터 E-Book (영문판) 첨부파일 (6)
dra**** | 2022.07.19 | 추천 4 | 조회 369
dra**** 2022.07.19 4 369
44293
[엑셀 VBA] 예약 DB - 9. 시트의 바우처&견적서 양식에 데이터 뿌리기 (3)
dra**** | 2022.11.11 | 추천 1 | 조회 158
dra**** 2022.11.11 1 158
44227
[엑셀 VBA] 예약 DB - 8. Listbox 와 폼 컨트롤 연동하고 DB로 보내기
dra**** | 2022.11.09 | 추천 2 | 조회 74
dra**** 2022.11.09 2 74
44219
[엑셀 VBA] 예약 DB - 7. MySQL 클래스와 사용법 (2)
dra**** | 2022.11.09 | 추천 2 | 조회 73
dra**** 2022.11.09 2 73
43438
[엑셀 VBA] 예약 DB - 6. 폼 콘트롤과 DB 필드명 일치시키기
dra**** | 2022.10.21 | 추천 2 | 조회 105
dra**** 2022.10.21 2 105
43292
[엑셀 VBA] 예약 DB - 5. makeSQL() 함수 - INSERT, UPDATE문 자동 생성 (4)
dra**** | 2022.10.18 | 추천 3 | 조회 124
dra**** 2022.10.18 3 124
43091
[엑셀 VBA] 예약 DB - 4. 표 가지고 놀기 (6)
dra**** | 2022.10.13 | 추천 1 | 조회 201
dra**** 2022.10.13 1 201
43017
[엑셀 VBA] 예약 DB -3. 표(테이블, ListObject)을 사용해야 하는 이유1 (11)
dra**** | 2022.10.11 | 추천 1 | 조회 156
dra**** 2022.10.11 1 156
42998
[잡설] 엑셀이 웹으로 가야하는 이유2 (9)
dra**** | 2022.10.10 | 추천 5 | 조회 271
dra**** 2022.10.10 5 271
42982
[엑셀 VBA] 예약 DB - 2. 다시 웹으로 - Access에서 MySQL로 데이터 이식
dra**** | 2022.10.10 | 추천 2 | 조회 133
dra**** 2022.10.10 2 133
40590
[엑셀 VBA] 예약 DB - 1. 엑세스, SQL, Recordset, ListObject 의 상관 관계 (4)
dra**** | 2022.07.29 | 추천 3 | 조회 350
dra**** 2022.07.29 3 350
40511
[잡설] 엑셀의 꽃 파워 쿼리를 버리다. (3)
dra**** | 2022.07.29 | 추천 4 | 조회 579
dra**** 2022.07.29 4 579
40321
[경험담..해결했습니다.] &H80004005(-2147467259)시스템오류 (3)
티엠프이 | 2022.07.25 | 추천 2 | 조회 292
티엠프이 2022.07.25 2 292
40074
M365 업데이트 이후 발생하는 H80004005 (-2147467259) 자동화 오류 해결방법
오빠두엑셀 | 2022.07.23 | 추천 0 | 조회 292
오빠두엑셀 2022.07.23 - 292
39608
엑셀 그래프에 관한 유튜브 채널정보 입니다. (7)
레몬네이드 | 2022.07.15 | 추천 -1 | 조회 216
레몬네이드 2022.07.15 -1 216
36473
[엑셀VBA] 시트 이름을 변수로 설정하고 싶을때 간단한 방법 (2)
알파고 | 2022.06.27 | 추천 2 | 조회 459
알파고 2022.06.27 2 459
35196
Print_Area 동적 인쇄 영역설정 첨부파일 (1)
sean | 2022.06.21 | 추천 4 | 조회 485
sean 2022.06.21 4 485
34607
셀레니움으로 개별공시지가 조회 첨부파일 (3)
나야 | 2022.06.02 | 추천 1 | 조회 296
나야 2022.06.02 1 296
26273
엑셀 2021, M365 가로스크롤 기능 (28)
더블유에이 | 2022.01.23 | 추천 17 | 조회 851
더블유에이 2022.01.23 17 851
Re:엑셀 2021, M365 가로스크롤 기능
김학동 | 2022.01.23 | 추천 1 | 조회 279
김학동 2022.01.23 1 279
Re:엑셀 2021, M365 가로스크롤 기능
김동희 | 2022.05.30 | 추천 0 | 조회 130
김동희 2022.05.30 0 130
24189
[엑셀 VBA] Snippet - OCR: 이미지 파일을 텍스트 파일로 변환하기 (25)
dra**** | 2021.12.01 | 추천 8 | 조회 2130
dra**** 2021.12.01 8 2130
23999
[엑셀 VBA] Snippet - Public IP, Local IP, Mac Address 구하기 (6)
dra**** | 2021.11.25 | 추천 2 | 조회 779
dra**** 2021.11.25 2 779