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

Вход

Регистрация

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

 

= Мир MS Excel/Из двух макросов сделать один - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Из двух макросов сделать один (Макросы/Sub)
Из двух макросов сделать один
Otter Дата: Понедельник, 30.03.2015, 20:05 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 174
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019, Word 2019
Форумчане всем доброго здоровья.
Есть два макроса один скрывает нулевые строки, а другой открывает (показывает все) Нужно из двух сделать один при запуске которого он ждет ввода одного из трех чисел с сообщением справкой ввести 0,1 или 2
Что делать?
0- скрыть строки с "о"
1- показать скрытые
2- отмена операции

0- запускается макрос на скрытие строчек с "о" значениями
1 - запускается макрос на открытие всех строк
2- выход из диалогового окна (Отмена операции)

Важно !!! чтобы только появлялась одна из трех цифр в окне ввода
так сразу выполнялось нужное действие (без нажатия кнопки "Enter")

P.S. Коды на макросы писал не я и они открыты для редактирования.
К сообщению приложен файл: 159.rar (13.3 Kb)


Сообщение отредактировал Otter - Понедельник, 30.03.2015, 20:39
 
Ответить
СообщениеФорумчане всем доброго здоровья.
Есть два макроса один скрывает нулевые строки, а другой открывает (показывает все) Нужно из двух сделать один при запуске которого он ждет ввода одного из трех чисел с сообщением справкой ввести 0,1 или 2
Что делать?
0- скрыть строки с "о"
1- показать скрытые
2- отмена операции

0- запускается макрос на скрытие строчек с "о" значениями
1 - запускается макрос на открытие всех строк
2- выход из диалогового окна (Отмена операции)

Важно !!! чтобы только появлялась одна из трех цифр в окне ввода
так сразу выполнялось нужное действие (без нажатия кнопки "Enter")

P.S. Коды на макросы писал не я и они открыты для редактирования.

Автор - Otter
Дата добавления - 30.03.2015 в 20:05
RAN Дата: Понедельник, 30.03.2015, 20:15 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
без нажатия кнопки "Enter"

Никак

Даже, если очень важно.


Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Понедельник, 30.03.2015, 20:16
 
Ответить
Сообщение
без нажатия кнопки "Enter"

Никак

Даже, если очень важно.

Автор - RAN
Дата добавления - 30.03.2015 в 20:15
Otter Дата: Понедельник, 30.03.2015, 20:21 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 174
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019, Word 2019
Ладно если это так тогда хоть все остальное как сделать?.
 
Ответить
СообщениеЛадно если это так тогда хоть все остальное как сделать?.

Автор - Otter
Дата добавления - 30.03.2015 в 20:21
RAN Дата: Понедельник, 30.03.2015, 20:25 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Хотел поглядеть и ответить, но вы не желаете. Проект с паролем. Удачи в поисках.


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеХотел поглядеть и ответить, но вы не желаете. Проект с паролем. Удачи в поисках.

Автор - RAN
Дата добавления - 30.03.2015 в 20:25
Otter Дата: Понедельник, 30.03.2015, 20:34 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 174
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019, Word 2019
Извините не понял о каких паролях говорите. Там всего два макроса и без паролей.
Макросы писал не я, только вставил коды и использовал в работе.
У меня открыты коды на макросы и их можно редактировать.
Откуда у вас пароли появились? Не понял. :o
Если надо могу и открыто коды выложить прям здесь. Кто понимает в макросах тому дело на 5 минут.


Сообщение отредактировал Otter - Понедельник, 30.03.2015, 20:46
 
Ответить
СообщениеИзвините не понял о каких паролях говорите. Там всего два макроса и без паролей.
Макросы писал не я, только вставил коды и использовал в работе.
У меня открыты коды на макросы и их можно редактировать.
Откуда у вас пароли появились? Не понял. :o
Если надо могу и открыто коды выложить прям здесь. Кто понимает в макросах тому дело на 5 минут.

Автор - Otter
Дата добавления - 30.03.2015 в 20:34
KuklP Дата: Понедельник, 30.03.2015, 21:15 | Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Зачем все так усложнять? См. файл.
К сообщению приложен файл: 159.xlsm (21.9 Kb)


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеЗачем все так усложнять? См. файл.

Автор - KuklP
Дата добавления - 30.03.2015 в 21:15
KSV Дата: Понедельник, 30.03.2015, 21:22 | Сообщение № 7
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
Как вариант, можно так
К сообщению приложен файл: 8440950.xlsm (23.7 Kb)


KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333


Сообщение отредактировал KSV - Понедельник, 30.03.2015, 21:29
 
Ответить
СообщениеКак вариант, можно так

