ReSQL.ru
     
powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подсчитать сумму столбца на определенном листе
8 сообщений из 8, страница 1 из 1
Подсчитать сумму столбца на определенном листе
    #39517487
Даниил Пакоv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Даниил Пакоv
Участник
Доброго времени суток! Никто из Вас не подскажет, как подсчитать сумму по столбцу на нужном листе.
Код
Код: vbnet
1.
2.
3.
4.
5.
Sub SummColumn()
Dim s As Long
    s = Cells(Rows.Count, 7).End(xlUp).Row
    Cells(s + 1, 7) = Application.WorksheetFunction.Sum(Range(Cells(2, 7), Cells(s, 7)))
End Sub


- работает хорошо, но считает например сумму по 7 столбцу на текущем листе.... А я бы Хотел что то вроде этого

Код: vbnet
1.
2.
3.
Sub SummColumn( НазваниеЛиста, НомерКолонки)
...
end sub


Модератор: Учимся использовать тэги оформления кода - FAQ
...
Рейтинг: 0 / 0
07.09.2017, 15:43
| Ответить | Цитировать | Написать  
Подсчитать сумму столбца на определенном листе
    #39517495
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: vbnet
1.
Worksheets(НазваниеЛиста).Cells(s + 1, НомерКолонки)
...
Рейтинг: 0 / 0
07.09.2017, 15:47
| Ответить | Цитировать | Написать  
Подсчитать сумму столбца на определенном листе
    #39517501
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Модератор: Даниил, я в третий раз дал вам ссылку и просил оформлять код как положено. Если вы будете упорствовать - топики будут закрываться.
...
Рейтинг: 0 / 0
07.09.2017, 15:50
| Ответить | Цитировать | Написать  
Подсчитать сумму столбца на определенном листе
    #39517746
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
iMrTidy
Участник
 
Даниил ПакоvНикто из Вас не подскажет, как подсчитать сумму по столбцу на нужном листе.

Не угадал, кто-то подсказал.
...
Рейтинг: 0 / 0
07.09.2017, 20:54
| Ответить | Цитировать | Написать  
Подсчитать сумму столбца на определенном листе
    #39517914
Даниил Пакоv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Даниил Пакоv
Участник
Не работает, так как все таки будет выглядеть код, которой считает сумму по столбику на заданном листе ?
...
Рейтинг: 0 / 0
08.09.2017, 07:37
| Ответить | Цитировать | Написать  
Подсчитать сумму столбца на определенном листе
    #39517944
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Укажите явно, в какой книге и на каком листе находится Cells.
...
Рейтинг: 0 / 0
08.09.2017, 08:51
| Ответить | Цитировать | Написать  
Подсчитать сумму столбца на определенном листе
    #39517959
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Даниил Пакоvна нужном листеПока не станет ясно какой лист является нужным и как понять, что нужен именно он, а так же где он расположен(в какой книге) - ответ найден не будет.
Поэтому поясняйте ситуацию подробнее, т.к. ответ Вам дали сразу же - просто указываете нужный лист для диапазона и ячеек.
...
Рейтинг: 0 / 0
08.09.2017, 09:14
| Ответить | Цитировать | Написать  
Подсчитать сумму столбца на определенном листе
    #39518030
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
iMrTidy
Участник
Даниил Пакоv,

Так работает?

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Option Explicit

Sub SummColumn(sheetName As String, columnNumber As Integer)

Dim s As Double
Dim sh As Worksheet

Set sh = ThisWorkbook.Sheets(sheetName)
s = sh.Cells(sh.Rows.Count, columnNumber).End(xlUp).Row
sh.Cells(s + 1, columnNumber) = Application.WorksheetFunction.Sum(sh.Range(sh.Cells(2, columnNumber), sh.Cells(s, columnNumber)))

End Sub
...
Рейтинг: 0 / 0
08.09.2017, 10:45
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подсчитать сумму столбца на определенном листе
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=39517501&tid=2155219]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 41ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 2ms
others: 270ms
total:  412ms
созд. / загр.: 412ms
x
x
Закрыть


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