낭만소방관

역시 엑셀마스터 Q&A에 올라온 글. 주민번호를 치면 자료시트에 있는 내용을 안내문 시트로 불러오는 내용이다. Private Sub Worksheet_Change(ByVal Target As Range) 구문을 이용해서 주민번호를 입력하면 곧바로 자료시트의 내용을 불러오게 하였다. 주민번호 입력시 14글자가 아니거나 일치하는 주민번호가 없으면 메시지를 나타나게 하였다. Sub gAein() Dim i As Integer Dim y As Integer Dim wsLetter As Worksheet Dim wsData As Worksheet Dim rngJumin As Range Dim c As Range Dim rngAddress As Range Dim rngTo As Range Dim rngZipcode..

달력 컨트롤을 이용해 일자별 식단표를 만들어보았다. 스크린샷에는 보이지 않지만 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..