vba form 2

의뢰받아 만든 발주서

의뢰받아 만든 VBA 작업 의뢰라고 해봐야 대단한 건 아니고 VBA카페에 월별식단표를 만들어 올렸더니 누가 본인 업무와 매우 딱맞는 작업내용이라길래, 공부도 할 겸 파일을 보내달라고 했다. 작업 내용은 이러하다. 월별로 발주를 하는데, 발주한 품목만 워크시트별로 정렬을 하는 것. 원래는 발주수량이 있으면 그 줄을 가져오려했는데 도저히 내 실력으로는 무리라서, 검색해도 안 나와서, 품목, 링크, 단위, 발주량을 통으로 복사해서 월별 시트에 붙여놓고 발주량이 없는 항목을 삭제하는 방식으로 작업을 했다.여기서의 핵심은 Columns("H").SpecialCells(4).EntireRow.Delete 바로 이 부분으로, 빈셀을 찾아 전체 Row를 삭제해주는 코드이다. 이게 없었으면 이번 작업은 꿈도 못 꿨을 일..

VB(A) 2015.01.14

월별 식단표 v3

달력 컨트롤을 이용해 일자별 식단표를 만들어보았다. 스크린샷에는 보이지 않지만 1월부터 12월까지 12개 시트로 각 일자별로 식단이 짜여있고 달력을 클릭하면 해당 일자의 식단을 가져오게 되어있다. 기존 사용하던 사용자폼은 삭제하고 달력 컨트롤만 삽입하였다. 확실히 날짜 선택은 달력이 갑이지. 근데 달력컨트롤이 다른 엑셀 버전에선 에러가 난다는 제보가 ㅠ 게다가 다른 pc에서도 안 열릴 수도 있겠다. 이럴 수가 ㅠ Option ExplicitPrivate Sub Calendar1_Click() Dim calYear As Integer Dim calMonth As Integer Dim calDay As Integer Dim calYoil As String Dim c As Range Dim i As Integ..

VB(A) 2015.01.13