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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос для перемещения страниц - Мир MS Excel

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

Excel для Mac
Всем доброго времени суток. Прошу помощь в написании макроса, так как сам в этом деле не понимаю практически ничего(
Вот суть задания:
Задание

1. Создайте макрос, который позволяет переместить первый лист в пределах активной книги.
2. Внесите в макрос изменения таким образом, чтобы макрос позволял перемещать любой активный лист в пределах активной книги.
3. Внесите в макрос изменения, которые позволят перемещать активный лист перед выбранным листом, номер которого задает пользователь.
4. Внесите в макрос изменения, которые позволят перемещать активный лист перед выбранным листом, название которого задает пользователь.
Вот все, что получается у меня, и оно кстати даже не работает
[vba]
Код
 ActiveSheet.Select

  S = InputBox("Введите название листа", "Сообщение ")

  If S <> "" Then ActiveSheet.Move Before:=S
[/vba]


Сообщение отредактировал dart9203 - Среда, 24.05.2017, 22:37
 
Ответить
СообщениеВсем доброго времени суток. Прошу помощь в написании макроса, так как сам в этом деле не понимаю практически ничего(
Вот суть задания:
Задание

1. Создайте макрос, который позволяет переместить первый лист в пределах активной книги.
2. Внесите в макрос изменения таким образом, чтобы макрос позволял перемещать любой активный лист в пределах активной книги.
3. Внесите в макрос изменения, которые позволят перемещать активный лист перед выбранным листом, номер которого задает пользователь.
4. Внесите в макрос изменения, которые позволят перемещать активный лист перед выбранным листом, название которого задает пользователь.
Вот все, что получается у меня, и оно кстати даже не работает
[vba]
Код
 ActiveSheet.Select

  S = InputBox("Введите название листа", "Сообщение ")

  If S <> "" Then ActiveSheet.Move Before:=S
[/vba]

Автор - dart9203
Дата добавления - 24.05.2017 в 20:46
buchlotnik Дата: Среда, 24.05.2017, 21:00 | Сообщение № 2
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
 
Ответить
Сообщениеесли вы студент...

Автор - buchlotnik
Дата добавления - 24.05.2017 в 21:00
Pelena Дата: Среда, 24.05.2017, 21:09 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 19158
Репутация: 4411 ±
Замечаний: ±

Excel 365 & Mac Excel
dart9203, код следует оформлять тегами с помощью кнопки # в режиме правки поста.
По теме: запишите действия по перемещению листа макрорекодером, проанализируйте код и задавайте конкретные вопросы.


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщениеdart9203, код следует оформлять тегами с помощью кнопки # в режиме правки поста.
По теме: запишите действия по перемещению листа макрорекодером, проанализируйте код и задавайте конкретные вопросы.

Автор - Pelena
Дата добавления - 24.05.2017 в 21:09
KuklP Дата: Среда, 24.05.2017, 22:22 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
del


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


Сообщение отредактировал KuklP - Среда, 24.05.2017, 22:58
 
Ответить
Сообщениеdel

Автор - KuklP
Дата добавления - 24.05.2017 в 22:22
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для перемещения страниц (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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