Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с макросом / 2 сообщений из 2, страница 1 из 1
01.09.2004, 21:17
    #32676349
Alexey_D
Alexey_D
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с макросом
Всем привет!
У меня такая задача:
Есть таблица в Excel (3 столбца):
1.дата 2.имя 3.состояние (1,2,3)

дата1 А 1
дата1 В 2
дата1 С 1
дата2 А 3
дата2 В 1


Нужно перенести на другой лист, только в другом виде:
А В С
дата1 1 2 1
дата2 3 1 -

Как это сделать?
Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2004, 09:27
    #32676643
marvan
marvan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с макросом
Это надо сводную таблицу делать.
на листе 1 должно быть
Код: plaintext
1.
2.
3.
4.
5.
a\tb\tc
дата1\tA\t1
дата1\tB\t2
дата1\tC\t1
дата2\tA\t3
дата2\tB\t1
и сам макрос:
Код: plaintext
1.
Sub Макрос1()    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _        "Лист1!R1C1:R6C3").CreatePivotTable TableDestination:="", TableName:= _        "СводнаяТаблица2", DefaultVersion:=xlPivotTableVersion10    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)    ActiveSheet.Cells(3, 1).Select    ActiveSheet.PivotTables("СводнаяТаблица2").AddFields RowFields:="a", _        ColumnFields:="b"    ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields("c").Orientation = _        xlDataField    ActiveWorkbook.ShowPivotTableFieldList = TrueEnd Sub
Как отформатирован этот код?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с макросом / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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