ReSQL.ru
     
powered by simpleCommunicator - 2.0.29     © 2024 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Map
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / vlookup объекта (картинки)
19 сообщений из 19, страница 1 из 1
vlookup объекта (картинки)
    #36489832
Volchok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Volchok
Участник
Коллеги, нужен ваш совет, поиском найти не удалось, если было - прошу прощения.

Поставили задачу: есть большая таблица, в которой хранится информация по каждому товару (вида артикул и много-много всякой инфы, прогнозы продаж и прочие показатели). Так же имеется второй файл вида артикул-фото.
Так вот, после обработки первого файла получается некая сводная таблица, в которую нужно подтянуть фотографии товара согласно артикулам. Vlookup за объект не цепляется, но возвращает 0, а не пустую ячейку, то есть понимает, что объект там есть...
Уже всю голову сломал, пока приходится по 300-400 фоток руками вставлять каждый раз, когда отчеты делают. Пробовали прикрепить картинки в первую таблицу - она стала обрабатываться огромное время - слишком много данных, плюс фото часто обновляются и присылаются уже в готовом файле.

Уже думаю, не производить ли эту операцию в access, может там будет такая возможность, но с ним вообще никогда не работал.

Подскажите пожалуйста, что можно придумать в данной ситуации? Версия excel хоть 2003 хоть 2007 - значения не имеет.

Заранее огромное спасибо!
...
Рейтинг: 0 / 0
26.02.2010, 12:20
| Ответить | Цитировать | Написать  
vlookup объекта (картинки)
    #36490130
Dophin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dophin
Гость
Volchok,

приложите пример
...
Рейтинг: 0 / 0
26.02.2010, 14:04
| Ответить | Цитировать | Написать  
vlookup объекта (картинки)
    #36490133
m
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
m
Гость
Надо смотреть файл... может как-то через код тянуть рисунки... сделайте пример, я думаю шансы на помощь увеличаться. :)
...
Рейтинг: 0 / 0
26.02.2010, 14:05
| Ответить | Цитировать | Написать  
vlookup объекта (картинки)
    #36490187
Dophin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dophin
Гость
небольшой прием работы с рисунками.

ну и макросом обработать диапазон - создать фото - подтянуть нужное фото из диапазона - не проблема думаю. был бы пример
...
Рейтинг: 0 / 0
26.02.2010, 14:20
| Ответить | Цитировать | Написать  
vlookup объекта (картинки)
    #36490215
Dophin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dophin
Гость
как то криво прицепился)

а нсчет того что ВПР возвращает 0 - значит чтото видит - не обольщайстесь) попробуйте на пустой ячейке поэкспериментировать
...
Рейтинг: 0 / 0
26.02.2010, 14:31
| Ответить | Цитировать | Написать  
vlookup объекта (картинки)
    #36490331
Volchok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Volchok
Участник
Прошу прощения. Вот пример.

На второй закладке таблица с данными, в нее нужно подтянуть фотографии с первой страницы.
В реальном файле таблица с фото может достигать 5000 строк, а таблица с данными около 600-1000.

Заранее спасибо!
...
Рейтинг: 0 / 0
26.02.2010, 15:03
| Ответить | Цитировать | Написать  
vlookup объекта (картинки)
    #36490332
Volchok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Volchok
Участник
...
Рейтинг: 0 / 0
26.02.2010, 15:04
| Ответить | Цитировать | Написать  
vlookup объекта (картинки)
    #36490428
Dophin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dophin
Гость
Volchok,
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub pp()
    Application.ScreenUpdating = False
    Dim iLastrow As Integer, i As Integer
    Dim iLastRow2 As Integer
    Dim s As Integer
    Dim sh1 As Worksheet, sh2 As Worksheet
    Set sh1 = Sheets("лист1")
    Set sh2 = Sheets("лист2")
    iLastrow = sh2.Cells(Rows.Count,  1 ).End(xlUp).Row
    iLastRow2 = sh1.Cells(Rows.Count,  1 ).End(xlUp).Row
    For i =  2  To iLastrow
        sh1.Range("a2:a" & iLastRow2).Find(what:=sh2.Cells(i,  1 ).Value, LookIn:=xlValues).Offset( 0 ,  3 ).Copy
        sh2.Activate
        sh2.Cells(i,  6 ).Select
        ActiveSheet.Pictures.Paste(Link:=True).Select
    Next i
    Application.ScreenUpdating = True
End Sub
вот пожалуйста
...
Рейтинг: 0 / 0
26.02.2010, 15:42
| Ответить | Цитировать | Написать  
vlookup объекта (картинки)
    #36490471
Volchok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Volchok
Участник
Работает! Спасибо вам огромное!

Волшебство просто)
...
Рейтинг: 0 / 0
26.02.2010, 16:02
| Ответить | Цитировать | Написать  
vlookup объекта (картинки)
    #36493991
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Dophin,

Модератор: не забывайте про тек SRC VBA, для него есть специальная педаль.
...
Рейтинг: 0 / 0
01.03.2010, 10:21
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
vlookup объекта (картинки)
    #39406654
АндрейКонстантинович
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АндрейКонстантинович
Гость
Dophin,

