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

Вход

Регистрация

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

 

= Мир MS Excel/Остановка калькуляции до сегодняшней даты Макрос - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Остановка калькуляции до сегодняшней даты Макрос (Формулы/Formulas)
Остановка калькуляции до сегодняшней даты Макрос
DAUR Дата: Суббота, 15.01.2022, 08:41 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация: 0 ±
Замечаний: 0% ±

Всем доброго времени суток
Помогите пожалуйста с макрос кодом
в третьем ряду и ниже ряду формулы (показывают график работы сотрудников)
Нужно чтобы макрос код не проводил расчет формул если вчерашняя и позднее
По сути чтобы прошлое не считал а только будущие дни
За ранее благодарю
К сообщению приложен файл: ___.xlsm (9.9 Kb)
 
Ответить
СообщениеВсем доброго времени суток
Помогите пожалуйста с макрос кодом
в третьем ряду и ниже ряду формулы (показывают график работы сотрудников)
Нужно чтобы макрос код не проводил расчет формул если вчерашняя и позднее
По сути чтобы прошлое не считал а только будущие дни
За ранее благодарю
Автор - DAUR
Дата добавления - 15.01.2022 в 08:41
_Igor_61 Дата: Суббота, 15.01.2022, 17:24 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 504
Репутация: 90 ±
Замечаний: 0% ±

Excel 2007
Формул не увидел (возможно по причине моей старой версии - 2007)
Для отключения макроса можно примерно так:
[vba]
Код
If Cells(1,1)>=Date-1 Then
   Exit Sub
End If
[/vba]
Остальное - при наличии формул в файле и ожидаемого результата в файле (было - стало), а то вдруг Вы как-то что-то по-своему считаете :)
 
Ответить
СообщениеФормул не увидел (возможно по причине моей старой версии - 2007)
Для отключения макроса можно примерно так:
[vba]
Код
If Cells(1,1)>=Date-1 Then
   Exit Sub
End If
[/vba]
Остальное - при наличии формул в файле и ожидаемого результата в файле (было - стало), а то вдруг Вы как-то что-то по-своему считаете :)
Автор - _Igor_61
Дата добавления - 15.01.2022 в 17:24
DAUR Дата: Суббота, 15.01.2022, 18:56 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация: 0 ±
Замечаний: 0% ±

_Igor_61, У меня несколько другой вопрос Не макрос отключить
Мне нужно что бы результаты калькуляции формул оставались неизменными ранее даты указанной в ячейке А1
С даты в ячейке А1 и позднее чтобы формулы продолжали считать
Помогите пожалуйста если сможете
Заранее благодарю
 
Ответить
Сообщение_Igor_61, У меня несколько другой вопрос Не макрос отключить
Мне нужно что бы результаты калькуляции формул оставались неизменными ранее даты указанной в ячейке А1
С даты в ячейке А1 и позднее чтобы формулы продолжали считать
Помогите пожалуйста если сможете
Заранее благодарю
Автор - DAUR
Дата добавления - 15.01.2022 в 18:56
_Igor_61 Дата: Суббота, 15.01.2022, 20:47 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 504
Репутация: 90 ±
Замечаний: 0% ±

Excel 2007
[vba]
Код
Date-1
[/vba] Не работает?
Цитата DAUR, 15.01.2022 в 18:56, в сообщении № 3 ()
чтобы формулы продолжали считать

Цитата _Igor_61, 15.01.2022 в 17:24, в сообщении № 2 ()
Формул не увидел

"Для отключения макроса" значит для выполнения условия:
Цитата DAUR, 15.01.2022 в 08:41, в сообщении № 1 ()
чтобы макрос код не проводил расчет формул если вчерашняя и позднее

Чего хотим? Подробнее и с примером (см. внимательно сообщение №2)
И да, похоже Вам нужно запретить изменения в ранних ячейках, а это уже другой вопрос... Хотя в сообщении №2 ответ дан, что не получается? Понятие "Отключить" если условие не соответствует Вашим представлениями о макросах? Извините, "Отключить" можете заменить на "Выход из процедуры". Но это не отменяет вопроса о Ваших формулах
Извините за слово "Отключить". Не так обозвал слово "Условие"