Автор - KSV
Дата добавления - 30.03.2015 в 21:22
Otter Дата: Понедельник, 30.03.2015, 21:54 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 174
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019, Word 2019
Вариант от KSV, подходит который, "А так культурнее" если его допилить еще чуть чуть см приложение зачем все затевалось. На самом деле много макросов которые надо так сделать. Это будет как шаблон для меня. Очень много макросов на действие и обратное действие
Наприм. Скрыть/сетку Показать; Сделать на листе колонтитулы/ Убрать колонтитулы и т.д. Их количество можно сократить в два раза, объединяя задачи и с окном выбора действия.
К сообщению приложен файл: 6583610.jpg (33.9 Kb)


Сообщение отредактировал Otter - Понедельник, 30.03.2015, 22:01
 
Ответить
СообщениеВариант от KSV, подходит который, "А так культурнее" если его допилить еще чуть чуть см приложение зачем все затевалось. На самом деле много макросов которые надо так сделать. Это будет как шаблон для меня. Очень много макросов на действие и обратное действие
Наприм. Скрыть/сетку Показать; Сделать на листе колонтитулы/ Убрать колонтитулы и т.д. Их количество можно сократить в два раза, объединяя задачи и с окном выбора действия.

Автор - Otter
Дата добавления - 30.03.2015 в 21:54
KSV Дата: Понедельник, 30.03.2015, 22:03 | Сообщение № 9
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
так?
К сообщению приложен файл: 8378673.xlsm (19.9 Kb)


KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333


Сообщение отредактировал KSV - Понедельник, 30.03.2015, 22:10
 
Ответить
Сообщениетак?

Автор - KSV
Дата добавления - 30.03.2015 в 22:03
Otter Дата: Понедельник, 30.03.2015, 22:15 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 174
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019, Word 2019
Не в том направлении идете см файл приложения
К сообщению приложен файл: 1816862.jpg (40.8 Kb)
 
Ответить
СообщениеНе в том направлении идете см файл приложения

Автор - Otter
Дата добавления - 30.03.2015 в 22:15
Otter Дата: Понедельник, 30.03.2015, 22:18 | Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 174
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019, Word 2019
Хочу вот эту штуку уменьшить в 2 раза. См приложенный файл картинки.
К сообщению приложен файл: 7163207.jpg (11.0 Kb)
 
Ответить
СообщениеХочу вот эту штуку уменьшить в 2 раза. См приложенный файл картинки.

Автор - Otter
Дата добавления - 30.03.2015 в 22:18
Otter Дата: Понедельник, 30.03.2015, 22:25 | Сообщение № 12
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 174
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019, Word 2019
Да Вы правы "отмена операции" не нужна с таким вариантом решения. Достаточно и этого:
0- скрыть строки с "о"
1- показать скрытые
 
Ответить
СообщениеДа Вы правы "отмена операции" не нужна с таким вариантом решения. Достаточно и этого:
0- скрыть строки с "о"
1- показать скрытые

Автор - Otter
Дата добавления - 30.03.2015 в 22:25
KSV Дата: Понедельник, 30.03.2015, 22:37 | Сообщение № 13
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
Не в том направлении идете

закрой все "лишние" книги, или выбери "Эта книга" (см. вложенный скриншот)
К сообщению приложен файл: 0444806.png (11.0 Kb)


KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333
 
Ответить
Сообщение
Не в том направлении идете

закрой все "лишние" книги, или выбери "Эта книга" (см. вложенный скриншот)

Автор - KSV
Дата добавления - 30.03.2015 в 22:37
KSV Дата: Понедельник, 30.03.2015, 22:42 | Сообщение № 14
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
Otter, на твоем скриншоте отображаются макросы книг 8440950.xlsm и 159.xlsm, а мой последний файл: 8378673.xlsm, т.ч. смотри мое предыдущее сообщение.


KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333
 
Ответить
СообщениеOtter, на твоем скриншоте отображаются макросы книг 8440950.xlsm и 159.xlsm, а мой последний файл: 8378673.xlsm, т.ч. смотри мое предыдущее сообщение.

Автор - KSV
Дата добавления - 30.03.2015 в 22:42
Otter Дата: Понедельник, 30.03.2015, 22:55 | Сообщение № 15
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 174
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019, Word 2019
Ага понял. Я был не прав. Это то, что нужно. Попробую дальше сам допилить что хочу. Огромное спасибо за труды.
Вот выложил окончательный свой вариант может кому и пригодится yes
К сообщению приложен файл: _233.rar (21.0 Kb)


Сообщение отредактировал Otter - Вторник, 31.03.2015, 18:19
 
Ответить
СообщениеАга понял. Я был не прав. Это то, что нужно. Попробую дальше сам допилить что хочу. Огромное спасибо за труды.
Вот выложил окончательный свой вариант может кому и пригодится yes

Автор - Otter
Дата добавления - 30.03.2015 в 22:55
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Из двух макросов сделать один (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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