Построить диаграмму по именнованной области

[wowa]

Ка можно, не программно, построить диаграмму по именнованной области?

Есть таблица
A1:B5 , name = "www"
Далее вручную строю диаграмму и прописываю в Data Range "=www"
Все строиться как надо, но когда я проверяю Data Range, то уже там "$A$5:$B$5"
Т.е. если я добавлю в таблицу еще одно значение, т.е. будет A1B6 (name все равно ="www"), то диаграмма не воспримет новое значение, т.к. она строиться по уже не по "www", а по "$A$5:$B$5"

Подскажите, как выйти из данной ситуации??

 

[Tanya]

В качетсве источника данных нужно указать диапазон с резервом для будущих данных, например "A1:B10000"
(существует ограничение на количесвто данных, но это устанавливается опытным путем)))))).

Такой подход позволяет добавлять новые данные и диаграмма будет автоматом изменяться!!!

Можно проименовать диапазон и затем указать его в качестве источника данных для диаграммы, но потом в качестве данных все равно будет использоваться абсолютный адрес диапазона. К сожалению.

 

[wowa]

качетсве источника данных нужно указать диапазон с резервом для будущих данных, например "A1:B10000"

Tanya , данный вариант не подходит, потому что на странице имеется две таблицы (например: А1:B5 и A11:B15 ) и две диаграммы

 

[Tanya]

тогда (наверное) только программно

 

[wowa]

Tanya , Подскажите, пожалуйста, как программно получить координаты сводной таблицы? или хотя бы ее верхний левый угол.. (

 

[Tanya]

В примере рисуем прямоугольник над верхней левой ячейкой сводной таблицы:

Sub MakeRectangle()
Dim d As Range

With ActiveWorkbook.ActiveSheet
'получаем дипазон ячеек совдной таблицы
Set d = .PivotTables(1).TableRange1

'и рисуем прямоуголник над верхней левой ячейкой
.AddShape msoShapeRectangle, d.Left, d.Top, d.Cells(1, 1).Width, d.Cells(1, 1).Height
End With
End Sub

 

[wowa]

Tanya , подскажите пожалуйста, хоть и не по теме
Есть массив значений, там текстовые значения
Как из массива удалить повторяющиеся элементы???

 

[Tanya]

Лучше по контексту смотреть )))
Если массив одномерный и заполняешь сам, то удобно в коллекцию его загонять.
А если массив уже существует, то тогда удобнее его отсортировать, а потом удалять повторы.
Какой вариант предпочтительнее?

 

[wowa]

Ну вот небольшая выборка, массив одномерный, и заполняю сам. Вот как сделать , чтобы многие значения не повторялись. Неужто цикл в цикле делать... ((

C
C++
HTML
Java
JavaScript
Прочее
SQL
VBA
XML
Assembler i80x86x...
C
C++
HTML
Lotus @Formula Language
LOTUS SCRIPT
Pascal
SQL
Visual Basic
Прочее
C
C++
HTML
Object Pascal
SQL
Прочее
HTML
Object Pascal
Pascal
Прочее
Прочее

 

[Tanya]

Если заполняешь сам, тогда можно использовать коллекции!!!

Sub Start()
'Это стартовая функция, в ней заполняется коллекция
Dim col As Collection
Dim s As String

Set col = New Collection

'Заполенение
AddItem col, "hh"
AddItem col, "bb"
AddItem col, "vvv"
AddItem col, "hh"

' распечатываем колличество и коллекцию
s = "Count = " & col.Count & vbCrLf			 'количество

'элементы
For i = 1 To col.Count
s = s & i & vbTab & col(i) & vbCrLf
Next i

' выводим в окошке
MsgBox s

Set col = Nothing

End Sub


Sub AddItem(col As Collection, newElem As String)
'добавление новых элементов в коллекцию
'ошибка возникает, если такой элемент уже существует

'поэтому здесь делаем игнор ошибок
On Error Resume Next

col.Add newElem, newElem

'а здесь отключаем обработчик
On Error GoTo 0
End Sub

 

[wowa]

..

Tanya , оуу, у мну наверно все же второй вариант, когда массив уже существует., сорри за некорректно заданный вопрос.
Ну вообщем у меня в ячейке вот такая строка

HTML::Object Pascal::SQL::Прочее::HTML::Object Pascal

С помощью

aInYaz = Split(.Cells(1, 1).value, "::")

Я перевожу в массив, и теперь нужно удалить одинаковые элементы

 

[Tanya]

Нуууу, тут такое дело ....
Цикла не избежать никак, но если делать по второму варианту, то , как понимаешь
циклов будет несколько, а если делать микс ))) первого и второго, то достаточно только одного цикла

