ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / FormulaR1C1
11 сообщений из 11, страница 1 из 1
FormulaR1C1
    #35645626
hum_i
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hum_i
Участник
Добрый день! Не подскажите как используя FormulaR1C1 подсчитать динамически сумму столбца?

Код: plaintext
ws.Cells(i,  8 ) = dr("summa_balance")
...
Рейтинг: 0 / 0
11.11.2008, 09:50:11
| Ответить | Цитировать | Написать  
FormulaR1C1
    #35645676
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
Офф:
А нет проще End(xlDown). вычислять последнюю строку столбца?
...
Рейтинг: 0 / 0
11.11.2008, 10:08:08
| Ответить | Цитировать | Написать  
FormulaR1C1
    #35645964
hum_i
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hum_i
Участник
Нет не последнюю строку столбца, а сумму значений всего столбца...
Например
1,26
2,36
0,20
5,63
Причем кол-во сторок заранее неизвестно, поэтому, как я уже ранее говорила нужно подсчитать динамически сумму столбца.
...
Рейтинг: 0 / 0
11.11.2008, 11:23:33
| Ответить | Цитировать | Написать  
FormulaR1C1
    #35646904
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
hum_iНет не последнюю строку столбца, а сумму значений всего столбца...
ну , если вам так не нравится определать последнюю строку столбца, то можно по другому, от этого логика в коде не поменяется
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub A_Sum()
Sum! =  0 
    adr1 = ActiveCell.Address
For i% = Range(adr1).Row To Range(adr1).SpecialCells(xlLastCell).Row
    Sum = Sum + Cells(i, Range(adr1).Column)
Next i
    Range(adr1) = Sum
End Sub
...
Рейтинг: 0 / 0
11.11.2008, 15:13:39
| Ответить | Цитировать | Написать  
FormulaR1C1
    #35646959
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
Кстати, код вычисляет сумму прерывного ряда, т.е. если в сроках 1, 2 и 32456 соят числа, то сумма будет этих трёх чисел.
Если ряды сверогромные, то поменяйте "!" на Variant
...
Рейтинг: 0 / 0
11.11.2008, 15:27:51
| Ответить | Цитировать | Написать  
FormulaR1C1
    #35648071
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
А может легче сделать "динамически изменяемый именованный диапазон" и в определении адреса диапазона поставить формулы вычисляющие последнюю строку диапазона. Что то в таком роде на топиках уже появлялось. Код будет конкретно короче...
...
Рейтинг: 0 / 0
12.11.2008, 01:26:45
| Ответить | Цитировать | Написать  
FormulaR1C1
    #35659484
hum_i
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hum_i
Участник
Добрый день!
Вот таким образом я вычисляю последнюю строку
Код: plaintext
ws.Range("H6").End(xlDown).Select()
Подскажите пожалуйста, как теперь вычислить сумму этого столбца?
...
Рейтинг: 0 / 0
18.11.2008, 09:30:33
| Ответить | Цитировать | Написать  
FormulaR1C1
    #35659514
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
Я зачем 4 пост сверху написал?
hum_iВот таким образом я вычисляю последнюю строку

ws.Range("H6").End(xlDown).Select()
1. не .Select, а .Row, если вам уж так не терпится END приментить.
2. работать в применении моего кода это не будет (будет определять строку на 1 ниже, чем выделенная, т.к диапазон заканчивается на выделении...
3. кстати, а зачем скобки после Select?
...
Рейтинг: 0 / 0
18.11.2008, 09:41:47
| Ответить | Цитировать | Написать  
FormulaR1C1
    #35660159
Сергей06
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей06
Участник
hum_iДобрый день! Не подскажите как используя FormulaR1C1 подсчитать динамически сумму столбца?

Код: plaintext
ws.Cells(i,  8 ) = dr("summa_balance")

Плохо понял, что такое "подсчитать динамически сумму столбца"
Если подсчитать сумму в определенном диапазоне, то, возможно, таким образом лучше?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub Сумма_в_именованом_диапазоне()
iSum = Application.Sum(Range("summa_balance"))
MsgBox iSum
End Sub

Sub СуммаСтолбца()
iSum = Application.Sum(Range("A:A"))
MsgBox iSum
End Sub
...
Рейтинг: 0 / 0
18.11.2008, 12:52:51
| Ответить | Цитировать | Написать  
FormulaR1C1
    #35660192
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
Сергей06Плохо понял, что такое "подсчитать динамически сумму столбца"
Как я понял "динамически - это значит, что столбец может иметь разное число строк и по ним должна проставляться сумма... Иначе к чему автор пытается определить вот это:
hum_iВот таким образом я вычисляю последнюю строку
...
Рейтинг: 0 / 0
18.11.2008, 12:58:42
| Ответить | Цитировать | Написать  
FormulaR1C1
    #35670773
hum_i
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hum_i
Участник
Пожалуйста можете показать пример вычесления динамически суммы столбца с использованием End(xlDown)? Очень нужно
автординамически - это значит, что столбец может иметь разное число строк и по ним должна проставляться сумма
И какие нужно подключить Namespace для этого?
...
Рейтинг: 0 / 0
24.11.2008, 08:53:15
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / FormulaR1C1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=35659484&tid=2180095]:
 0ms
get settings:
 10ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 207ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 222ms
total:  514ms
созд. / загр.: 514ms
x
x
Закрыть


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