Вставка текста из ячейки в макрос

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка текста из ячейки в макрос (Макросы/Sub)

roman66rus

Дата: Среда, 02.08.2017, 19:55 | Сообщение № 1

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

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

Сообщений: 113

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

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

2010

Доброго времени суток.
Снова прошу помощи.
Возможно ли вставить текст из ячейки в макрос после команды [vba]

Код

Criterial:=Array(тут должно быть значение ячейки),Operator:=xlFilterValues

[/vba]

К сообщению приложен файл: 8154700.xls (29.5 Kb)

Сообщение отредактировал roman66rus - Среда, 02.08.2017, 20:59

Ответить

KuklP

Дата: Среда, 02.08.2017, 21:07 | Сообщение № 2

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

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

Сообщений: 2369

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

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

2003-2010

Где у Вас данные в примере? Текст нельзя, массив можно.
[vba]

Код

Array(Split(Replace([Лист1!b3].Value, Chr(34), ""), ",")), xlFilterValues

[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

roman66rus

Дата: Среда, 02.08.2017, 22:11 | Сообщение № 3

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

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

Сообщений: 113

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

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

2010

KuklP, ошибку дает
Вот пример подправил.
Нужно отфильтровывать из списка в ячейке.
В исходнике список в ячейке записан просто через запятую, кавычки уже формулой подставлял

К сообщению приложен файл: 3251120.xls (44.5 Kb)

Ответить

KuklP

Дата: Среда, 02.08.2017, 23:14 | Сообщение № 4

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

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

Сообщений: 2369

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

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

2003-2010

А у меня работает. Только объясните, где у Вас в примере лист Перечень? Перестаньте писать абы что и у Вас заработает

Попробуйте в своем примере:
[vba]

Код

Sheets("Лист2").[A3:A158].AutoFilter 1, Array(Split(Replace([Лист1!B3].Value, Chr(34), ""), ",")), xlFilterValues

[/vba]
даже так:
[vba]

Код

Sheets("Лист2").[A3:A158].AutoFilter 1, Split(Replace([Лист1!B3].Value, Chr(34), ""), ","), xlFilterValues

[/vba]
но для большего формализма:
[vba]

Код

Sub MyMacro()
    Dim a
    a = Application.Trim(Split(Replace([Лист1!B3].Value, Chr(34), ""), ","))
    Sheets("Лист2").[A3:A158].AutoFilter 1, a, xlFilterValues
End Sub

[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Среда, 02.08.2017, 23:23

Ответить

roman66rus

Дата: Четверг, 03.08.2017, 00:17 | Сообщение № 5

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

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

Сообщений: 113

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

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

2010

KuklP, спасибо все получилось.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка текста из ячейки в макрос (Макросы/Sub)

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