связать текст ячейки с одноименным файлом

У меня есть книга в excel и в одну колонку я ставлю названия картинок.

Я хочу создать код макроса / vba, чтобы при вводе имени файла в столбец, например, IMG_1234, он автоматически был гиперссылкой на файл, такой как file://publicPicturesIMG_1234.JPG

затем, когда кто-то нажимает на ссылку, он загружает новое окно с картинкой отображается.

Я нашел код, который отвечает на мой вопрос в макросе...однако я интересно, можно ли это сделать, чтобы он обновлялся автоматически, а не каждый раз запускать макрос...

Sub PictureLink()

MyPath = "\publicPictures"
StartRow = 8
EndRow = 200
MyEnd = ".JPG"

x = 0

For i = StartRow To EndRow
    If Len(Cells(i, 4).Value) > 0 Then
        MyFileName = ""
        MyFileName = Dir(MyPath & Cells(i, 4).Text & MyEnd, vbNormal + vbDirectory)

        If MyFileName <> "" Then
            x = x + 1
            ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 4), _
                        Address:=MyPath & Cells(i, 4).Text & MyEnd
        End If
    End If
Next i

End Sub

надеюсь, кто-то может помочь мне изменить это так, что он делает это автоматически.

Спасибо большое

20
задан user157349
08.11.2022 22:36 Количество просмотров материала 3245
Распечатать страницу

1 ответ

переименуйте макрос следующим образом:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  ' your code here
End Sub

и использовать Target для доступа к ячейке.

2
отвечен Ansgar Wiechers 2022-11-10 06:24

Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Вверх