функция ВПР

[batiq]

подскажите аналог вункции ВПР в VBA..

[uhm]

For each i in Range(...)
if i.Value=search_string Then ...
Next i

[GSerg]

application.worksheetfunction.vlookup


На будущее.
Найди в папке с Офисом файл funcs.xls. Открой. И вопросы твои исчезнут.

[batiq]

application.worksheetfunction.vlookup

А как ею пользоваться (у меня help по нему не открывется)?.

На будущее.
Найди в папке с Офисом файл funcs.xls. Открой. И вопросы твои исчезнут.

при открытии появляется сообщение: дважды щелкнуть по ячейке для справки, но открывается справка без содержания (пустая)..

[batiq]

For each i in Range(...)
if i.Value=search_string Then ...
Next i

i - типа range?.

[uhm]

vlookup - это и есть ВПР. Т. е. ты с помощью application.worksheetfunction можешь вызывать некоторые функции, которые ты вводишь в ячейки Эксель.

Кстати, GSerg, так не честно - спрашивали-то про аналог функции ВПР, а ты дал саму функцию...

[uhm]

Да, i - типа Range. Только учти, здесь описан самый-самый общий принцип работы - ты пробегаешь циклом по столбцу, ищешь значение, которое совпадает с образцом, если найдешь - можешь делать что угодно. Такая вещь позволяет делать больше вещей, чем vlookup, но, может быть, работает медленнее (не проверял, впрочем).

[batiq]

Да, i - типа Range. Только учти, здесь описан самый-самый общий принцип работы - ты пробегаешь циклом по столбцу, ищешь значение, которое совпадает с образцом, если найдешь - можешь делать что угодно. Такая вещь позволяет делать больше вещей, чем vlookup, но, может быть, работает медленнее (не проверял, впрочем).

а как задать деапазон ячеек в листе другой книги?.

[uhm]

Ну, что-нибудь типа

With Workbooks("название").Worksheets("название")...
или
With Workbooks(номер).Worksheets(номер)...

а дальше для обращения используешь .Range(...)

[batiq]

With Workbooks(номер).Worksheets(номер)..

а как указывают номер, для чего он от куда берется?.

[batiq]

Да, i - типа Range. Только учти, здесь описан самый-самый общий принцип работы - ты пробегаешь циклом по столбцу, ищешь значение, которое совпадает с образцом, если найдешь - можешь делать что угодно. Такая вещь позволяет делать больше вещей, чем vlookup, но, может быть, работает медленнее (не проверял, впрочем).

как описать i?. у меня ошибка: i=nothing..

[GSerg]

Чел, юзай vlookup, а?

[uhm]

Dim i As Range
For Each i In Range("A1:B2")
...
Next i


С книгами и листами проще работать по имени, а не по номеру. Номер - это просто порядковый номер данной конкретной книги или листа, он не будет постоянным от запуска к запуску.

[batiq]

Dim i As Range
For Each i In Range("A1:B2")
...
Next i

Так я и сделал, но только вместо Range сделал:
Workbooks("SiteBase.xls").Worksheets(SheetsName).Range("A:A"). Так нельзя?.

С книгами и листами проще работать по имени, а не по номеру. Номер - это просто порядковый номер данной конкретной книги или листа, он не будет постоянным от запуска к запуску.

А откуда берется этот номер его както объявляют?.

[batiq]

Кстати, GSerg, так не честно - спрашивали-то про аналог функции ВПР, а ты дал саму функцию...

Ты конечно прав, но GSerg повел себя по дружески..

[batiq]

Dim i As Range
For Each i In Range("A1:B2")
...
Next i

Так я и сделал, но только вместо Range сделал:
Workbooks("SiteBase.xls").Worksheets(SheetsName).Range("A:A"). Так нельзя?.

Или может следует указать путь к книге?.

С книгами и листами проще работать по имени, а не по номеру. Номер - это просто порядковый номер данной конкретной книги или листа, он не будет постоянным от запуска к запуску.

А откуда берется этот номер его както объявляют?.

[uhm]

Шучу я, шучу.

Номер, насколько я понимаю, присваевается по порядку, т. е., открыл ты одну книгу Эксель - будет она у тебя номер 1, открыл следующую - номер 2, и т. д. Поэтому, если не нужно пробегать все книги или листы в цикле, проще пользоваться именами, а не номерами.

Workbooks("SiteBase.xls").Worksheets(SheetsName).Range("A:A") - можно так писать. Проверь, что у тебя SheetsName нормальный.

[uhm]

А! О! Забыл... Книга-то у тебя эта (SiteBase.xls) открыта?

[batiq]

А! О! Забыл... Книга-то у тебя эта (SiteBase.xls) открыта?

Книга закрыта..
может быть, что дело в том, что сравнивается
Range и Workbooks.Worksheets.Range

[uhm]

Не-е, дело именно в том, что книга закрыта.
Проще всего будет сделать в начале макроса Workbooks.Open, а в конце, если та книга не нужна, ее закрыть с помощью Workbook("SiteBase").Close

[batiq]

Не-е, дело именно в том, что книга закрыта.
Проще всего будет сделать в начале макроса Workbooks.Open, а в конце, если та книга не нужна, ее закрыть с помощью Workbook("SiteBase").Close

не получается..

[uhm]

Жаль

Написал бы хоть, что и как не получается...

[alibek]

А Workbook("SiteBase.xls").Close ?

[batiq]

Следующая процедура работает очень долго; мне необходимо искать первые попавшиеся значения:

Код: Выделить всё

For Each icell In Workbooks("sitebase.xls").Worksheets(BSCName).Range("A:A")
If icell.Value = Range("B" + CStr(i)).Cells Then Range("C" + CStr(i)).Cells = Workbooks("sitebase.xls").Worksheets(BSCName).Range("B" + CStr(icell.Row)).Cells
Next icell


[batiq]

Жаль Написал бы хоть, что и как не получается...

не получалось открыть файл.. решил так

Код: Выделить всё

Workbooks.Open Filename:=ThisWorkbook.Path + "\SiteBase.xls"

[batiq]

для меня все - достижение!. я новичек в бейсике..

подскажите как использовать vlookup (не могу найти по ней документацию)

надо присвоить ячейке результат функции ВПР()

[batiq]

для меня все - достижение!. я новичек в бейсике..

подскажите как использовать vlookup (не могу найти по ней документацию)

надо присвоить ячейке результат функции ВПР()

[GSerg]

А не проще записать в ячейку саму функцию ВПР?

[batiq]

А не проще записать в ячейку саму функцию ВПР?

таблица генерируется с чистого листа.. и необходимо добавить вычисляемый столбец..

[GSerg]

Ну так проблема в чём?

Код: Выделить всё

with worksheets.add
  .cells(1,5).formula = "= vlookup(A1, B1:C100, 2, FALSE())"
end with

Либо, если надо чтобы работало только в русскоязычной версии Excel:

Код: Выделить всё

with worksheets.add
  .cells(1,5).formulalocal = "= ВПР(A1; B1:C100; 2; ЛОЖЬ())"
end with

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