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

Вход

Регистрация

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

 

= Мир MS Excel/Автоматический запуск макроса - Мир MS Excel

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

Excel 2019
Здравствуйте. У меня есть файл, куда при нажатии кнопки "импорт" - импортируются данные из другого файла.
При импорте новых строчек дата встаёт в формате дата+время. Перед импортом нужно отключить защиту листа, потом сделать импорт и защита встаёт автоматически.
+ написала небольшой макрос Территория (как смогла))
Так вот, что и в каком макросе нужно подправить, чтобы при импорте дата вставала в обычном формате, без времени ? И как сделать, чтобы макрос Территория запускался сразу после макроса "импорт" ?

очень нужна помощь ваша. Файлы прикладываю
К сообщению приложен файл: _2020___.xlsm(85.7 Kb) · ___.xlsx(14.3 Kb)
 
Ответить
СообщениеЗдравствуйте. У меня есть файл, куда при нажатии кнопки "импорт" - импортируются данные из другого файла.
При импорте новых строчек дата встаёт в формате дата+время. Перед импортом нужно отключить защиту листа, потом сделать импорт и защита встаёт автоматически.
+ написала небольшой макрос Территория (как смогла))
Так вот, что и в каком макросе нужно подправить, чтобы при импорте дата вставала в обычном формате, без времени ? И как сделать, чтобы макрос Территория запускался сразу после макроса "импорт" ?

очень нужна помощь ваша. Файлы прикладываю

Автор - Nikonka89
Дата добавления - 06.03.2021 в 16:36
svp Дата: Суббота, 06.03.2021, 17:18 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
По дате: замените Now на Date. Это Макрос1
 
Ответить
СообщениеПо дате: замените Now на Date. Это Макрос1

Автор - svp
Дата добавления - 06.03.2021 в 17:18
svp Дата: Суббота, 06.03.2021, 17:33 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Попробуйте поставить в в макросе Импорт после строки Макрос1 Территория. Перед Application.ScreenUpdating = True
 
Ответить
СообщениеПопробуйте поставить в в макросе Импорт после строки Макрос1 Территория. Перед Application.ScreenUpdating = True

Автор - svp
Дата добавления - 06.03.2021 в 17:33
Nikonka89 Дата: Суббота, 06.03.2021, 17:44 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 56
Репутация: 0 ±
Замечаний: 20% ±

Excel 2019
С датой вышло. Спасибо!

А вот с макросом Территория не получилось . Написала как сказали. При запуске макроса Импорт - ругается : "Expected function or variable" чтобы это не значило)


Сообщение отредактировал Nikonka89 - Суббота, 06.03.2021, 17:46
 
Ответить
СообщениеС датой вышло. Спасибо!

А вот с макросом Территория не получилось . Написала как сказали. При запуске макроса Импорт - ругается : "Expected function or variable" чтобы это не значило)

Автор - Nikonka89
Дата добавления - 06.03.2021 в 17:44
Nikonka89 Дата: Суббота, 06.03.2021, 17:50 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 56
Репутация: 0 ±
Замечаний: 20% ±

Excel 2019
Может я не так написала ?
попробовала так. В этом случае при нажатии импорт - выходит сообщение что лист защищен. Хотя я снимаю перед этим защиту. А она видимо снова ставится

[vba]
Код
Макрос1
Территория
Application.ScreenUpdating = True
[/vba]


Сообщение отредактировал Nikonka89 - Суббота, 06.03.2021, 17:54
 
Ответить
СообщениеМожет я не так написала ?
попробовала так. В этом случае при нажатии импорт - выходит сообщение что лист защищен. Хотя я снимаю перед этим защиту. А она видимо снова ставится

[vba]
Код
Макрос1
Территория
Application.ScreenUpdating = True
[/vba]

Автор - Nikonka89
Дата добавления - 06.03.2021 в 17:50
Pelena Дата: Суббота, 06.03.2021, 18:53 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 17439
Репутация: 3873 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Защита снимется и ставится в макросе Макрос1
Надо в макросе Импорт тоже снимать защиту с листа


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗащита снимется и ставится в макросе Макрос1
Надо в макросе Импорт тоже снимать защиту с листа

Автор - Pelena
Дата добавления - 06.03.2021 в 18:53
Nikonka89 Дата: Воскресенье, 07.03.2021, 10:51 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 56
Репутация: 0 ±
Замечаний: 20% ±

Excel 2019
А как ? Я в макросах полный ноль (
написала Территория перед Макроса1 - в этом случае макрос территория автоматически срабатывает, но Макрос1 не запускается автоматом


Сообщение отредактировал Nikonka89 - Воскресенье, 07.03.2021, 10:53
 
Ответить
СообщениеА как ? Я в макросах полный ноль (
написала Территория перед Макроса1 - в этом случае макрос территория автоматически срабатывает, но Макрос1 не запускается автоматом

Автор - Nikonka89
Дата добавления - 07.03.2021 в 10:51
Pelena Дата: Воскресенье, 07.03.2021, 14:52 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 17439
Репутация: 3873 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
А как ?

в Макрос1 так снимается
[vba]
Код
ActiveSheet.Unprotect
[/vba]
так ставится
[vba]
Код
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowFiltering:=True
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение
А как ?

в Макрос1 так снимается
[vba]
Код
ActiveSheet.Unprotect
[/vba]
так ставится
[vba]
Код
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowFiltering:=True
[/vba]

Автор - Pelena
Дата добавления - 07.03.2021 в 14:52
Nikonka89 Дата: Воскресенье, 07.03.2021, 15:10 | Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 56
Репутация: 0 ±
Замечаний: 20% ±

Excel 2019
Поняла. Получилось. Спасибо
 
Ответить
СообщениеПоняла. Получилось. Спасибо

Автор - Nikonka89
Дата добавления - 07.03.2021 в 15:10
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автоматический запуск макроса (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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