Свой мастер диаграмм...

[daemon_mx]

Здравствуйте все!!! Возможно мой вопрос покажется простым и банальным.

На одном и листов в Exel'e есть таблица с данными но возникла потребность построить график по некоторым ячейкам которые выбираются пользователь. По этому поводу возник вопрос как получить адреса ячеек(коллекцию ячеек) выделенных пользователем с помощью Ctrl'a?

[GSerg]

Selection.

[daemon_mx]

Если можно немного по подробнее???

[GSerg]

Что именно?
Selection содержит все выделенные ячейки вне зависимости от их смежности.

[daemon_mx]

Для того чтобы построить график небходимо написать следующие строки

Код: Выделить всё

ActiveChart.SeriesCollection(1).XValues = "=лист1!R13C3:R27C3"
    ActiveChart.SeriesCollection(1).Values = "=лист1!R13C2:R27C2"

Поэтому у меня вопрос как перенести адреса ячеек(как строку) в эти две строки???

[GSerg]

Пан издевается???
Пан не смог, узнав, что надо selection, посмотреть selection.address?Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!??

[daemon_mx]

Нет я не издеваюсь просто я только начал разбираться в VBA поэтому некоторые вещи которые банальны для Вас, сможны для меня.

[daemon_mx]

Кстати возник еще один вопрос. А можно ли сделать выделение с помошью Ctrl'a более нагляднее, а не просто серый фон? Например чтобы по контуру "бегали муравьи" как в мастере диаграмм???

[Димитрий]

Может подойдёт конструкция:

Код: Выделить всё

On Error Resume Next
Dim rg As Range
Set rg = Application.InputBox(Prompt:="Выберите ячейки", Type:=8)
If Not rg Is Nothing Then
    MsgBox rg.Address
    'Ваши действия
End If

[daemon_mx]

Димитрий все работает но загвоздка в том, что список адресов выдается в следующем виде:

Код: Выделить всё

$G$6,$I$6,$E$6,$C$6,$K$6

а необходимо в таком виде:

Код: Выделить всё

R13C2:R27C2

для того чтобы потом получилась вот такая строчка

Код: Выделить всё

ActiveChart.SeriesCollection(1).Values = "=лист1!R13C2:R27C2"

Может кто-нибудь делал подобное??? Подскажите как сделать???

[Pavel55]

Может так ?

Код: Выделить всё

Sub Макрос1()
    Dim iRange As String
    iRange = Selection.Address(ReferenceStyle:=xlR1C1)
    MsgBox iRange
End Sub

[Димитрий]

daemon_mx поставте в начале

Код: Выделить всё

Application.ReferenceStyle = xlR1C1

[daemon_mx]

Спасибо! Теперь показывает в формате R1C1, но выходит ошибка в строке

Код: Выделить всё

ActiveChart.SeriesCollection(1).Values =

он требует чтобы строка содержала название листа(помимо R1C1)

Код: Выделить всё

"=лист1!R4C3:R4C27"

можно ли решить данную проблему??? Или придется самому вписывать название листа(программно)?