Сообщение отредактировал _Igor_61 - Суббота, 15.01.2022, 20:55
 
Ответить
Сообщение[vba]
Код
Date-1
[/vba] Не работает?
Цитата DAUR, 15.01.2022 в 18:56, в сообщении № 3 ()
чтобы формулы продолжали считать

Цитата _Igor_61, 15.01.2022 в 17:24, в сообщении № 2 ()
Формул не увидел

"Для отключения макроса" значит для выполнения условия:
Цитата DAUR, 15.01.2022 в 08:41, в сообщении № 1 ()
чтобы макрос код не проводил расчет формул если вчерашняя и позднее

Чего хотим? Подробнее и с примером (см. внимательно сообщение №2)
И да, похоже Вам нужно запретить изменения в ранних ячейках, а это уже другой вопрос... Хотя в сообщении №2 ответ дан, что не получается? Понятие "Отключить" если условие не соответствует Вашим представлениями о макросах? Извините, "Отключить" можете заменить на "Выход из процедуры". Но это не отменяет вопроса о Ваших формулах
Извините за слово "Отключить". Не так обозвал слово "Условие"
Автор - _Igor_61
Дата добавления - 15.01.2022 в 20:47
_Igor_61 Дата: Понедельник, 17.01.2022, 14:07 | Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 504
Репутация: 90 ±
Замечаний: 0% ±

Excel 2007
Кажется, понял что нужно :)
[vba]
Код
Sub qqq()
Dim col&
col = Range("A2:XFC2").Find(What:=Date - 1).Column
Range(Cells(3, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, col)).Value = _
Range(Cells(3, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, col)).Value
End Sub
[/vba]
 
Ответить
СообщениеКажется, понял что нужно :)
[vba]
Код
Sub qqq()
Dim col&
col = Range("A2:XFC2").Find(What:=Date - 1).Column
Range(Cells(3, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, col)).Value = _
Range(Cells(3, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, col)).Value
End Sub
[/vba]
Автор - _Igor_61
Дата добавления - 17.01.2022 в 14:07
DAUR Дата: Вторник, 18.01.2022, 14:46 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация: 0 ±
Замечаний: 0% ±

_Igor_61, Привет
Сработало все - я так рад что боюсь сглазить :D
Спасибо огромное hands hands hands
 
Ответить
Сообщение_Igor_61, Привет
Сработало все - я так рад что боюсь сглазить :D
Спасибо огромное hands hands hands
Автор - DAUR
Дата добавления - 18.01.2022 в 14:46
_Igor_61 Дата: Четверг, 20.01.2022, 17:57 | Сообщение № 7
Группа: Проверенные
Ранг: Ветеран
Сообщений: 504
Репутация: 90 ±
Замечаний: 0% ±

Excel 2007
Цитата DAUR, 18.01.2022 в 14:46, в сообщении № 6 ()
Сработало все

Ну не знаю... :)
Проверьте как будет работать первого числа очередного месяца (при условии если дата в компе совпадает с реальной датой)
Скорее всего придется добавить "On Error..." по той простой причине, что в Excel нет нулевого столбца :)
 
Ответить
Сообщение
Цитата DAUR, 18.01.2022 в 14:46, в сообщении № 6 ()
Сработало все

Ну не знаю... :)
Проверьте как будет работать первого числа очередного месяца (при условии если дата в компе совпадает с реальной датой)
Скорее всего придется добавить "On Error..." по той простой причине, что в Excel нет нулевого столбца :)
Автор - _Igor_61
Дата добавления - 20.01.2022 в 17:57
DAUR Дата: Среда, 23.02.2022, 09:07 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация: 0 ±
Замечаний: 0% ±

_Igor_61,
Да вы правы перестал работать Помогите пожалуйста с конечным кодом макрос
За ранее благодарю
 
