코드 복사 후 붙여 넣기 목록에 매크로가 나타나지 않습니다.

Question

저는 VBA에 완전히 익숙하지 않으므로 내가하고있는 일을 전혀 모르는 ... 아래에는 내 문제와 해당 코드에 대한 설명이 나와 있습니다.

: 내가 분명히이있는 트릭을 수행하는 코드를 발견 이제

값으로 붙여 넣기, 셀을 선택하고, 새 시트를 선택 복사 클릭 된 셀 : 내가 원래하고 싶었던 무엇

이 있었다

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    If Not Intersect(Target, Columns("A")) Is Nothing Then 
    Cancel = True 
    If Target.Row > 1 And Len(Target.Value) Then Worksheets("S11").Range("C2").Value = Target.Value 
    End If 
End Sub 

"분명히"내가 테스트 할 수 없으므로 말합니다. 여기에 문제가 : - 내 통합 문서로 돌아가려면

그때 ALT F8 그것을 실행 - 나는 엑셀 매크로 사용 통합 문서로

클릭했습니다 ALT의 Q를 통합 문서를 저장

1. 하지만 아무것도 없다 ... blank ....

무엇이 빠졌습니까?

Answer 1

모듈에는 사용할 매크로가 있습니다.

public sub mymacro(r as excel.range) 
If Not Intersect(r, Columns("A")) Is Nothing Then   
    If r.Row > 1 And Len(r.Value) Then Worksheets("S11").Range("C2").Value= r.Value 
    End If 
end sub 

public sub wbtest() 
    mymacro activecell 
end sub 

등

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    If Not Intersect(Target, Columns("A")) Is Nothing then 
     mymacro target 
    end if 
end sub