Страницы: 1
RSS
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
 
И что, обязательно размещать тему на всех форумах?  
http://programmersforum.ru/showthread.php?t=209143
 
Да ещё и постить в чужих?  
http://www.excelworld.ru/forum/2-2103-23537-16-1344436280
 
{quote}{login=Serge 007}{date=08.08.2012 08:14}{thema=}{post}Да ещё и постить в чужих?{/post}{/quote}  
 
Вот потому я у себя на сайте и не делаю форум (точнее, он сделан, но закрыт), - очень уж не люблю кросспостинг  
(сидишь, стараешься помочь, - а на других форумах давно ответы даны)
 
{quote}{login=EducatedFool}{date=08.08.2012 10:20}{thema=OFFTOP}{post}  
Вот потому я у себя на сайте и не делаю форум (точнее, он сделан, но закрыт), - очень уж не люблю кросспостинг  
(сидишь, стараешься помочь, - а на других форумах давно ответы даны){/post}{/quote}Игорь, никогда не мог понять этой позиции и видимо не пойму :-(  
Почему отвечать на нескольких форумах - это хорошо, а спрашивать - это плохо?  
 
ЗЫ ИМХО "Вариться в собственном соку" и "Складывать куриные яйца в одну корзину" - очень правильные поговорки...  
 
Те, кто сидят на строго определённых форумах - ограничивают себя сами. Что мешает расширить им кругозор? НИЧЕГО! А те кто по настоящему хотят получить ответ на свой вопрос- ищут другие форумы и постят на них. Это достойно уважения. Единственный минус - они редко отписываются, но и здесь их можно понять. Я всё же склонен к тому мнению что кросс-постинг - это больше благо, чем зло.  
 
Повторюсь - ИМХО. Ни на что не претендую, спорить не хочу. Просто я ТАК СЧИТАЮ
 
{quote}{login=Aleksy}{date=08.08.2012 06:26}{thema=Run-time error 1004 (VBA)}{post}  
Dim Mydate As Date  
Mydate = CStr(Now)  
{/post}{/quote}  
... и кто до этого додумался ???  
и вообще первые 4 строки кода ничего не делают
Спасибо
 
я додумалась...Спасибо, хоть Вы что-то ответили - буду знать, что нужно убрать из кода))
 
Извините, я не вкурсе была где свои форумы, где чужие. просто хочу побыстрее решить проблему... Прошу помочь)))
 
EducatedFoolEducatedFool, спасибо за помощь)
Страницы: 1
Читают тему
Наверх
Loading...