powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Пересчет выделенного диапазона
3 сообщений из 3, страница 1 из 1
Пересчет выделенного диапазона
    #32076861
alexus1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всем здравствуйте! Имеется расчетная таблица. Ввиду большого количества ссылок и формур расчет произвожу вручную. Иногда необходимо делать пересчет выделеннго диапазона. Пример кода, выложенного в сети (последовательный пересчет)

sub SelectionCalculate()
set ss = Selection
for each cl in selection.cells
cl.Select
cl.Calculate
next cl
ss.Select
end sub

работает некорректно, поскольку пересчет непоследовательный.
Прошу ваши замечания.
...
Рейтинг: 0 / 0
Пересчет выделенного диапазона
    #32076864
alexus1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
речь идет о VBA в Excel
...
Рейтинг: 0 / 0
Пересчет выделенного диапазона
    #32076986
Фотография NNN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А у меня нормально обходит - слева направо, сверху вниз, все по порядку. Или нужно сверху вниз, слева направо? Тогда кажись так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
    Dim i As Integer
    Dim ss As Range
    Dim cl As Range
    Dim sc As Range
    Set ss = Selection
    ss.Calculate
    For i =  1  To ss.Columns.Count
        Set sc = ss.Columns(i)
        sc.Select
        For Each cl In Selection.Cells
            MsgBox cl.Address ' && Debug
            cl.Select
            cl.Calculate
        Next cl
    Next i
    ss.Select
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Пересчет выделенного диапазона
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]