Вопрос : Суммированная таблица оси

Здравствулте! Experts
, котор я смотрят, что создаю таблицу оси, я верит от следующий первоначальных данных. Каждый месяц я получу комплект первоначальных данных (платы сырцовой) и я переставляю для того чтобы посмотреть четкую (законченную) форму. Так первоначальными данными будут только подсовокупность и каждый месяц количество и длина рапорта друг. Остается постоянн будет клиентами (или главным образом). Iий судимое using суммы и таблица оси, но проблема что некоторым из клиентов нужно быть суммированным пока другие не делают. В первоначальные данные я ручно напечатал на машинке в рядке вызванном сумма и положил в y для после того как я суммирован или n, котор нужно выйти как. Сумма колонки не нормальн там. Так я пытаюсь достигнуть будет сценарием vba будет tramform данные в мое четкое законченный product class= " lastRow
>Attachments " имени " class= class= " значение "
>
class= " fileInfo "
title= " " filename class= " sample3.xls (29 KB)  яваскрипт " href= " " attachmentDetails class= (тип архива детали)  
class= " описание "
sample3
class=
>
class=

Ответ : Суммированная таблица оси

О'КЕЙО, пытается это:

Не будет потребности ручно добавить в приватном или колонке суммы больше, по мере того как макрос делает это для вас.  По мере того как я пытался заявить более раньше, для того НОП это, котор нужно автоматизировать, я нужен некоторый вид логически дороги что этими показателями будут маркированные приватными или y или N.

И это мне было нужно знать:
«Кодие клиента начиная с m, и t и учитывают 4001 необходимы быть добавленным совместно для каждого символа.»

Также, самый последний архив, котор вы вывесили имеет все правильные данные, так теперь, когда спичка количества к вы надеялись.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

Sub CreatePivotTable ()

    Тусклое lastRow как длиной
    Затемните I как длиной
    
    Листы («сырцово»). Активируйте
    
    Ряд («A1»). Значение = «символ»
    Ряд («B1»). Значение = «Кодий клиента»
    Ряд («C1»). Значение = «количество»
    Ряд («D1»). Значение = «приватно»
    
    lastRow = листы («сырцово»). Ряд («a» & Rows.Count). Конец (xlUp). Рядок
    
    Для I = 2 к lastRow
        Если клетки, то (I, 2).Value = «4001» или о (клетки (I, 2).Value, 1) = «t» или о (клетки (I, 2).Value, 1) = «m» после этого
            Клетки (I, 2).Value = «приватно»
        Еще
        Закончитесь если
    Затем iий
    
    ActiveWorkbook.PivotCaches.Add (SourceType: =xlDatabase, SourceData: = _
        «Сырцово! R1C1: R» & lastRow & «C4») .CreatePivotTable TableDestination: = "", TableName: = _
        «PivotTable1», DefaultVersion: =xlPivotTableVersion10
    ActiveSheet.PivotTables («PivotTable1») .AddFields RowFields: = " символ», _
        ColumnFields: = " Кодий клиента "
    ActiveSheet.PivotTables («PivotTable1») .PivotFields («количество»). Ориентация = _
        xlDataField
    
Подводная лодка конца
 
sample4.xls (64 KB) (тип архива детали) 
Пример
 
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us