1. 아별툴
  2. 아별툴 패밀리
  3. 엑셀 질문하기
  4. 엑셀 강좌
  5. 엑셀 팁
  6. 엑셀 자료실
  7. 엑셀 연구과제
  8. 엑셀 북마크
  9. 관련 프로그램 소개

엑셀에서 달력 집어 넣기..

조회 수 10940 추천 수 9 2004.10.21 10:59:38
---------------------------------------------------------------------

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

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

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        

댓글 '1'

[레벨:4]현대자동차

2012.03.19 15:59:38
*.29.96.161

vb코드도 자꾸 보니깐 뭔가 순서적인 체계가 있는듯한데 아직은 뭐가 뭘 칭하는건지 이해가 안되네요...

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 기타 엑셀 VBA 간단한 팁 모아놓기.. +_+ [레벨:30]아별 2007-01-24 33814
5 엑셀의 유저폼 관련 [1] [레벨:30]a☆ 2004-10-21 10048
» 엑셀에서 달력 집어 넣기.. [1] [레벨:30]a☆ 2004-10-21 10940
3 셀의 상대 위치 이동< offset(행,열) >과 절대 위치 이동.. [레벨:30]a☆ 2004-10-20 5341
2 엑셀에서 서식 지정하기.. 숫자를 한글로 표시하기 등.. [1] [레벨:30]a☆ 2004-09-24 6591
1 [10/19일 수정] 엑셀 매크로 수정하기... [2] [레벨:30]a☆ 2003-09-29 8250