ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / ИТОГО по столбцам.
10 сообщений из 10, страница 1 из 1
ИТОГО по столбцам.
    #33894591
Sasha K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sasha K
Участник
Подкажите как сделать ИТОГО по столбцам. Попробовал через Subtotal:
.Subtotal GroupBy:=4, Function:=xlSum, ...
, но выводятся промежуточные итоги, а надо конкретно:

2 8
3 2
4 6
5 3
------
14 19
...
Рейтинг: 0 / 0
02.08.2006, 13:55:44
| Ответить | Цитировать | Написать  
ИТОГО по столбцам.
    #33895857
Дмит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмит
Участник
Самое простое - вставить формулы СУММ в конце таблицы.
...
Рейтинг: 0 / 0
02.08.2006, 22:01:45
| Ответить | Цитировать | Написать  
ИТОГО по столбцам.
    #33896297
Sasha K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sasha K
Участник
а как найти конец таблицы загружаемого в Exel текстового файла?
...
Рейтинг: 0 / 0
03.08.2006, 09:55:27
| Ответить | Цитировать | Написать  
ИТОГО по столбцам.
    #33896412
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Поиск последней ячейки в EXCEL
...
Рейтинг: 0 / 0
03.08.2006, 10:26:17
| Ответить | Цитировать | Написать  
ИТОГО по столбцам.
    #33896463
Sasha K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sasha K
Участник
ЗдОрово, последнюю ячейку нашел, а как встваить формулу суммы в ячейку?
Selection.Cells(xx + 2).Value = "=SUM(???)
...
Рейтинг: 0 / 0
03.08.2006, 10:43:16
| Ответить | Цитировать | Написать  
ИТОГО по столбцам.
    #33896653
Sasha K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sasha K
Участник
Т.е., как правильно записать формулу суммы?

Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
xx = Selection.Count
Selection.Cells(xx + 2).Value = "=SUM(A1:xx)"
...
Рейтинг: 0 / 0
03.08.2006, 11:36:17
| Ответить | Цитировать | Написать  
ИТОГО по столбцам.
    #33896806
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Код: plaintext
Range(...).Formula = "=SUM(A1:A" & xx & ")"

можно записывать действия макрорекодером и делать по аналогии
...
Рейтинг: 0 / 0
03.08.2006, 12:18:52
| Ответить | Цитировать | Написать  
ИТОГО по столбцам.
    #33896882
Sasha K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sasha K
Участник
Спасибо, все работает ))
...
Рейтинг: 0 / 0
03.08.2006, 12:38:36
| Ответить | Цитировать | Написать  
ИТОГО по столбцам.
    #34058668
Фотография Ivan33
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ivan33
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub NoSubtotals()
    'turns off subtotals in PivotTable
    '.PivotFields could be changed to
    '.RowFields or .ColumnFields

    Dim pt As PivotTable
    Dim pf As PivotField

    On Error Resume Next
    For Each pt In ActiveSheet.PivotTables
        For Each pf In pt.PivotFields
            'First, set index 1 (Automatic) to True,
            'so all other values are set to False
            pf.Subtotals( 1 ) = True
            pf.Subtotals( 1 ) = False
        Next pf
    Next pt
End Sub
...
Рейтинг: 0 / 0
16.10.2006, 22:10:55
| Ответить | Цитировать | Написать  
ИТОГО по столбцам.
    #34061820
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Ivan33
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub NoSubtotals()
    'turns off subtotals in PivotTable
    '.PivotFields could be changed to
    '.RowFields or .ColumnFields

    Dim pt As PivotTable
    Dim pf As PivotField

    On Error Resume Next
    For Each pt In ActiveSheet.PivotTables
        For Each pf In pt.PivotFields
            'First, set index 1 (Automatic) to True,
            'so all other values are set to False
            pf.Subtotals( 1 ) = True
            pf.Subtotals( 1 ) = False
        Next pf
    Next pt
End Sub


Немного другая опера, нет?

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
17.10.2006, 21:07:39
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / ИТОГО по столбцам.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?desktop=1&fid=61&tid=2184120]:
 0ms
get settings:
 8ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 74ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 37ms
get tp. blocked users:
 1ms
others: 233ms
total:  389ms
созд. / загр.: 389ms
x
x
Закрыть


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