The_Prist,
Но есть одна беда.
Я про тестил на Excel 2007 и он у меня ругается на
---------------------------
Microsoft Visual Basic
---------------------------
Compile error:
User-defined type not defined
---------------------------
ОК Справка
---------------------------
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
If Val(Application.Version) >= 14 Then 'условие проверки верссии. Если версия младе 2010 то не выполнять условие кода
'создание умной таблицы
WS2.ListObjects.Add(xlSrcRange, Range(Cells(1, 1), Cells(Sheet2_iRow - 1, 10)), , xlYes).Name = "Таблица1"
Dim mySC As SlicerCaches ' <= ругается на этом месте
Dim mySlicers As Slicers
Dim mySlicer As Slicer
Set mySC = ActiveWorkbook.SlicerCaches
Set mySlicers = mySC.Add(ActiveSheet.ListObjects("Таблица1"), "Город").Slicers
Set mySlicer = mySlicers.Add(ActiveSheet, , "Город", "Город", 70, 810, 160, 100)
End If
как быть?
