|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.08.2012, 18:24 | #1 |
Регистрация: 08.08.2012
Сообщений: 4
|
Run-time error 1004 (VBA)
Очень прошу помочь выдает ошибку "невозможно получить свойство PivotItems класса PivotField"...
Сам макрос: Sub Auto_open() Dim Mydate As Date Mydate = CStr(Now) Dim MyMonth As String MyMonth = MonthName(CStr(Month(Mydate)), False) With Лист1.PivotTables("СводнаяТаблица1" ).PivotFields("Месяц") .PivotItems("MyMonth").Visible = True .PivotItems("(blank)").Visible = False End With End Sub |
08.08.2012, 18:50 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Вот так попробуйте:
Код:
|
09.08.2012, 11:19 | #3 |
Регистрация: 08.08.2012
Сообщений: 4
|
Run-time error 1004 (VBA)
Пишет ту же ошибку в строке " .PivotItems(MyMonth).Visible = True"... (ошибка та же)
|
09.08.2012, 11:29 | #4 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Ну так прикрепите свой файл...
Мы тут не телепаты, чтобы угадывать, в чем проблема |
09.08.2012, 11:59 | #5 |
Регистрация: 08.08.2012
Сообщений: 4
|
высылаю
|
09.08.2012, 13:12 | #6 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
В коллекции ActiveSheet.PivotTables("СводнаяТаб лица2").PivotFields("Месяц").PivotI tems
содержится 8 элементов - с названиями от «Январь» до «Август» Элемента (поля) с названием «(blank)» там нет - потому макрос и вылетает с ошибкой на строке Код:
|
09.08.2012, 13:25 | #7 |
Регистрация: 08.08.2012
Сообщений: 4
|
Спасибо. все ок.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
run-time error '1004' (Application-defined or object-defined error) | Oldy7 | Microsoft Office Excel | 23 | 26.02.2012 21:18 |
Run-time error '1004': Application-defined or object-defined error | malor | Microsoft Office Excel | 3 | 17.01.2010 17:13 |
Pivot Run-time Error 1004 | stream71 | Microsoft Office Excel | 0 | 07.09.2009 15:41 |
Run-time error 1004 для метода Unprotect при общем доступе | Chelentano | Microsoft Office Excel | 2 | 11.08.2009 16:57 |
Run-time error '1004'. Недопустимый параметр! | nikolai_P | Microsoft Office Excel | 2 | 20.04.2009 18:06 |