Узнать существует ли сводная на листе

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Узнать существует ли сводная на листе (Макросы Sub)

MaksPrognoz

Дата: Воскресенье, 18.08.2013, 22:18 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

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

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

Excel 2007

Здравствуйте.
Подскажите как узнать, есть ли сводная на листе.
На одном листе может быть несколько сводных таблиц.
То есть условие
if СводнаяТаблица существует Then
удалить
else
создать
End If
Не могу понять какой маркер отвечает за условие.

Ответить

MaksPrognoz

Дата: Воскресенье, 18.08.2013, 23:37 | Сообщение № 2

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

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

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

Excel 2007

ОООО...Всё!!! Всем спасибо. Уже нашел

[vba]

Код

If Worksheets(ИмяЛистаДляВставкиСводной).PivotTables.Count > 0 Then
Worksheets(ИмяЛистаДляВставкиСводной).PivotTables("СводнаяТаблица13").TableRange2.Clear
end if

[/vba]

Ответить

MaksPrognoz

Дата: Воскресенье, 18.08.2013, 23:57 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

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

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

Excel 2007

Цитата (MaksPrognoz, 18.08.2013 в 23:37, в сообщении №2)

ОООО...Всё!!! Всем спасибо. Уже нашел

If Worksheets(ИмяЛистаДляВставкиСводной).PivotTables.Count > 0 Then
Worksheets(ИмяЛистаДляВставкиСводной).PivotTables("СводнаяТаблица13").TableRange2.Clear
end if

Хотя не совсем подходит под мои условия, так как у меня может быть несколько сводных таблиц на листе. Допустим будет две, 1 и 2.
2 есть, 1 нет. Условие на количество больше 0 пройдет, а вот 1 таблицы не будет. Выйдет ошибка. Что то я совсем поплыл.

Ответить

KuklP

Дата: Понедельник, 19.08.2013, 00:45 | Сообщение № 4

Группа: Проверенные

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

Сообщений: 2369

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

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

2003-2010

[vba]

Код

Function PivotExist(SheetName As String, PivotTableName As String) As Boolean
'Возвращает ИСТИНА, если сводная существует
     Dim x As PivotTable
     On Error Resume Next
     Set x = Worksheets(SheetName).PivotTables(PivotTableName)
     PivotExist = (Err = 0)
End Function

Public Sub www()
     If PivotExist("Лист4", "СводнаяТаблица1") Then MsgBox "YES!!!" Else MsgBox "NO!!!"
End Sub

[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Узнать существует ли сводная на листе (Макросы Sub)

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