Всплывающее окно, показывающее списком содержание ячеек другого листа

[Spring_me]

Уважаемые!
Подскажите, пожалуйста, как лучше реализовать всплывающее окно, которое бы показывало списком содержание ячеек другого листа

[EducatedFool]

В Excel есть инструмент "камера" - может, он подойдёт?

Окно не всплывающее, но вы сможете видеть содержимое нужных диапазонов с других листов.

См. пример:

[Spring_me]

Посмотрела..
Ммм... Дело в том, что показать содержание ячеек нужно по нажатию кнопки. Кнопку надо разместить в ячейке основной таблицы. Появившийся список - это справочная информация. Поэтому хотелось бы именно всплывающее окно. А потом этот список убирать хотелось бы нажатием кнопки типа "закрыть"..

Пока не представляю, как можно с использованием этого инструмента "красиво" представить и убрать такой список..

[EducatedFool]

Можно справочную информацию выводить формулами - плюс простейший макрос.
Есть ещё десяток других вариантов.

Не увидев вашего файла, и не поняв, что вы подразумеваете под "всплывающим окном" (нарисуйте, хотя бы, как оно должно выглядеть), вряд ли вам кто-нибудь сможет помочь...

[Spring_me]

Хорошо..
Итак, по нажатию кнопки СТМ на первом листе образца, хотелось бы видеть
всплывающее окно, как на рисунке (оно там, правда, от руки )

[EducatedFool]

Попробуйте такой вариант: http://excelvba.ru/XL_Files/Sample__...__19-05-37.zip

[Spring_me]

Cпасибо огромное, это очень близко к желаемому.
Но я не разобралась, каким образом это сделано. Можно небольшую инструкцию?
То же самое я хочу сделать для других столбцов..

[EducatedFool]

Алгоритм описывать достаточно долго.
Мне проще было переделать макрос))

Private Sub ToggleButton1_Change()
    On Error Resume Next
    Me.Shapes("sha1").Visible = Me.ToggleButton1.Value
    If Me.ToggleButton1.Value Then
        Application.ScreenUpdating = False
        a = ActiveCell.EntireColumn.Cells(5).Resize(6).Offset(-1, -1).Address
        With Me.Shapes("sha1")
            .Select
            Selection.Formula = "СТМ!" & a
            .Top = ActiveCell.Next.Top
            .Left = ActiveCell.Next.Left
        End With
        ActiveCell.Select
    End If
End Sub

Теперь у вас одна кнопка на все столбцы.

Выделяете любую ячейку в любом столбце, жмёте кнопку, - и справа от этой ячейки отображается информация с другого листа (из соответствующего столбца)

Проверяйте: http://excelvba.ru/XL_Files/Sample__...__13-17-31.zip


Можно сделать и без кнопки - "справочная информация" будет появляться автоматически при выделении ячеек:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count = 1 And Not Intersect([таблица], Target) Is Nothing Then
        Me.Shapes("sha1").Visible = -1
        Application.ScreenUpdating = False
        a = ActiveCell.EntireColumn.Cells(5).Resize(6).Offset(-1, -1).Address
        With Me.Shapes("sha1")
            .Select
            Selection.Formula = "СТМ!" & a
            .Top = ActiveCell.Next.Top
            .Left = ActiveCell.Next.Left
        End With
        ActiveCell.Select
    Else
        Me.Shapes("sha1").Visible = 0
    End If
End Sub

Пример в виде файла: http://excelvba.ru/XL_Files/Sample__...__13-27-16.zip
Мне такой вариант нравится даже больше.


PS: Вопрос спецам по VBA: как автофигуре назначить формулу, не выделяя её?
Макрорекордер пишет 2 варианта:

Sub Макрос1()
    ActiveSheet.Shapes("sha1").Select
    ExecuteExcel4Macro "FORMULA(""=R7C2:R9C3"")"
End Sub

Sub Макрос2()
    ActiveSheet.Shapes("sha1").Select
    Selection.Formula = "СТМ!B3:B6"
End Sub

А как сделать без Select-а?

[Spring_me]

Спасибо..Но все же нужно сделать кнопку для каждого столбца...
Пожалуйста, покажите, как адаптировать макрос для каждой кнопки..

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

На моем примере. При наведении курсора на ячейку B5 на основном листе, должно показываться как в примечании значение ячейки B5 на 3-ем листе, т.е. 5..

[The_Prist]

Сообщение от EducatedFool

PS: Вопрос спецам по VBA: как автофигуре назначить формулу, не выделяя её?

With Me.DrawingObjects("sha1")
      .Visible = -1
      a = ActiveCell.EntireColumn.Cells(5).Resize(6).Offset(-1, -1).Address
     .Formula = "СТМ!" & a
     .Top = ActiveCell.Next.Top + 3
     .Left = ActiveCell.Next.Left + 3
End With