Пересчет формул в вычисляемом диапазоне листа

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Пересчет формул в вычисляемом диапазоне листа (Макросы/Sub)

Xenus91

Дата: Вторник, 04.04.2023, 23:13 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 142

Репутация: 13 ±

Замечаний: 0% ±

Excel 2016

Доброго времени суток!
Помогите пжл решить проблему, хотелось бы макросом запускать пересчет формул в вычисляемом диапазоне при изменениях на активном листе
В ячейке B1 внесена дата окончания расчета, в диапазоне $D$5:$AJ$5 расположены даты в числовом формате по которым необходимо определить ширину диапазона по условию <=значению в B1
Длина диапазона по строкам определяется от ячейки A1 до последней заполненной ячейке в столбце B:B
файл пример прилагаю

К сообщению приложен файл: primerrr.xlsx (10.0 Kb)

Ответить

_Boroda_

Дата: Среда, 05.04.2023, 09:45 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16714

Репутация: 6503 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Не совсем ясен смысл, но вот:
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "B1" Then
        nc_ = Target - Range("D5") + 1
        nr_ = Cells(Rows.Count, 2).End(3).Row
        Cells(1).Resize(nr_, nc_).Calculate
    End If
End Sub

[/vba]
Ручной пересчет только предварительно поставить нужно

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Xenus91

Дата: Среда, 05.04.2023, 22:29 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 142

Репутация: 13 ±

Замечаний: 0% ±

Excel 2016

_Boroda_, спасибо большое, попробую
Пытаюсь решить проблему долгого пересчета формул на листе, даты в исходнике идут до конца года, а их пересчитывать до изменения расчетного периода не нужно

Ответить

Пересчет формул в вычисляемом диапазоне листа (Макросы/Sub)

Страница 1 из 1
1