Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подсчитать сумму столбца на определенном листе / 8 сообщений из 8, страница 1 из 1
07.09.2017, 15:43
    #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:47
    #39517495
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсчитать сумму столбца на определенном листе
Код: vbnet
1.
Worksheets(НазваниеЛиста).Cells(s + 1, НомерКолонки)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.09.2017, 15:50
    #39517501
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсчитать сумму столбца на определенном листе
Модератор: Даниил, я в третий раз дал вам ссылку и просил оформлять код как положено. Если вы будете упорствовать - топики будут закрываться.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.09.2017, 20:54
    #39517746
iMrTidy
iMrTidy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсчитать сумму столбца на определенном листе
 
Даниил ПакоvНикто из Вас не подскажет, как подсчитать сумму по столбцу на нужном листе.

Не угадал, кто-то подсказал.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.09.2017, 07:37
    #39517914
Даниил Пакоv
Даниил Пакоv
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсчитать сумму столбца на определенном листе
Не работает, так как все таки будет выглядеть код, которой считает сумму по столбику на заданном листе ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.09.2017, 08:51
    #39517944
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсчитать сумму столбца на определенном листе
Укажите явно, в какой книге и на каком листе находится Cells.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.09.2017, 09:14
    #39517959
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсчитать сумму столбца на определенном листе
Даниил Пакоvна нужном листеПока не станет ясно какой лист является нужным и как понять, что нужен именно он, а так же где он расположен(в какой книге) - ответ найден не будет.
Поэтому поясняйте ситуацию подробнее, т.к. ответ Вам дали сразу же - просто указываете нужный лист для диапазона и ячеек.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.09.2017, 10:45
    #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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подсчитать сумму столбца на определенном листе / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 398ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2155219]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 57ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 257ms
total:  398ms
x
x
Закрыть


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