---------------------------------------------------------------------

유저폼 도구 상자에 달력이 안 보일때..

도구상자의 빈 여백에 오른 마우스 클릭 -> 추가 컨트롤 선택

Calendar Control 10.0 을 체크하고 확인 누르면 사용할 수 있다.

---------------------------------------------------------------------

시트에 달력 만들어 넣기..

        (1) 삽입-개체 메뉴를 선택합니다.

        (2) 새로 만들기 탭에서 Calendar Control O.O 항목을 선택하고 확인 버튼을 클릭합니다.
        그러면 현재 날짜에 해당하는 달력이 삽입되면서 디자인 모드 도구 모음이 함께 표시됩니다.

        (3) 삽입-그림-그림 파일 메뉴를 선택한 다음 적당한 그림을 삽입한 다음 크기를 조절합니다.

        (4) Calendar 오브젝트에 대한 편집 작업이 끝났으면 디자인 모드 끝내기 아이콘을
        클릭합니다.

        참고로 시트 탭을 오른쪽 마우스 버튼으로 클릭하고 코드 보기 메뉴를 선택한 다음
        VB Editor 상태에서 워크시트 오브젝트의 Activate 이벤트를 선택한 다음 아래와
        같은 코드를 작성하면 워크시트가 활성화 될 때마다 날짜가 업데이트 됩니다.

Private Sub Worksheet_Activate()        
           
   Dim datYear          As Date        
   Dim datMonth         As Date        
   Dim datDay           As Date        
   datYear = Year(Now())        
   datMonth = Month(Now())        
   datDay = Day(Now())        
           
   With Calendar1        
       .Year = datYear        
       .Month = Format(datMonth,"00)        
       .Day = Format(datDay,"00")        
   End With        
        
End Sub