Set WS = WB.Worksheets("Ëèñò1")
Демонический копипаст. Вот кому-то заняться нечем, - такие задания раздавать.
Верный путь C:\Program Files\Microsoft Office 2010\MEDIA\OFFICE14\AUTOSHAP для файлов *.wmf.
lukoie: adblock, да мой любимый - не отключается ))
Из описания и обрезка картинки я ничего не понял. Вам John Smith написал, что вы поленились сделать ТЗ, поэтому и у вас ничего не получается, и мы не понимаем какие данные откуда получить.
ТЗ нужно писать просто и понятно, как задачи по математики для начальной школы.
К тому же вы не разобрались с функцией VLOOKUP, у вас в 1-м аргументе указан массив, а должно быть значение или ссылка на ячейку. В нижней части дано описание к аргументу и ссылка на полное описание по работе с функцией.
John Smith: не, с MS Access человек ещё больше запутается. Там порог вхождения выше, чем макросы под MS Excel. lukoie: В ссылке "Подробно" моего ответа написано, как связать функцию ВПР со списком проверки данных, - выбираете значение из списка, а остальные поля заполнятся автоматически через формулы. Если нужна простыня с квитанциями готовыми к печати - то нужно читать VBA: синтаксис и функции VB и объектную структуру MS Exсel. На этом откланяюсь.
Set WS = WB.Worksheets("Ëèñò1")Демонический копипаст. Вот кому-то заняться нечем, - такие задания раздавать.
Верный путь C:\Program Files\Microsoft Office 2010\MEDIA\OFFICE14\AUTOSHAP для файлов *.wmf.