지난 포스팅에서 만들었던 매출처 관리 유저폼의 각 버튼별 코드를 이번 포스팅에서는 다루겠습니다. 등록, 수정, 삭제, 닫기 총 4개의 버튼이 있습니다. 등록, 수정 버튼을 클릭했을시 유저폼을 하나더 팝업시켜 사용하는 방식으로 데이터를 추가/수정합니다. 사용할 유저폼은 FormEditClient로 이름을 설정했습니다. FormEditClient 유저폼은 다음 포스팅에서 다루도록 하겠습니다. 우측상단의 txtIdx 텍스트 박스는 Visible을 False로 설정해서 보이지 않게 숨겨주었습니다. 먼저 등록 버튼 클릭시 실행되는 코드 입니다. '등록 Private Sub btnRegister_Click() With FormEditClient .Caption = "매출처 등록" .Show End With Call..
이번 포스팅은 매입처 관리에서 삭제 버튼에 할당되는 프로시저입니다. 삭제에는 따로 유저폼이 필요하지 않기 때문에 코드만 넣어주시면 되겠습니다. 아래와 같이 두개의 프로시저를 만들어주세요. 12345678910111213141516171819202122232425262728293031323334353637Sub 매입처_삭제() Dim rngclmB As Range '붙여넣은 영역의 B열을 담아둘 변수 If Intersect(Columns("A"), Selection) Is Nothing Or Not Intersect(Rows("1:3"), Selection) Is Nothing Then 'A열이 아니거나 1:3행일 경우 sub 종료 MsgBox "삭제할 번호셀을 선택해 주세요!", vbCritical, "..
이번 포스팅은 지난 발주관리#3에서 만들어둔 수정 버튼에 프로시저를 만들어 연결하겠습니다. 역시 지난 포스팅에서 만들었던 유저관리폼과 함께 사용하게 됩니다. 우선 수정 버튼을 눌렀을때 실행될 프로시저 입니다. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 Sub 매입처_수정() '복수셀 선택시 종료 If Selection.Count > 1 Then MsgBox "수정할 하나의 셀만 선택해 주세요!", vbCritical, "오류" Exit Sub End If 'A:C열이 아니거나 1:3행일경우 종료 If Intersect(Columns("A:C"), Selection) Is Nothing Or Not Intersect(Rows("1:..
이번 포스팅은 지난 발주관리#3에서 만들어둔 버튼에 프로시저를 만들어 연결하겠습니다. 지난 포스팅에서 만들었던 유저관리폼과 함께 사용하게 됩니다. 우선 추가버튼에 연결할 프로시저를 만듭니다. 1 2 3 4 5 6 7 8 9 10 11 '매입처등록폼 불러오기 Public Sub show_매입처등록폼() With 매입처등록폼 .StartUpPosition = 0 .Left = 400 .Top = 200 .Show '매입처등록폼 불러오기 End With End Sub Colored by Color Scripter cs 추가버튼에 매크로 연결을 해주세요. 이제 매입처등록폼에 내용을 채워줘야 합니다. 좌측 프로젝트창에서 폼>매입처등록폼을 우클릭 한뒤 코드보기를 눌러주세요. 매입처등록폼에 아래의 코드를 입력해 줍니..
오늘은 지난 발주관리#3에서 만들어 두었던 추가,수정 버튼에 연결할 유저폼을 만들겠습니다. 우선 매입처등록폼 입니다. 매입처명은 textbox로 구분은 combobox로 만들어주시고 명령단추로 저장, 취소를 만들어주세요. 그다음 매입처수정폼 입니다. 번호, 매입처명은 textbox로 구분은 combobox로 명령단추로 저장, 취소를 만들어주세요. 매입처등록폼에 번호만 추가된겁니다. ㅎㅎ 매입처수정폼에서 번호 textbox의 속성에서 Enabled를 false로 설정해주세요. 일련번호가 들어가는 부분이기 때문에 수정을 할수 없게 만들어 줘야 합니다. 이번 포스팅은 조금 짧지만 여기까지 입니다. 다음 포스팅은 추가, 수정, 삭제에 해당하는 DB 제어 프로시저를 작성하도록 하겠습니다.
이전시간에 DB에 매입처 테이블을 만들었으니 이제 매입처 테이블을 제어할 엑셀 시트를 만들겠습니다. 우선 매입처관리 시트를 만들어 주세요. 3번째 열에 A,B,C행에 각각 번호, 매입처명, 구분으로 타이틀을 적어주시구요. 위에 2개의 열을 비워둔것은 버튼을 배치하기 위함입니다. 개발도구 > 삽입 > 단추(양식 컨트롤)을 눌러 버튼을 3개 추가해주세요. 버튼의 이름을 각각 추가, 수정, 삭제로 변경합니다. 4번째 행을 선택한뒤 보기 > 틀고정 으로 틀고정을 시켜주세요. 틀고정은 굳이 안해도 상관은 없지만 매입처수가 많아지면 틀고정을 하는게 보기&관리하기 편합니다. 이걸로 기본 준비는 되었네요. 다음 포스팅에서는 DB와 연결을 시켜보도록 할께요.
우선 다룰것은 SQL Server(MS-SQL)를 연동한 발주 관리 프로그램을 만들건데요. 원래는 재고관리부터 시작하는게 맞으나, 현재 회사의 사정에 맞춰서 하다보니 발주 관리를 먼저 만들게 되었어요. 재고관리 부분은 차후에 추가해 나아갈 예정입니다. 발주 관리 부분은 저희 회사의 실정에 맞춰서 만들어져 있습니다. 그대로 사용하기에는 각 업장마다 환경이 다를거라 생각하기 때문에 아마 어렵지 않을까 싶지만 참고자료로 사용하시면 좋으리라 생각합니다. 시작하기에 앞서 말씀드리자면 저는 프로그래머도 아니고 엑셀 전문가(?) 같은 사람도 아닙니다. 그냥 평범한 유통회사 직원에 불과합니다. 블로그를 만들고 프로그램을 공유하려는 이유는 방문하시는 분들과 함께 배우고 발전해 나아가고 싶은 마음에서 시작하고자 함이니, ..
