Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Проблема в суммировании ячеек / 4 сообщений из 4, страница 1 из 1
15.11.2006, 12:42:06
    #34129823
andMegaM
andMegaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема в суммировании ячеек
Нужен макрос.
В некой колонке (пусть будет "A") есть некие цифры. Мне нужно подсчитать их сумму. Это я

делал так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub ASS_1()
  For i =  1  To ActiveCell.SpecialCells(xlLastCell).Row
        summ = summ + Cells(i,  1 ).Value
        Cells( 1 ,  2 ).Value = summ   
  Next i

MsgBox "Сумма  =  " & summ, , "Сумма"

End Sub

Но теперь появляются не только числа, но и обычные текстовые выражения. Как сделать чтобы эти выражения в считались равными нулю? По началу сделал так:


Код: plaintext
1.
2.
For i =  1  To ActiveCell.SpecialCells(xlLastCell).Row
If Not IsNumeric(Cells(i,  1 ).Value) Then Cells(i,  1 ).Value = "0"
Next i

Это меня не устраивает, т.к ячейки с тектом становятся равными нулю.
Посоветуйте чего-нибудь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.11.2006, 13:05:01
    #34129923
Logayn
Logayn
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема в суммировании ячеек
Ачто тебе мешает при суммировании добавить условие?
Код: plaintext
1.
2.
3.
4.
5.
6.
For i =  1  To ActiveCell.SpecialCells(xlLastCell).Row
If Not IsNumeric(Cells(i,  1 ).Value) Then 
summ = summ + Cells(i,  1 ).Value
End If
Next i
Cells( 1 ,  2 ).Value = summ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.11.2006, 13:12:23
    #34129953
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема в суммировании ячеек
Код: plaintext
1.
2.
3.
4.
Sub ASS_1()
    i = ActiveCell.SpecialCells(xlLastCell).Row
    summ = Application.Sum(Range("A1:A" & i))
    MsgBox "Сумма  =  " & summ, , "Сумма"
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.11.2006, 13:32:24
    #34130040
andMegaM
andMegaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема в суммировании ячеек
Спасибо vkodor. Все работает. Оказалось все проще простого. Вопрос считаю закрытым.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Проблема в суммировании ячеек / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 348ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2183932]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 35ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 46ms
get tp. blocked users:
 2ms
others: 222ms
total:  348ms
x
x
Закрыть


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