이번 포스팅은 매입처 관리에서 삭제 버튼에 할당되는 프로시저입니다. 삭제에는 따로 유저폼이 필요하지 않기 때문에 코드만 넣어주시면 되겠습니다. 아래와 같이 두개의 프로시저를 만들어주세요. 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 추가버튼에 매크로 연결을 해주세요. 이제 매입처등록폼에 내용을 채워줘야 합니다. 좌측 프로젝트창에서 폼>매입처등록폼을 우클릭 한뒤 코드보기를 눌러주세요. 매입처등록폼에 아래의 코드를 입력해 줍니..
