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

Вход

Регистрация

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

 

= Мир MS Excel/Вставка текста из ячейки в макрос - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка текста из ячейки в макрос (Макросы/Sub)
Вставка текста из ячейки в макрос
roman66rus Дата: Среда, 02.08.2017, 19:55 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 103
Репутация: 0 ±
Замечаний: 0% ±

2010
Доброго времени суток.
Снова прошу помощи.
Возможно ли вставить текст из ячейки в макрос после команды [vba]
Код
Criterial:=Array(тут должно быть значение ячейки),Operator:=xlFilterValues
[/vba]
К сообщению приложен файл: 8154700.xls(30Kb)


Сообщение отредактировал roman66rus - Среда, 02.08.2017, 20:59
 
Ответить
СообщениеДоброго времени суток.
Снова прошу помощи.
Возможно ли вставить текст из ячейки в макрос после команды [vba]
Код
Criterial:=Array(тут должно быть значение ячейки),Operator:=xlFilterValues
[/vba]

Автор - roman66rus
Дата добавления - 02.08.2017 в 19:55
KuklP Дата: Среда, 02.08.2017, 21:07 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2334
Репутация: 477 ±
Замечаний: 0% ±

2003-2010
Где у Вас данные в примере? Текст нельзя, массив можно.
[vba]
Код
Array(Split(Replace([Лист1!b3].Value, Chr(34), ""), ",")), xlFilterValues
[/vba]


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеГде у Вас данные в примере? Текст нельзя, массив можно.
[vba]
Код
Array(Split(Replace([Лист1!b3].Value, Chr(34), ""), ",")), xlFilterValues
[/vba]

Автор - KuklP
Дата добавления - 02.08.2017 в 21:07
roman66rus Дата: Среда, 02.08.2017, 22:11 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 103
Репутация: 0 ±
Замечаний: 0% ±

2010
KuklP, ошибку дает
Вот пример подправил.
Нужно отфильтровывать из списка в ячейке.
В исходнике список в ячейке записан просто через запятую, кавычки уже формулой подставлял
К сообщению приложен файл: 3251120.xls(44Kb)
 
Ответить
СообщениеKuklP, ошибку дает
Вот пример подправил.
Нужно отфильтровывать из списка в ячейке.
В исходнике список в ячейке записан просто через запятую, кавычки уже формулой подставлял

Автор - roman66rus
Дата добавления - 02.08.2017 в 22:11
KuklP Дата: Среда, 02.08.2017, 23:14 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2334
Репутация: 477 ±
Замечаний: 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
 
Ответить
СообщениеА у меня работает. Только объясните, где у Вас в примере лист Перечень? Перестаньте писать абы что и у Вас заработает :) Попробуйте в своем примере:
[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]

Автор - KuklP
Дата добавления - 02.08.2017 в 23:14
roman66rus Дата: Четверг, 03.08.2017, 00:17 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 103
Репутация: 0 ±
Замечаний: 0% ±

2010
KuklP, спасибо все получилось.
 
Ответить
СообщениеKuklP, спасибо все получилось.

Автор - roman66rus
Дата добавления - 03.08.2017 в 00:17
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка текста из ячейки в макрос (Макросы/Sub)
Страница 1 из 11
Поиск:

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