특정 시트를 원하는 곳에 .xlsx 파일 내보내기(저장하기)

거래명세서를 만들면서 많은 재고와 함께 적다 보니 따로 또는 같이 재고물품을 적제 되었습니다. 그러다 보니 수식을 이용하게 되고 매번 엑셀 파일을 따로 저장하게 되는 번거로움이 있었습니다.

 

단가. xlsx

2021-12-7.xlsx

2021-12-10.xlsx

[단가 파일의 단가가 조정되면 예전 파일  7일의 파일 합계가 달라짐 현상]

 

또한 자주 변경되는 제품의 가격으로 인해 따로 저장한 파일도 최근 재고 가격으로 변경되는 부분이 발생하여 예전 거래명세서의 파일을 열면 최근 가격으로 되어 참 난감하곤 했습니다. 

이점이 번거로워 며칠 고민 중에 하나 만들자고 생각에 몇 번 시도와 함께 만들기는 했습니다. 단가 리스트를 합치기로 했습니다.

하지만 사용하시는 분이 연세가 많아 엑셀을 잘 사용 못해서 몇 번이나 수식이 없어지는 등 매번 자기 입맛 데로 하시는 바람에 이 점도 한 이번에 정리하자고 생각했습니다. (한글 사용하여 지금까지 하시는 바람에 수식 있어도 그냥 적는 경운가 많아)

 

문제점

1. 예전 저장한 파일 열 시 최근 가격으로 변경되는 점 수정

2. 수식을 사용하는 부분(셀)에 그냥 입력하는 것 방지

3. 백업을 USB에 하고 따로 다른 저장소에 저장할 것

위의 3가지 부분을 수정해서 다시 디자인할 것.

 

이렇게 정리하고 작업에 들어가도록 했습니다.

구형 같은 기존 사용의 거래명세서를 이번에 바꾸기로 했습니다.

 

위의 사진의 녹색 부분은 입력 칸입니다. 매번 수정의 실수를 해서 이번에 입력 칸을 옆에 붙였습니다. 엑셀이 있는데도 매번 수동으로 하는 바람에 이번에는 그냥 녹색 칸에 적으시라 했습니다.

 

세금계산서 미발행이 기본이며 발행을 하면 부가세(VAT) 부분에 적용됩니다. 또한 오늘 위의 칸에 입력 시 거래명세서 우측 상단에 날짜가 표시되면 밑의 표란에도 표시됩니다.

'전 잔금'과 '입금액'은 우측란에 입력하면 표시되며 합계는 전 잔금과 금일 거래금액을 더하여 표시됩니다. 물론 합계는 따로 적어도 우선 적은 부분이 먼저 보이도록 했습니다. (if문)

 

최종 잔금은 전 잔금에서 입금액을 뺀 금액이고 "입금할 금액"은 말 그대로입니다. 물론 이 모든 금액은 계산이 되지만 옆에 입력란에 적으면 우선 적은 숫자를 보여줍니다. (if문)

 

이 엑셀 파일의 핵심으로 버튼을 클릭 시 오늘 적은 부분을 값만 따로 시트에 저장후 지정된 폴더에 저장하는 부분입니다. 물론 초기화 버튼도 있습니다.

 

우선 수식이 있는 '거래명세서' 시트에 계산된 내용을 버튼 클릭시 '거래명세서 백업'에 저장하고 그 저장된 시트를 파일로 저장합니다.

 

Sub Sheet_SaveFile()
Dim sht As Worksheet
Dim Filename As String

Application.ScreenUpdating = False
Set sht = Worksheets("거래명세서 백업")
With backUpWS
    Filename = ThisWorkbook.Path & "\" & sht.Name & "(칠성) " & Date & " " & Format(Time, "hh-mm-ss") & ".xlsx"
    sht.Copy
    With ActiveWorkbook
        .SaveAs Filename:=Filename
        .Close
    End With
End With
Filename1 = Filename
End Sub

위의 서브 VBA를 이용 내보내기(저장)을 합니다. 위의 소스는 인터넷에서 있는 것을 사용했습니다.

 

Worksheets("시트명")

ThisWorkbook.Path

 

이 두 부분 만수 정하면 자유롭게 사용할 수 있습니다.

 

이렇게 만들어진 파일이 오늘 이렇게 소개한 것입니다. 생각은 쉬운데 왜 만들지 않았는지 모르겠네요. ^^