фильтр в сводной менять значение

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » фильтр в сводной менять значение (Макросы/Sub)

skais675

Дата: Среда, 19.04.2017, 13:42 | Сообщение № 1

Группа: Заблокированные

Ранг: Форумчанин

Сообщений: 138

Репутация: 3 ±

Замечаний: 100% ±

Excel 2010

[vba]

Код

ActiveSheet.PivotTables("ÑâîäíàÿÒàáëèöà2").PivotCache.Refresh
    With ActiveSheet.PivotTables("PivotTable2").PivotFields("Barcode")
       ss = Str(Cells(I, "AH").Value)
       MsgBox ss
       '.PivotItems(ss).Visible = False
       .PivotItems("3001108287260").Visible = True
    End With

[/vba]
.PivotItems("3001108287260").Visible = True - работает
а вот когда хочу как параметр передать '.PivotItems(ss).Visible = False - выдает ошибку
Что может быть или как решить этот вопрос?

Разоборался сам - была ошибка в самом ss = Str(Cells(I, "AH").Value) - почему то спереди добавлялся пробел поставил trim и все ок!

Vlad
skype: skais675
email: skais675@mail.ru

Сообщение отредактировал skais675 - Среда, 19.04.2017, 13:57

Ответить

Manyasha

Дата: Среда, 19.04.2017, 13:59 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

skais675, используйте Cstr вместо Str.

ЯД: 410013299366744 WM: R193491431804

Ответить

_Boroda_

Дата: Среда, 19.04.2017, 14:00 | Сообщение № 3

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Без примера и текста ошибки могу предположить, что Вы пытаетесь скрыть последнее видимое значение.
Попробуйте сначала всё открыть, а потом скрывать ненужное
[vba]

Код

.ClearAllFilters
.PivotItems(ss).Visible = False

[/vba]
А почему куски кода макроса без тегов?
И блин, сколько раз говорить, что нужен пример?
По совокупности - замечание

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » фильтр в сводной менять значение (Макросы/Sub)

Страница 1 из 1
1