Есть вариант не использовать сплит, тоже будет один цикл...
1) Вариант нескольких циклов без коллекций мне не нравится, потомучто писать дольше, отлаживаться сложнее, явных преимуществ я не вижу.
2) Вариант только сплит + один цикл с коллекцией - проще всего.
3) Вариант только цикл с коллекцией, что-то среднее: не нужно сортировать или несколько раз пробегать по исходной строке, но чуть сложнее ))) в разбиении самой строки на подстроки.

Я опишу второй вариант (я бы сделала бы так)))), а если уж совсем не устроит так, то подумаем, как сделать первый вариант)))

Sub n()
Dim i As Integer
Dim arr() As String
Dim strSource As String
Dim col As Collection

strSource = "HTML::Object Pascal::SQL::Прочее::HTML::Object Pascal"
arr = Split(strSource, "::")

Set col = New Collection
For i = LBound(arr) To UBound(arr)
AddItem col, arr(i)
Next i

strSource = "Найдено " & col.Count & " элементов:" & vbCrLf
For i = 1 To col.Count
strSource = strSource & i & vbtcb & col(i) & vbCrLf
Next i

MsgBox strSource

End Sub

Sub AddItem(col As Collection, Item As String)
On Error Resume Next

col.Add Item, Item

On Error GoTo 0
End Sub

В примере strSource можно передавать в функцию как параметр

 

[wowa]

Tanya , Огромное спасибо, выручили! Вот только рейтинг пока поднять не могу (ограничение 7 дней)

 

[Tanya]

Да, ладно рада помочь

 

[wowa]

Tanya, возникло еще пару вопросов((, может знаете как их решить:
1. На странице была одна сводная таблица, и я ее рефрешил так:

Worksheets(WSName1).PivotTables(PTName1).PivotCache.Refresh

Далее у меня срабатывало событие PivotTableUpdate - вообщем работало все как надо

Теперь у меня на другой странице - 3 Сводной таблицы.
Мне их нужно сразу три рефрешнуть, и только потом чтобы запускалось событие......
Вот как это возможно сделать??... Либо что-то другое придумать...
В PivotTableUpdate у меня по каждой сводной таблице строиться обычная таблица, далее по обычной - диаграмма.

 

[Tanya]

Если идет принудительный рефреш 3 таблиц сразу, то можно заменить событие на обычную процедуру,
которую и выполнять после принудительного рефреша. Событие убираем.

 

[wowa]

Tanya , насколько я понял , то мне такой вариант не подходит,.. так как событие PivotTableUpdate должно существовать.., потому что при работе со сводной таблицей у меня перестраиваются другие таблицы и диаграммы!

 

[Tanya]

То есть должно существовать событие, которое отключается при принудительном обновлении сразу трех таблиц,
а в остальных случаях работает?
Если так, то создаем новую процедуру, которая содержит функционал обработчика события,
в событии просто вызываем эту процедуру.
Далее создаем флаг на уровне модуля (или проекта, смотря как написаны макросы), который по умолчанию равен, например, False.
Перед принудительном обновлением выставляем его в True, а после обновления таблиц вызываем процедуру и выставляем флаг снова в False.

Схематически, выглядеть будет примерно так:

' Module
Private blnRefreshOff as Boolean

...
Sub AfterRefresh()
...
End Sub

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
If Not blnRefreshOff Then
Call AfterRefresh
End If
End Sub

...

Private Sub MyProc()
...
blnRefreshOff = True

Worksheets(WSName1).PivotTables(PTName1).PivotCache.Refresh
Worksheets(WSName1).PivotTables(PTName2).PivotCache.Refresh
Worksheets(WSName1).PivotTables(PTName3).PivotCache.Refresh

Call AfterRefresh

blnRefreshOff = False
...
End Sub

 

[wowa]

Tanya , подскажите еще такой момент
Делаю сортировку такой таблицы, первый столбик - номер строки

17 2001 9
18 2004 38
19 2008 35
20 2005 31
21 2007 35
22 2002 10
23 2003 22
24 2006 27

с помощью кода:

.Range("А17:B24").Sort _
Key1:=.Range("A18")

Получаю как надо, отсортировал первый столбик по году

17 2001 9
18 2002 19
19 2003 41
20 2004 79
21 2005 110
22 2006 137
23 2007 172
24 2008 207

Но не получается отсортировать вот такую таблицу:

19 2001 2004 2008 2005 2007 2002 2003 2006
20 1 1 3 4 1 4 1
21 5 31 30 17 26 4 10 19

Вообщем когда отсортировать не строки(как в первом случае), а столбики

 

[Tanya]

На скорую руку, не пробуя: в справке говорится что у метода Sort есть параметр Orientation

Orientation Optional XlSortOrientation. The sort orientation.

XlSortOrientation can be one of these XlSortOrientation constants.
xlSortRows default. Sorts by row.
xlSortColumns. Sorts by column.

может это именно то, что нужно?