Добрый день!
А каким образом следует изменить макрос, чтобы в случае когда на "лист2" будет пустая ячейка в столбце данных, макрос искал данные из следующей за пустой ячейки, при этом не выдавая ошибку.

On Error resume next не помогает, тогда картинка вставляется напротив пустой строчки с данными.
...
Рейтинг: 0 / 0
17.02.2017, 14:49
| Ответить | Цитировать | Написать  
vlookup объекта (картинки)
    #39411111
АндрейКонстантинович
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АндрейКонстантинович
Гость
Друзья!!!!
очень нужна ваша помощь
...
Рейтинг: 0 / 0
27.02.2017, 17:38
| Ответить | Цитировать | Написать  
vlookup объекта (картинки)
    #39488495
Иван Ковалев
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иван Ковалев
Гость
IF для того, чтобы напротив пустой ячейки не вставлял
После вставки очистка буффера Application.CutCopyMode = False
On Error Resume Next оставить
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Sub ВПР_картинки()
    Dim Пстб1 As Integer, Пстб2 As Integer, i As Integer
    Dim sh1 As Worksheet, sh2 As Worksheet
    Set sh1 = ActiveSheet
    Set sh2 = Sheets("картинки")
    Пстб1 = sh1.Cells(Rows.Count, 1).End(xlUp).Row
    Пстб2 = sh2.Cells(Rows.Count, 1).End(xlUp).Row
    On Error Resume Next
    For i = 8 To Пстб1
        sh2.Range("c1:c" & Пстб2).Find(what:=sh1.Cells(i, 1).Value, LookIn:=xlValues).Offset(0, -1).Copy
        sh1.Activate
        If sh1.Cells(i, 1).Value > 0 Then
            sh1.Cells(i, 11).Select
            ActiveSheet.Pictures.Paste(Link:=True).Select
        End If
        Application.CutCopyMode = False
    Next i
End Sub
...
Рейтинг: 0 / 0
13.07.2017, 15:29
| Ответить | Цитировать | Написать  
vlookup объекта (картинки)
    #39601297
natadobraya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
natadobraya
Гость
Помогите, пожалуйста, надо в файле в желтые ячейки чтобы фото подгружались по коду с другого листа. Не могу никак исправить макрос, выложенный выше, под себя((
...
Рейтинг: 0 / 0
13.02.2018, 16:45
| Ответить | Цитировать | Написать  
vlookup объекта (картинки)
    #39601361
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
natadobraya,
запускайте при активном первом листе
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub Na()
Dim i, c As Range
  On Error Resume Next
  Application.ScreenUpdating = False
  For Each c In Range("B2", Cells(2, Columns.Count).End(xlToLeft))
    If Not IsEmpty(c.Value) Then
      i = Application.Match(c, Worksheets("рабочий").Columns(1), 0)
      If Not IsError(i) Then
        Worksheets("рабочий").Cells(i, 3).Copy
        c.Offset(-1).Select
        ActiveSheet.Pictures.Paste Link:=True
      End If
    End If
  Next
  Application.ScreenUpdating = True
  Application.CutCopyMode = False
End Sub
...
Рейтинг: 0 / 0
13.02.2018, 17:32
| Ответить | Цитировать | Написать  
vlookup объекта (картинки)
    #39601414
natadobraya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
natadobraya
Гость
Огромное спасибо, работает!!!
...
Рейтинг: 0 / 0
13.02.2018, 18:07
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
vlookup объекта (картинки)
    #39991566
sombra86
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sombra86
Гость
Добрый день.
Помогите, пожалуйста, с кодом для моего файла. Нужно подтянуть фото из одного листа в другой. В оригинальном файле больше 3000 строк(( Спасибо большое!!!!
...
Рейтинг: 0 / 0
21.08.2020, 20:00
| Ответить | Цитировать | Написать  
vlookup объекта (картинки)
    #39991733
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
sombra86,

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Sub Na()
Dim i, c As Range
  On Error Resume Next
  Application.ScreenUpdating = False
  Worksheets("Лист2").Select
  For Each c In Range("A2").Resize(Range("A2").CurrentRegion.Rows.Count - 1, 1)
    If Not IsEmpty(c.Value) Then
      i = Application.Match(c, Worksheets("Лист1").Columns(1), 0)
      If Not IsError(i) Then
        Worksheets("Лист1").Cells(i, 2).Copy
        c.Offset(, 1).Select
        ActiveSheet.Pictures.Paste Link:=True
      End If
    End If
  Next
  Application.ScreenUpdating = True
  Application.CutCopyMode = False
End Sub
...
Рейтинг: 0 / 0
23.08.2020, 11:59
| Ответить | Цитировать | Написать  
vlookup объекта (картинки)
    #39992088
sombra86
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sombra86
Гость
big-duke,
Спасибо!
...
Рейтинг: 0 / 0
24.08.2020, 22:21
| Ответить | Цитировать | Написать  
19 сообщений из 19, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / vlookup объекта (картинки)
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru, Чат Кролика       Пашэ: Рисунки, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&gotonew=1&tid=2171846]:
 0ms
get settings:
 24ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 45ms
get topic data:
 13ms
get first new msg:
 214ms
get forum data:
 3ms
get page messages:
 394ms
get tp. blocked users:
 2ms
others: 326ms
total:  1044ms
созд. / загр.: 1044ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]