Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/ВПР картинок макросом - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » ВПР картинок макросом (Макросы/Sub)
ВПР картинок макросом
mbesurich Дата: Среда, 04.04.2018, 22:03 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте, господа!
В одно форуме увидел "Видимо, я что-то делаю делаю не так, но по-другому не умею". Это про меня)
Дано: лист "картинки", где в первом столбце - артикул товара (около 1000 позиций), во втором столбце - в каждую ячейку вставлена картинка.
на листе "КП", второй столбец - пользователь указывает артикул, и макрос должен по нажатию на кнопку находить соответствующую картинку на листе "картинки" , копировать ее и вставлять в ячейку столбца №7 листа "КП".
Вот что у меня вышло:
[vba]
Код
Sub Photo()
Dim i As Integer
i = 1
If Not IsEmpty(Sheets("КП").Cells(ActiveCell.Row, 2)) Then
'проверка, чтобы в ячейка с артикулами в соответствующей строчке не было пусто
Do
i = i + 1
Loop Until Sheets("картинки").Cells(i, 1) = Sheets("КП").Cells(ActiveCell.Row, 2) Or i = 1100
' поиск номера строки, содержащей искомый артикул
Sheets("картинки").Cells(i, 2).Copy
'копирование ячейки (содержащей картинку)
Sheets("КП").ActiveCell.Paste
' вставка ячейки с картинкой в активную ячейку
End If
End Sub
[/vba]

Что же не так? Почему не работает? Заранее спасибо!
К сообщению приложен файл: 6985191.xlsx(58.3 Kb)


Сообщение отредактировал Pelena - Пятница, 06.04.2018, 08:30
 
Ответить
СообщениеЗдравствуйте, господа!
В одно форуме увидел "Видимо, я что-то делаю делаю не так, но по-другому не умею". Это про меня)
Дано: лист "картинки", где в первом столбце - артикул товара (около 1000 позиций), во втором столбце - в каждую ячейку вставлена картинка.
на листе "КП", второй столбец - пользователь указывает артикул, и макрос должен по нажатию на кнопку находить соответствующую картинку на листе "картинки" , копировать ее и вставлять в ячейку столбца №7 листа "КП".
Вот что у меня вышло:
[vba]
Код
Sub Photo()
Dim i As Integer
i = 1
If Not IsEmpty(Sheets("КП").Cells(ActiveCell.Row, 2)) Then
'проверка, чтобы в ячейка с артикулами в соответствующей строчке не было пусто
Do
i = i + 1
Loop Until Sheets("картинки").Cells(i, 1) = Sheets("КП").Cells(ActiveCell.Row, 2) Or i = 1100
' поиск номера строки, содержащей искомый артикул
Sheets("картинки").Cells(i, 2).Copy
'копирование ячейки (содержащей картинку)
Sheets("КП").ActiveCell.Paste
' вставка ячейки с картинкой в активную ячейку
End If
End Sub
[/vba]

Что же не так? Почему не работает? Заранее спасибо!

Автор - mbesurich
Дата добавления - 04.04.2018 в 22:03
Pelena Дата: Среда, 04.04.2018, 22:23 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 12620
Репутация: 2775 ±
Замечаний: 0% ±

Excel 2010, 2016 & Mac Excel
mbesurich, оформите код тегами с помощью кнопки # в режиме правки поста


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщениеmbesurich, оформите код тегами с помощью кнопки # в режиме правки поста

Автор - Pelena
Дата добавления - 04.04.2018 в 22:23
mbesurich Дата: Четверг, 05.04.2018, 21:09 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Сегодня получил от производителя архив со всеми картинками. Каждая названа артиклем. И теперь, намного лучше если бы макрос искал в папке картинку с определенным артиклем (артикул берется из столбца 2, строки активной ячейки листа "КП") и вставлял в активную ячейку листа "КП". Видел на форумах предлагают купить такую программу, но покупать не хочется)

