Excel VBA.Program 이벤트 : = ActiveCell, Image : = Visible

Question

Excel 2000을 사용 중이며 셀이 활성화되어있을 때 이미지를 프로그래밍하여 숨기거나 표시하지 않도록 설정해야합니다. 또는 해당 이벤트에 대한 시뮬레이션.

column A에 5 개의 항목 목록이 주어지면 별도의 이미지가 각 항목과 연결됩니다. 파일을 열 때 파일이 열려있는 항목 중 하나를 사용하여 열려있는 경우를 제외하고는 모든 이미지를 숨겨야합니다. 사용자가 클릭하거나 위/아래로 커서를 올리면 column A 표시된 이미지가 관련 이미지로 변경됩니다.

다른 프로그램/언어에서 쉽게이 작업을 수행 할 수 있지만 Excel로 제한됩니다.

Answer 1

워 시트에있는 코드 모듈에서 워크 시트 레벨 이벤트를 트랩 할 수 있습니다. 시트 탭을 마우스 오른쪽 버튼으로 클릭하고 코드보기를 클릭하고 다음을 붙여 넣으십시오.

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

Dim sPic As String 

    On Error GoTo errExit 
    Me.Pictures.Visible = False ' hides ALL pictures 
    If Not Intersect(Range("A1:A5"), Target(1)) Is Nothing Then 
     Select Case Target.Address(0, 0) 
     Case "A1": sPic = "Picture 1" 
     Case "A2": sPic = "Picture 2" 
     Case "A3": sPic = "Picture 3" 
     Case "A4": sPic = "Picture 4" 
     Case "A5": sPic = "Picture 5" 
     End Select 
    Me.Pictures(sPic).Visible = True 
End If 

errExit: 

End Sub 

이미지의 이름을 적절하게 조정하십시오. 이미지 이름을 보려면 이미지 이름을 선택하고 입력 막대 왼쪽에있는 "이름"상자를보십시오.

완료되면 VBE (시각적 기본 편집기)를 닫습니다. 매크로 보안 설정을 조정해야하는 경우가 많이 있습니다.