Путь к папке с фото

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Путь к папке с фото - Мир MS Excel

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Путь к папке с фото (Макросы/Sub)

Путь к папке с фото

tasdel

Дата: Четверг, 11.12.2014, 22:40 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 156

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Доброе время суток!
В преложенном файле макрос прокладывает путь к папке которая находится на диске "С".
Не получается написать макрос, чтобы он прокладывал путь к папке, которая находится рядом с активной книгой .
Заранее спасибо.

К сообщению приложен файл: 3935446.zip (87.8 Kb)

Ответить

SLAVICK

Дата: Четверг, 11.12.2014, 22:49 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Попробуйте так

[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    n = 0
    p = ThisWorkbook.Path & "\рисунки\"
     While Cells(n + 4, 1).Value <> ""
           n = n + 1
     Wend
    For i = 4 To n + 3
         If ActiveCell = Cells(i, 1).Value Then
         Image1.Picture = LoadPicture(p & "рис" & i & ".jpg")
         End If
    Next
End Sub

[/vba]

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Четверг, 11.12.2014, 22:49

Ответить

tasdel

Дата: Пятница, 12.12.2014, 00:20 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 156

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

SLAVICK, большое спасибо за помощь.
Тема закрыта.

Ответить

Путь к папке с фото (Макросы/Sub)

Страница 1 из 1
1