Ответить
Сообщение_Igor_61,
Да вы правы перестал работать Помогите пожалуйста с конечным кодом макрос
За ранее благодарю
Автор - DAUR
Дата добавления - 23.02.2022 в 09:07
_Igor_61 Дата: Среда, 23.02.2022, 14:40 | Сообщение № 9
Группа: Проверенные
Ранг: Ветеран
Сообщений: 504
Репутация: 90 ±
Замечаний: 0% ±

Excel 2007
Цитата DAUR, 23.02.2022 в 09:07, в сообщении № 8 ()
Помогите пожалуйста с конечным кодом макрос
Попробуйте перед таблицей вставить пустой столбец и заменить [vba]
Код
Find(What:=Date - 1).Column
[/vba] на [vba]
Код
Find(What:=Cells(1, 2).Value).Column
[/vba]


Сообщение отредактировал _Igor_61 - Среда, 23.02.2022, 14:42
 
Ответить
Сообщение
Цитата DAUR, 23.02.2022 в 09:07, в сообщении № 8 ()
Помогите пожалуйста с конечным кодом макрос
Попробуйте перед таблицей вставить пустой столбец и заменить [vba]
Код
Find(What:=Date - 1).Column
[/vba] на [vba]
Код
Find(What:=Cells(1, 2).Value).Column
[/vba]
Автор - _Igor_61
Дата добавления - 23.02.2022 в 14:40
RAN Дата: Среда, 23.02.2022, 18:48 | Сообщение № 10
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цитата _Igor_61, 17.01.2022 в 14:07, в сообщении № 5 ()
Кажется, понял что нужно


Ванга отдыхает. И Мессинг тоже.

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Цитата _Igor_61, 17.01.2022 в 14:07, в сообщении № 5 ()
Кажется, понял что нужно


Ванга отдыхает. И Мессинг тоже.
Автор - RAN
Дата добавления - 23.02.2022 в 18:48
_Igor_61 Дата: Среда, 23.02.2022, 19:08 | Сообщение № 11
Группа: Проверенные
Ранг: Ветеран
Сообщений: 504
Репутация: 90 ±
Замечаний: 0% ±

Excel 2007
Цитата RAN, 23.02.2022 в 18:48, в сообщении № 10 ()
Ванга отдыхает. И Мессинг тоже
RAN, у них не было опыта общения в соц сетях :)
Очень жаль, что многие специализированные сайты (как задумывалось и афишировалось) понемногу начинают к ним (к соц.сетям) приближаться...
А Ванга с Мессингом пару раз перевернутся и простят, у них задачи другие были :)
 
Ответить
Сообщение
Цитата RAN, 23.02.2022 в 18:48, в сообщении № 10 ()
Ванга отдыхает. И Мессинг тоже
RAN, у них не было опыта общения в соц сетях :)
Очень жаль, что многие специализированные сайты (как задумывалось и афишировалось) понемногу начинают к ним (к соц.сетям) приближаться...
А Ванга с Мессингом пару раз перевернутся и простят, у них задачи другие были :)
Автор - _Igor_61
Дата добавления - 23.02.2022 в 19:08
RAN Дата: Среда, 23.02.2022, 19:33 | Сообщение № 12
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
_Igor_61,
перед пустой таблицей вставить пустой столбец, и получить какой-то результат...
снимаю шляпу...
killed

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение_Igor_61,
перед пустой таблицей вставить пустой столбец, и получить какой-то результат...
снимаю шляпу...
killed
Автор - RAN
Дата добавления - 23.02.2022 в 19:33
_Igor_61 Дата: Среда, 23.02.2022, 19:45 | Сообщение № 13
Группа: Проверенные
Ранг: Ветеран
Сообщений: 504
Репутация: 90 ±
Замечаний: 0% ±

Excel 2007
RAN, да все гораздо проще - я в В3 написал =A3+1, протянул по строке и проверил макрос. Оказалось - работает :) А пустой столб для того, чтобы нулевого не получилось :) ТС пустую таблицу показал, но условие более-менне понятно... Возможно, следующий вопрос от него будет - как сделать чтобы это работало до нижней строки и как посчитать что-то по строкам и что-то по столбцам которые "=СЕГОДНЯ" :) Подождем ТС-а, что через месяц скажет, тем более что до сих пор непонятно заполнение дат во второй строке... Протяжка или выгрузка...


