내일도 화이팅

안녕하세요. "내일도 화이팅"입니다. 오늘 배포해드릴 프로그램은 재고관리 프로그램입니다. 프로그램에 대해 간단히 설명드리면, 입고시 재고가 +, 출고시 재고가 -, 반품시 재고가 +, 불량시 재고가 -가 되는데요. 이러한 로직을 간단하게 관리할 수 있는 프로그램입니다. 아래에서 기능과 세부설명을 드리겠습니다. ※ 아래와 같이 매크로 보안 경고가 뜰경우 놀라시지 마시고 콘텐츠 사용을 누르시면 됩니다. - 잘못된 프로그램을 주의하라는 경고로 무시하셔도됩니다. 기능 1. 견적서 시트 자동생성 견적서 생성 시트에 견적서를 입력한 뒤 노란 버튼인 서류 생성을 클릭하면 날짜와 견적서 번호로 된 시트가 생성되면서 견적서를 재고에 반영할껀지에 대해 물어보는 메세지 박스가 생성됩니다. (이 메세지 박스에 대해서는 나중에..

안녕하세요. 사용자가 입력하는 유형의 견적서를 추가하는 기능을 업데이트하였습니다. 코드부터 제공해드리겠습니다. 1. 견적서 추가폼 실행 Sub add_kind() AddKindForm.Show End Sub 2. 견적서 추가폼 Private Sub CommandButton1_Click() Dim column As String Dim kind_name As String Dim i As Integer If (OptionButton1.Value) Then column = "I" Else column = "J" End If i = 3 Do While (Not Worksheets("재고관리").Cells(i, column).Value Like "") i = i + 1 Loop kind_name = TextBox1..

※ 제 코드와 파일은 상업적 이용, 개인적 이용이 모두 가능합니다. 다만, 게시판이나 블로그에 업로드할 목적이라면 꼭 출처를 남겨주시기바랍니다. 안녕하세요. 오늘은 코드를 유지보수하는데 있어 더 수월하도록 캡슐화하고 단순화시킨 코드를 공개하겠습니다. 1. 견적서 추가 & 재고 갱신 Sub add_inventory(kind As String) Dim count_inven As Integer '재고 품목 개수 Dim count_estimate As Integer '견적서의 품목 개수 Dim data As Integer Dim cal As Integer Dim overlap As Boolean overlap = reduplication_check(kind) If (Not overlap) Then Call sa..

※ 제 코드와 파일은 상업적 이용, 개인적 이용이 모두 가능합니다. 다만, 게시판이나 블로그에 업로드할 목적이라면 꼭 출처를 남겨주시기바랍니다. 안녕하세요 오늘은 입고 시트와 출고 시트에 사용자가 입력하는 값을 제거하는 것은 물론, 재고까지 변경되는 코드와 파일을 제공해드리겠습니다. [영상 1] 입고 제거 [영상 2] 출고 제거 저번시간에 입고와 출고를 삽입하면 재고가 변하도록 설계를 했었는데요. 입고나 출고를 잘못 입력하거나 거래가 취소되면 삭제를 해야될텐데.. 영상을 보시면 데이터 삭제 버튼을 클릭 시 대화상자가 뜨고 대화상자에서 거래번호를 입력하면 삭제되면서 재고가 다시 원상복귀 되는 것을 볼 수 있습니다. 1. 입고제거 Sub 입고제거() Dim i As Integer Dim j As Intege..