Я это виду так:
[vba]
Код

Sub photo_from_foler()
Dim i As String
i = "C:\Users\User\Desktop\" & Cells(ActiveCell.Row, 2).Value & ".jpg"
i = путь к картинке + название картинки + тип картинки
If Not IsEmpty(Sheets("КП").Cells(ActiveCell.Row, 2)) Then
' проверка наличия артикля в соответствующей ячейке
ActiveSheet.Pictures.Insert("i").Select
'вставка картинки в активную ячейку
End If
End Sub
[/vba]
Возможно написать такой макрос, или это высшая математика?)


Сообщение отредактировал SLAVICK - Пятница, 06.04.2018, 08:59
 
Ответить
СообщениеСегодня получил от производителя архив со всеми картинками. Каждая названа артиклем. И теперь, намного лучше если бы макрос искал в папке картинку с определенным артиклем (артикул берется из столбца 2, строки активной ячейки листа "КП") и вставлял в активную ячейку листа "КП". Видел на форумах предлагают купить такую программу, но покупать не хочется)

Я это виду так:
[vba]
Код

Sub photo_from_foler()
Dim i As String
i = "C:\Users\User\Desktop\" & Cells(ActiveCell.Row, 2).Value & ".jpg"
i = путь к картинке + название картинки + тип картинки
If Not IsEmpty(Sheets("КП").Cells(ActiveCell.Row, 2)) Then
' проверка наличия артикля в соответствующей ячейке
ActiveSheet.Pictures.Insert("i").Select
'вставка картинки в активную ячейку
End If
End Sub
[/vba]
Возможно написать такой макрос, или это высшая математика?)

Автор - mbesurich
Дата добавления - 05.04.2018 в 21:09
mbesurich Дата: Четверг, 05.04.2018, 21:11 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Pelena, не уверен, что правильно Вас понял. Вы это имели в виду? (см в исходном сообщении)
 
Ответить
СообщениеPelena, не уверен, что правильно Вас понял. Вы это имели в виду? (см в исходном сообщении)

Автор - mbesurich
Дата добавления - 05.04.2018 в 21:11
китин Дата: Пятница, 06.04.2018, 07:29 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4776
Репутация: 763 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
mbesurich,
Вы это имели в виду? (см в исходном сообщении)
.нет, не это, а вот это
Как оформлять сообщения?
ваш код должен выглядеть вот так
[vba]
Код
Sub photo_from_foler()
Dim i As String
i = "C:\Users\User\Desktop\" & Cells(ActiveCell.Row, 2).Value & ".jpg"
# i = путь к картинке + название картинки + тип картинки
If Not IsEmpty(Sheets("КП").Cells(ActiveCell.Row, 2)) Then
# проверка наличия артикля в соответствующей ячейке
ActiveSheet.Pictures.Insert("i").Select
#вставка картинки в активную ячейку
End If
End Sub
[/vba]


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538


Сообщение отредактировал китин - Пятница, 06.04.2018, 07:30
 
Ответить
Сообщениеmbesurich,
Вы это имели в виду? (см в исходном сообщении)
.нет, не это, а вот это
Как оформлять сообщения?
ваш код должен выглядеть вот так
[vba]
Код
Sub photo_from_foler()
Dim i As String
i = "C:\Users\User\Desktop\" & Cells(ActiveCell.Row, 2).Value & ".jpg"
# i = путь к картинке + название картинки + тип картинки
If Not IsEmpty(Sheets("КП").Cells(ActiveCell.Row, 2)) Then
# проверка наличия артикля в соответствующей ячейке
ActiveSheet.Pictures.Insert("i").Select
#вставка картинки в активную ячейку
End If
End Sub
[/vba]

Автор - китин
Дата добавления - 06.04.2018 в 07:29
Мир MS Excel » Вопросы и решения » Вопросы по VBA » ВПР картинок макросом (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!