엑셀 VBA 실행시 복사(Copy) 기능을 실행할 수 없어요...

[항상좋은날]

안녕하세요?

엑셀에서 달력보기 기능을 만들기 위해 아래와 같이 엑셀개체-Sheet에 VBA을 기록했는데..

'매크로 및 액티브 X'를 실행 후 엑셀 파일을 열면..

각 셀의 복사기능이 안 됩니다.

가령.. 어떤 셀을 선택하여 Ctrl+C 혹은 마우스 오른쪽 기능을 통해 복사하기를 한다고 할 때...

셀 복사를 위한 타겟 선택은 되는데..

다른 셀에 복사를 하려고 옮기면 선택 타겟이 풀려버려 복사를 할 수 없습니다.

아래의 VBA를 참조하셔서 고수님들의 조언 부탁드립니다.. 꾸벅~!

===========================================================================================

Private Sub Calendar2_Click()
   
    Range("AG17").Value = Me.Calendar2.Value
   
    Me.Calendar2.Visible = False

End Sub

Private Sub Worksheet_Selecti[안내]태그제한으로등록되지않습니다-xxonChange(ByVal Target As Range)

    If Intersect(Target, Range("AG17")) Is Nothing Then
   
    Me.Calendar2.Visible = False
   
    Exit Sub
   
    Else
   
    Me.Calendar2.Visible = True
   
    End If

End Sub

[윤슬]

안녕하세요? [항상좋은날]님...

해당 컨트롤은 2007 에서 지원되는 컨트롤입니다.
2010 버젼에선 지원되지 않으므로 가급적 사용하지 않으시는게 좋을듯 합니다.

굳이 사용하셔서 뭔가를 만드셔야 한다면 안되는 파일을 올려봐주세요...
제가 달리 코딩해서 해 본결과는 별 문제가 없어 보여서...

그럼 잘 해결되시길... ^^*

[항상좋은날]

먼저 답글 남겨주셔서 정말 고맙습니다..^^ 제 엑셀이 2007 버젼인데.. 이상하게 위의 코딩만 실행하면 그러네요..

다른 코딩을 넣어보면 잘 되구요..ㅠㅠ

그렇다면 위 코딩 말고 셀 선택시 달력을 나타내어 셀의 날짜변경을 하려면 어떻게 해야 할까요?

[윤슬]

안녕하세요? [항상좋은날]님...

아래 자료가 도움이 되실겁니다.
http://cafe.daum.net/funnyexcel/M3ZM/96

그럼 잘 해결되시길... ^^*

[항상좋은날]

감사합니다.. 그런데 이것도 셀을 선택(타겟)하고 복사하려고 하니 선택했던 셀이 풀리네요..ㅠㅠ