Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
28.03.2024, 13:12:01

Войти
Название темы должно отражать её содержание.
Темы типа "ПОМОГИТЕ!!!", "Срочно!", "Не получается сделать", "Нужна помощь" и т.п. будут удаляться без объяснения причин
33 233 Сообщений в 5 454 Тем от 6 750 Пользователей
Последний пользователь: Alex1210
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
+  Excel это не сложно
|-+  Основные форумы
| |-+  Вопросы по Excel и VBA
| | |-+  Убрать сообщение о сохранении книги после работы макроса
Страниц: [1]   Вниз
Печать
Автор Тема: Убрать сообщение о сохранении книги после работы макроса  (Прочитано 5795 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Tyoma
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 6


Просмотр профиля
« : 14.07.2019, 19:23:43 »

Добрый вечер! Прошу помощи.
Написан макрос, который копирует с одной книги№ 1 данные и вставляет в другую книгу№ 2 при нажатии кнопки и включения макросов. В книге номер один применил функцию =Сегодня() и сортировку позиций по датам так удобно выявлять просрочку, после выполнения макроса, когда нажимаю на кнопку выполнить, макрос данные копирует и автоматом открывает книгу один с предложением сохранить или не сохранить данные ну или отменить, раньше такого не было подскажите пожалуйста, что можно сделать и как заставить макрос игнорировать не обращать внимания на функцию  =Сегодня(), что бы при наличии её так же, как и раньше считывал и заполнял необходимую информацию в книгу№2 и не открывал книгу№1 в которой находится функция сегодня. Заранее спасибо Подмигивающий.
« Последнее редактирование: 17.07.2019, 08:56:43 от Дмитрий Щербаков(The_Prist) » Записан
boa
Старожил
****

Репутация: +22/-0
Офлайн Офлайн

Сообщений: 252


Доброта спасет мир...


Просмотр профиля WWW
« Ответ #1 : 15.07.2019, 13:29:09 »

Добрый день,
особо не вникал в суть макроса, т.к. в самом начале увидел ошибку из-за которой могут быть все ваши траблы.
попробуйте для начала правильно объявить переменные
Код: (vb)
Dim ProtocolBook As Workbook, EtalonBook As Workbook    '
Dim ProtocolSheet As String, EtalonSheet As String    'название листа в файле с протоколом
Dim i As Integer, j As Integer, k As Integer                        'временные переменные
Dim WordMassive()                             'массив слов типа string
Dim PointerIndex As Integer, CountIndex As Integer, RowStep As Integer                  'указатель и длина массива

не только крайний, а все переменные перечисленные через запятую должны быть объявлены. и массив лучше объявлять со скобками.
Записан

Ничто не обходится нам так дешево и не ценится так дорого, как вежливость...  Мигель Сервантес де Сааведра

boa
Старожил
****

Репутация: +22/-0
Офлайн Офлайн

Сообщений: 252


Доброта спасет мир...


Просмотр профиля WWW
« Ответ #2 : 15.07.2019, 13:41:52 »

Функция Сегодня() является волотильной, поэтому при открытии файла "База" она пересчитывается, соответственно Excel'ем это принимается как изменение и он спаршивает стоит ли эти изменения сохранить перед закрытием.
что бы данный вопрос не возникал, надо правильно закрыть книгу
Код: (vb)
EtalonBook.Close savechanges:=False

или True, если изменения надо сохранять
Записан

Ничто не обходится нам так дешево и не ценится так дорого, как вежливость...  Мигель Сервантес де Сааведра

Tyoma
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 6


Просмотр профиля
« Ответ #3 : 15.07.2019, 20:38:17 »

Спасибо большущие!!! Проблема была в этой строчке кода исправил и всё норм стало…
« Последнее редактирование: 16.07.2019, 20:03:11 от vikttur » Записан
vikttur
Глобальный модератор
Ветеран
*****

Репутация: +124/-0
Офлайн Офлайн

Сообщений: 1 816



Просмотр профиля
« Ответ #4 : 16.07.2019, 08:58:38 »

1. Не нужно бездумно копировать сообщеия в цитату.
2. Предложить название этой темы
3. По новому вопросу создать новую тему
Записан
Tyoma
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 6


Просмотр профиля
« Ответ #5 : 16.07.2019, 18:02:44 »

Уважаемый модератор хорошо, я Вас понял. Создам новую тему, по своей вновь открывшейся проблемы, а Вас прошу, удалить все прикрепляемые файлы в моих сообщениях, так как они не актуальны.
P/S: Удалить мог бы их и сам, но увы не доступна кнопка редактировать сообщения мне.
Заранее спасибо!
Записан
vikttur
Глобальный модератор
Ветеран
*****

Репутация: +124/-0
Офлайн Офлайн

Сообщений: 1 816



Просмотр профиля
« Ответ #6 : 16.07.2019, 19:13:59 »

Тема остается в помощь другим. Помогите же и Вы - название темы так и не предложили.
По поводу файлов - там что-то секретое, запрещенное7
Записан
Tyoma
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 6


Просмотр профиля
« Ответ #7 : 16.07.2019, 19:31:01 »

Считаю, что нахождение МОИХ файлов здесь, уже бессмысленно, тем более помощи по ним так и не последовало! Ради богу, я не прошу удалять вопрос и ответ по существу, я просил удалить мои файлы, которые даже не шаблоны и примеры, но вы их не хотите почему то удалять. Интересно почему и для какой цели, скрыли кнопку редактировать сообщения Шокирован???
Записан
vikttur
Глобальный модератор
Ветеран
*****

Репутация: +124/-0
Офлайн Офлайн

Сообщений: 1 816



Просмотр профиля
« Ответ #8 : 16.07.2019, 20:05:27 »

Сообщение с другим вопросом и файлами удалил.
boa, прошу предложить название темы по задаче (т.к. автор игнорирует замечание), иначе тема будет удалена.
Записан
Tyoma
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 6


Просмотр профиля
« Ответ #9 : 16.07.2019, 20:21:52 »

Да конечно можете удалять, я не против, я уже создал другую тему следуя вашим же замечаниям 8)...
Записан
vikttur
Глобальный модератор
Ветеран
*****

