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

Вход

Регистрация

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

 

= Мир MS Excel/Убрать сообщение при выполнении макроса - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Убрать сообщение при выполнении макроса
ivanov1974 Дата: Четверг, 25.07.2019, 13:08 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 149
Репутация: 1 ±
Замечаний: 0% ±

Здравствуйте знатоки Excel. Макрорекордером записал код, но при его выполнении каждый раз на вопрос "Заменить содержимое конечных ячеек?" надо подтверждать "Да". Просьба подкорректировать макрос так, чтобы при его выполнении не появлялось диалоговое окно "Заменить содержимое конечных ячеек?", а код выполнялся с учетом "Да". Код в Module9
К сообщению приложен файл: 2426923.rar (52.3 Kb)
 
Ответить
СообщениеЗдравствуйте знатоки Excel. Макрорекордером записал код, но при его выполнении каждый раз на вопрос "Заменить содержимое конечных ячеек?" надо подтверждать "Да". Просьба подкорректировать макрос так, чтобы при его выполнении не появлялось диалоговое окно "Заменить содержимое конечных ячеек?", а код выполнялся с учетом "Да". Код в Module9

Автор - ivanov1974
Дата добавления - 25.07.2019 в 13:08
_Boroda_ Дата: Четверг, 25.07.2019, 13:33 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16718
Репутация: 6505 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
Sub tt()
    With Range(Cells(1), Cells(1).SpecialCells(xlLastCell))
        .Copy
        .PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
        .Interior.ThemeColor = xlThemeColorDark1
    End With
    Range("A1").Select
End Sub
[/vba]
А вообще за сообщения отвечает
Application.DisplayAlerts
https://docs.microsoft.com/ru-ru....%3Dtrue


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[vba]
Код
Sub tt()
    With Range(Cells(1), Cells(1).SpecialCells(xlLastCell))
        .Copy
        .PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
        .Interior.ThemeColor = xlThemeColorDark1
    End With
    Range("A1").Select
End Sub
[/vba]
А вообще за сообщения отвечает
Application.DisplayAlerts
https://docs.microsoft.com/ru-ru....%3Dtrue

Автор - _Boroda_
Дата добавления - 25.07.2019 в 13:33
ivanov1974 Дата: Четверг, 25.07.2019, 13:48 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 149
Репутация: 1 ±
Замечаний: 0% ±

Да, Boroda, спасибо огромное!
 
Ответить
СообщениеДа, Boroda, спасибо огромное!

Автор - ivanov1974
Дата добавления - 25.07.2019 в 13:48
  • Страница 1 из 1
  • 1
Поиск:

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