Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / FormulaR1C1 / 11 сообщений из 11, страница 1 из 1
11.11.2008, 09:50:11
    #35645626
hum_i
hum_i
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FormulaR1C1
Добрый день! Не подскажите как используя FormulaR1C1 подсчитать динамически сумму столбца?

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

ws.Range("H6").End(xlDown).Select()
1. не .Select, а .Row, если вам уж так не терпится END приментить.
2. работать в применении моего кода это не будет (будет определять строку на 1 ниже, чем выделенная, т.к диапазон заканчивается на выделении...
3. кстати, а зачем скобки после Select?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.11.2008, 12:52:51
    #35660159
Сергей06
Сергей06
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FormulaR1C1
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:58:42
    #35660192
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FormulaR1C1
Сергей06Плохо понял, что такое "подсчитать динамически сумму столбца"
Как я понял "динамически - это значит, что столбец может иметь разное число строк и по ним должна проставляться сумма... Иначе к чему автор пытается определить вот это:
hum_iВот таким образом я вычисляю последнюю строку
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.11.2008, 08:53:15
    #35670773
hum_i
hum_i
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FormulaR1C1
Пожалуйста можете показать пример вычесления динамически суммы столбца с использованием End(xlDown)? Очень нужно
автординамически - это значит, что столбец может иметь разное число строк и по ним должна проставляться сумма
И какие нужно подключить Namespace для этого?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / FormulaR1C1 / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 501ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2180095]:
 0ms
get settings:
 5ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 218ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 52ms
get tp. blocked users:
 1ms
others: 188ms
total:  501ms
x
x
Закрыть


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