powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Проблема вычисления диапазона при разном значении настройки "стиль ссылок"
6 сообщений из 6, страница 1 из 1
Проблема вычисления диапазона при разном значении настройки "стиль ссылок"
    #37178332
densof123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Считается сумма диапазона при помощи :

ActiveSheet.Cells(1, colNo).FormulaR1C1 = ActiveSheet.Evaluate("=Sum(R" & (toRow - DocsRanges(docsIndex)(1)) & "C" & colNo & ":R" & (toRow - 1) & "C" & colNo & ")")

Если выставлен флаг настройки "Стиль ссылок R1C1" то значения считаются корректно. Если данный флаг убрать (колонки обзываются буковками...), то в ячейке отображается #знач!

Проверено и на 2003 и на 2010 офисе. Проблема и там и там наблюдается. Кто-нибудь подскажет в чем может быть дело ?
...
Рейтинг: 0 / 0
Проблема вычисления диапазона при разном значении настройки "стиль ссылок"
    #37178349
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну так вы сами себе ответили - в формуле пишется либо "RxCx", либо типа "Axx...").
Хотя вы и пытаетесь вписать данные в свойство .FormulaR1C1, но не факт, что M$ нормально отработали VBA и объектную модель...
С другой стороны, если вы уже вписываете формулы макросом - то почему бы просто не рассчитать значения в том же макросе?
...
Рейтинг: 0 / 0
Проблема вычисления диапазона при разном значении настройки "стиль ссылок"
    #37178352
densof123,
дело в ActiveSheet .Evaluate . И "проблема" останется вне зависимости от того, какое выражение слева от знака равенства. Как вариант решения "проблемы":
Код: plaintext
1.
2.
3.
4.
With ActiveSheet.Cells( 1 , colNo)
.FormulaR1C1 = "=Sum(R" & (toRow - DocsRanges(docsIndex)( 1 )) & "C" & colNo & ":R" & (toRow -  1 ) & "C" & colNo & ")"
.Calculate ' если включен автопересчет листа - можно закомментировать
.Formula = .Value
End With
...
Рейтинг: 0 / 0
Проблема вычисления диапазона при разном значении настройки "стиль ссылок"
    #37178401
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
CurrentStyle = Application.ReferenceStyle
Application.ReferenceStyle = xlR1C1
ActiveSheet.Cells( 1 , colNo).FormulaR1C1 = ActiveSheet.Evaluate("=Sum(R" & (toRow - DocsRanges(docsIndex)( 1 )) & "C" & colNo & ":R" & (toRow -  1 ) & "C" & colNo & ")")
Application.ReferenceStyle = CurrentStyle 
...
Рейтинг: 0 / 0
Проблема вычисления диапазона при разном значении настройки "стиль ссылок"
    #37178403
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну ещё неплохо на время отрубить рефреш экрана - чтобы не дёргалось.
...
Рейтинг: 0 / 0
Проблема вычисления диапазона при разном значении настройки "стиль ссылок"
    #37180095
densof123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
прбуй камнем - не прокатывает такой вариант (
Akina - так да, ок ) Спасибо
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Проблема вычисления диапазона при разном значении настройки "стиль ссылок"
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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