Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.02.11;
Скачать: CL | DM;

Вниз

Сводная таблица в Excel   Найти похожие ветки 

 
SLP ©   (2006-11-20 10:32) [0]

Добрый день!
В программе данные запроса кидаю в Excel и строю сводную таблицу. Все сделала через макросы, кот перевела в D7.
Но сейчас понадобилось в уже готовой сводной таблице выделить жирным шрифтом отдельные объекты.
Сделала макрос:
ActiveSheet.PivotTables("СводнаяТаблица1").PivotSelect _
       ""сельдь  атл       "", xlDataAndLabel
   With Selection.Font
       .Name = "Arial CYR"
       .FontStyle = "полужирный"
       .Size = 10
       .Strikethrough = False
       .Superscript = False
       .Subscript = False
       .OutlineFont = False
       .Shadow = False
       .Underline = xlUnderlineStyleNone
       .ColorIndex = xlAutomatic
   End With  

В программе написала так:
XL.ActiveSheet.PivotTables("СводнаяТаблица1").PivotSelect("сельдь  атл       ",0);
пробовала так....
XL.ActiveSheet.PivotTables("СводнаяТаблица1").PivotSelect("сельдь  атл       ",0) := true;
В VB xlDataAndLabel=0
Но все равно  на этой строчке вылетает ошибка: "элемент не найден. Проверьте, что имя введено верно и такой элемент сводной таблицы существует".
Кто делал, подскажите пож-та как правильно перевести макрос?


 
SLP ©   (2006-11-20 11:55) [1]

Может быть хоть совет какой-нибудь бы дали...Мне не помешает любая информация.


 
ANB ©   (2006-11-20 11:59) [2]

Вообще то ветка к БД отношения не имеет . . .



Страницы: 1 вся ветка

Текущий архив: 2007.02.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.045 c
2-1169652134
ANB
2007-01-24 18:22
2007.02.11
Передать параметр макросу в Word


15-1169492223
Chort
2007-01-22 21:57
2007.02.11
Учебник 3Ds Max 6


15-1169250177
lookin
2007-01-20 02:42
2007.02.11
С днем рождения 20 января - Поздравляем


2-1169764213
Label2
2007-01-26 01:30
2007.02.11
Есть ли функция "имя"ToString ?


15-1169373734
Expell
2007-01-21 13:02
2007.02.11
В чем причина?