정말 당신의 도움이 필요합니다.
기본적으로 아래 그림과 같이 내 프로젝트에 대해 정말로 우려하는 시트가 2 개 있습니다.
다음을 수행 할 수있는 VBA 코드를 찾고 있습니다.
어떤 도움이라도 대단히 감사하겠습니다. 범위 내의 콘텐츠에 대한 하이퍼 링크를 만드는 것과 같은 몇 가지 작업을 시도했지만 여전히 전혀 작동하지 않고 너무 많이 실패합니다.
감사
그것을 만드십시오
다음 VBA 코드는 설명대로 작동합니다.
Option Explicit
Function InRange(Range1 As Range, Range2 As Range) As Boolean
' returns True if Range1 is within Range2
Dim InterSectRange As Range
Set InterSectRange = Application.Intersect(Range1, Range2)
InRange = Not InterSectRange Is Nothing
Set InterSectRange = Nothing
End Function
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If InRange(ActiveCell, Worksheets("MUFG Client").Range("B3:B300")) Then
Selection.Copy Worksheets("MUFG Matched").Range("d4")
End If
End Sub
당신이에이 코드를 배치하는 것이 확인 워크 시트 코드 영역 의 MUFG 클라이언트를 사용하면 더블 클릭하면됩니다 곳이기 때문이다.
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다