Сообщение отредактировал _Igor_61 - Среда, 23.02.2022, 20:01
 
Ответить
СообщениеRAN, да все гораздо проще - я в В3 написал =A3+1, протянул по строке и проверил макрос. Оказалось - работает :) А пустой столб для того, чтобы нулевого не получилось :) ТС пустую таблицу показал, но условие более-менне понятно... Возможно, следующий вопрос от него будет - как сделать чтобы это работало до нижней строки и как посчитать что-то по строкам и что-то по столбцам которые "=СЕГОДНЯ" :) Подождем ТС-а, что через месяц скажет, тем более что до сих пор непонятно заполнение дат во второй строке... Протяжка или выгрузка...
Автор - _Igor_61
Дата добавления - 23.02.2022 в 19:45
DAUR Дата: Пятница, 04.03.2022, 10:58 | Сообщение № 14
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация: 0 ±
Замечаний: 0% ±

_Igor_61,
Все классно работает но если на лист защиту поставить то уже не работает
пытался дописать код чтобы разблокировал лист и опять блокировал но еще хуже сделал
Помогите пожалуйста
С уважением
ДАУР
 
Ответить
Сообщение_Igor_61,
Все классно работает но если на лист защиту поставить то уже не работает
пытался дописать код чтобы разблокировал лист и опять блокировал но еще хуже сделал
Помогите пожалуйста
С уважением
ДАУР
Автор - DAUR
Дата добавления - 04.03.2022 в 10:58
Serge_007 Дата: Пятница, 04.03.2022, 14:00 | Сообщение № 15
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата DAUR, 04.03.2022 в 10:58, в сообщении № 14 ()
если на лист защиту поставить то уже не работает
Работа макроса на защищенном листе

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата DAUR, 04.03.2022 в 10:58, в сообщении № 14 ()
если на лист защиту поставить то уже не работает
Работа макроса на защищенном листе
Автор - Serge_007
Дата добавления - 04.03.2022 в 14:00
DAUR Дата: Суббота, 05.03.2022, 22:23 | Сообщение № 16
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация: 0 ±
Замечаний: 0% ±

Serge_007,
Привет
не помогло почему то
Но все равно благодарю за помощь
С уважением
DAUR
 
Ответить
СообщениеSerge_007,
Привет
не помогло почему то
Но все равно благодарю за помощь
С уважением
DAUR
Автор - DAUR
Дата добавления - 05.03.2022 в 22:23
_Igor_61 Дата: Суббота, 05.03.2022, 23:35 | Сообщение № 17
Группа: Проверенные
Ранг: Ветеран
Сообщений: 504
Репутация: 90 ±
Замечаний: 0% ±

Excel 2007
Цитата DAUR, 04.03.2022 в 10:58, в сообщении № 14 ()
пытался дописать код чтобы разблокировал лист и опять блокировал но еще хуже сделал
Помогите пожалуйста
Теперь и я присоединюсь к котику с живой лапкой и заодно к бессильным в данной ситуации Ванге и Мессингу (сообщения 10-13)... с такой постановкой задачи помочь нечем. DAUR, Вам либо нужно прочитать правила форума, либо действительно на сайты гадалок сходить... :)
 
Ответить
Сообщение
Цитата DAUR, 04.03.2022 в 10:58, в сообщении № 14 ()
пытался дописать код чтобы разблокировал лист и опять блокировал но еще хуже сделал
Помогите пожалуйста
Теперь и я присоединюсь к котику с живой лапкой и заодно к бессильным в данной ситуации Ванге и Мессингу (сообщения 10-13)... с такой постановкой задачи помочь нечем. DAUR, Вам либо нужно прочитать правила форума, либо действительно на сайты гадалок сходить... :)
Автор - _Igor_61
Дата добавления - 05.03.2022 в 23:35
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Остановка калькуляции до сегодняшней даты Макрос (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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