|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
08.06.2018, 12:43 | #11 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Берёте названия в коллекцию (ну или считаете количество), объявляете такой массив, набиваете его именами/названиями, используете.
Например: Код:
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 08.06.2018 в 12:48. |
08.06.2018, 22:50 | #12 |
Пользователь
Регистрация: 07.06.2018
Сообщений: 40
|
Private Sub Кнопка37_Щелчок()
Dim Lar As Variant Lar = Sheets("График").Range("D5") Sheets(Lar).Select End Sub Так работает но для одной ячейки и выделяет одноименный лист. Как правильно описать если Lar = Sheets("График").Range("D5:F5") Последний раз редактировалось autostavrroute; 09.06.2018 в 01:41. |
09.06.2018, 00:20 | #13 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Lar = Sheets("График").Range("D5:D8").Val ue
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
09.06.2018, 01:43 | #14 |
Пользователь
Регистрация: 07.06.2018
Сообщений: 40
|
|
09.06.2018, 01:45 | #15 | |
Пользователь
Регистрация: 07.06.2018
Сообщений: 40
|
Цитата:
|
|
09.06.2018, 10:04 | #16 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
Код:
|
|
09.06.2018, 12:03 | #17 |
Пользователь
Регистрация: 07.06.2018
Сообщений: 40
|
Код:
Предыдущий вариант работает на УРА. _____ Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ) Модератор Последний раз редактировалось autostavrroute; 09.06.2018 в 12:22. |
12.06.2018, 09:48 | #18 |
Пользователь
Регистрация: 07.06.2018
Сообщений: 40
|
|
12.06.2018, 10:24 | #19 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Код:
[offtop]2 страницы трепа, а можно было в 1ом сообщении приклеить файла с тестовыми данным, написать "Вот файл, вот список страниц, хочу нажать кнопку и чтоб листы со списка выделились". Я бы предложил их удалить, а дальше коллеги бы наваяли рабочий код. Итого макс на 5 сообщении был бы получен ответ. Но то такое, лирика. [/offtop]
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
12.06.2018, 11:09 | #20 |
Пользователь
Регистрация: 07.06.2018
Сообщений: 40
|
Оператор Not там стоит верно - он проверяет если ячейка не пустая тогда добавляет ее в массив. Ошибка где то рядом)
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
выделение нескрытых листов книги | Jaroslav | Microsoft Office Excel | 4 | 27.05.2014 16:10 |
VBA - выделение группы листов | Tihon | Microsoft Office Excel | 14 | 09.01.2013 20:46 |
Поиск по списку | gavrylyuk | Microsoft Office Excel | 6 | 25.03.2010 16:24 |
Загрузка по списку | jkpro | Работа с сетью в Delphi | 23 | 24.09.2009 17:26 |
выделение листов по условию | Bronyk | Microsoft Office Excel | 5 | 11.03.2008 19:40 |