Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / ИТОГО по столбцам. / 10 сообщений из 10, страница 1 из 1
02.08.2006, 13:55:44
    #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, 22:01:45
    #33895857
Дмит
Дмит
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ИТОГО по столбцам.
Самое простое - вставить формулы СУММ в конце таблицы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2006, 09:55:27
    #33896297
Sasha K
Sasha K
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ИТОГО по столбцам.
а как найти конец таблицы загружаемого в Exel текстового файла?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2006, 10:26:17
    #33896412
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ИТОГО по столбцам.
Поиск последней ячейки в EXCEL
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2006, 10:43:16
    #33896463
Sasha K
Sasha K
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ИТОГО по столбцам.
ЗдОрово, последнюю ячейку нашел, а как встваить формулу суммы в ячейку?
Selection.Cells(xx + 2).Value = "=SUM(???)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2006, 11:36:17
    #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, 12:18:52
    #33896806
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ИТОГО по столбцам.
Код: plaintext
Range(...).Formula = "=SUM(A1:A" & xx & ")"

можно записывать действия макрорекодером и делать по аналогии
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2006, 12:38:36
    #33896882
Sasha K
Sasha K
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ИТОГО по столбцам.
Спасибо, все работает ))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.10.2006, 22:10:55
    #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
| Ответить | Цитировать | Написать  
17.10.2006, 21:07:39
    #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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / ИТОГО по столбцам. / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 374ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2184120]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 67ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 235ms
total:  374ms
x
x
Закрыть


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