Репутация: +124/-0
Офлайн Офлайн

Сообщений: 1 816



Просмотр профиля
« Ответ #10 : 16.07.2019, 20:34:17 »

Т.е. Вам помогли - и дальше трава не расти? Решение boa тоже удалится. Вам не жаль?
Помощь может понадобиться кому-то другому. Думать нужно не только о себе, любимом...
Записан
Tyoma
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 6


Просмотр профиля
« Ответ #11 : 17.07.2019, 08:07:52 »

Вы сами себе противоречите!!! Пожалуйста, уже определитесь сами, что вы хотите. Во первых, удалить тему вы пригрозили сами, я только, попросил удалить файлы, а сейчас вы меня обвиняете, что я думаю только о себе, это не логично как минимум.
А решению boa я благодарен и ещё раз говорю спасибо большое Подмигивающий
Записан
Дмитрий Щербаков(The_Prist)
Администратор
Ветеран
*****

Репутация: +485/-0
Офлайн Офлайн

Сообщений: 5 828



Просмотр профиля WWW
« Ответ #12 : 17.07.2019, 08:56:27 »

Давайте прекратим все эти препирательства. Тему закрываю.

Tyoma, Вы пришли на форум за помощью? Вы её получили? Так зачем упорно игнорировать замечание администрации и настоятельно не хотеть предложить новое название темы, которое будет отвечать правилам форума и сути проблемы? Плюс не очень уважительно по отношению к другим участникам форума просить удалить файлы после того как помощь получена. Теперь тема выглядит ни о чем, т.к. неясно к каким кодам решение было предложено и в чем вообще проблема. А со стороны выглядит: мне помогли и фиг с ним, форум же для этого и создан. Нет. Форум создан чтобы делиться знаниями в первую очередь. И только во вторую - для решения проблем. А если еще точнее - делиться знаниями через решение чужих проблем. В итоге выигрывают все. Поэтому в будущем, если файлы содержат такую информацию, которую потом надо удалить - готовьте примеры файлов в таком виде, чтобы ничего лишнего не просочилось в сеть.
Тему переименовал в "Убрать сообщение о сохранении книги после работы макроса".

Витя, в подобных случаях темы закрывают и выставляют БАН нарушителю на день-другой. Без лишних препирательств. Причину объяснил? Человек понять не хочет? Этого достаточно. Не надо ничего удалять, вдруг поможет кому-то другому. А если и в следующий раз этот же пользователь создаст так же с нарушением тему - тогда её уже можно удалять без лишних пояснений, если она нарушает правила. Лишний базар разводить нет смысла, если только нет желания пофлудить Улыбка

Я мог бы написать все это в личку, но автор темы тоже должен понимать для чего и к чему все это. Если он не хочет читать правила форума и следовать им - мы вправе применять административные меры воздействия Улыбка Но я думаю, что это не повториться. Автор выглядит вполне адекватным, только не очень понимает чего от него хотят.
Записан

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Пункты приёма Спасибов:    -41001332272872  -R298726502453
Страниц: [1]   Вверх
Печать
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru