Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Пересчет выделенного диапазона / 3 сообщений из 3, страница 1 из 1
06.12.2002, 17:13
    #32076861
alexus1
alexus1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пересчет выделенного диапазона
Всем здравствуйте! Имеется расчетная таблица. Ввиду большого количества ссылок и формур расчет произвожу вручную. Иногда необходимо делать пересчет выделеннго диапазона. Пример кода, выложенного в сети (последовательный пересчет)

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

работает некорректно, поскольку пересчет непоследовательный.
Прошу ваши замечания.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.12.2002, 17:15
    #32076864
alexus1
alexus1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пересчет выделенного диапазона
речь идет о VBA в Excel
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.12.2002, 13:09
    #32076986
NNN
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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Пересчет выделенного диапазона / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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