ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel 2007, сводные таблицы, итоги
7 сообщений из 32, страница 2 из 2
  2  все
Excel 2007, сводные таблицы, итоги
    #36874518
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
Петр К.,

Ничего не меняли в первоисточнике? у меня не ругается.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
ну объявите тип, может в этом дело
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Integer
Set pvfld = ActiveSheet.PivotTables("СводнаяТаблица5").PivotFields("Дата")
x =  0 
    With pvfld
        For i =  1  To .PivotItems.Count
            If .PivotItems(i).Visible = True Then x = x +  1 
        Next
    ActiveSheet.PivotTables("СводнаяТаблица5").CalculatedFields("Поле1").StandardFormula = "= " & x
    End With

End Sub
...
Рейтинг: 0 / 0
30.09.2010, 14:19
| Ответить | Цитировать | Написать  
Excel 2007, сводные таблицы, итоги
    #36874586
Петр К.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Петр К.
Гость
Нет, не менял.

> ну объявите тип, может в этом дело
К сожалению, с бейсиком не сталкивался.
...
Рейтинг: 0 / 0
30.09.2010, 14:40
| Ответить | Цитировать | Написать  
Excel 2007, сводные таблицы, итоги
    #36874989
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
Петр К.,

парадокс какой то
попробуйте на другой машине
...
Рейтинг: 0 / 0
30.09.2010, 16:13
| Ответить | Цитировать | Написать  
Excel 2007, сводные таблицы, итоги
    #36875408
Петр К.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Петр К.
Гость
На другой работает. Забавно..
Спасибо, буду разбираться.
...
Рейтинг: 0 / 0
30.09.2010, 18:18
| Ответить | Цитировать | Написать  
Excel 2007, сводные таблицы, итоги
    #36882057
Петр К.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Петр К.
Гость
После переустановки офсиа в игрушечной эксельке макрос заработал, но в настоящей сводной таблице - нет.

В рантайме вылетала ошибка type mismatch, а в отладке я обнаружил, что при попытке доступа к свойству Visible вылетает "Error 2042". На форуме mrexcel.com я обнаружил, что это означает Not Available.

Оказалось, что эксель не умеет работать таким образом с данными, которые подтягиваются напрямую из БД. Я слил исходные данные отчета на отдельную страницу, построил сводную по ним, и эта штука, наконец, заработала. Спасибо Шаманусу за скрипт.

Теперь, для полного счастья, надо было повесить это дело на более подходящее событие, пушо пересчитывать всю таблицу при каждом клике не по-джедайски.

Вот что получилось:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim x As Integer

    Set pvfld = ActiveSheet.PivotTables("PivotTableName").PivotFields("DATE_SCAN")
   
    x =  0 
      
    For Each pviItem In pvfld.PivotItems
      If pviItem.Visible Then x = x +  1 
    Next
    
    Set calcfld_val = ActiveSheet.PivotTables("PivotTableName").CalculatedFields("calcfld")
    
    If calcfld_val.StandardFormula <> "= " & x Then
        calcfld_val.StandardFormula = "= " & x
    End If

End Sub

Всем спасибо.
...
Рейтинг: 0 / 0
05.10.2010, 12:29
| Ответить | Цитировать | Написать  
Excel 2007, сводные таблицы, итоги
    #36890762
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Бэлый, Красный, Галубой - Выбэрай сабе любой!!!
...
Рейтинг: 0 / 0
09.10.2010, 12:49
| Ответить | Цитировать | Написать  
Excel 2007, сводные таблицы, итоги
    #36892353
Петр К.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Петр К.
Гость
Deggasad, спасибо. Буду ковырять.
...
Рейтинг: 0 / 0
11.10.2010, 12:31
| Ответить | Цитировать | Написать  
7 сообщений из 32, страница 2 из 2
  2  все
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel 2007, сводные таблицы, итоги
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36890762&tid=2177592]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 187ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 240ms
total:  517ms
созд. / загр.: 517ms
x
x
Закрыть


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