Событие Excel VBA.Program: = ActiveCell, изображение: = Visible

Question

Я использую Excel 2000 и мне нужна помощь в программировании изображения для переключения между видимым и скрытым, когда активна ячейка или имитация этого события.

Учитывая список из пяти элементов в column A, с каждым элементом связано отдельное изображение.При открытии файла все изображения должны быть скрыты, за исключением случая, когда файл открыт с одним из активно выбранных элементов.Когда пользователь нажимает или перемещает курсор вверх / вниз 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 (редактор Visual Basic), когда закончите.Вам нужно настроить параметры безопасности макросов.