Постоянное отображение значения произвольной ячейки на экране

[kompilainenn]

Есть ли возможность видеть значение одной или нескольких заданных ячеек вне зависимости от текущего положения курсора или области листа, отображаемой на экране?
Разделение экрана или фиксация строк/столбцов не вариант

[JohnSUN]

"нескольких" = скольких? Общая длина отображаемой информации какая?

[kompilainenn]

нескольких - это пять максимум, по хорошему нужна возможность отображать число из 10 знаков с разделением разрядов и название этой ячейки, ну типа:

Общая стоимость материалов: 100 000 000

ps: В экселе есть такая штука "Окно контрольного значения", может аналогичное есть и в ЛО?

[JohnSUN]

А, ты про плавающее окно... А я уж было собрался послать тебя сюда

[economist]

Если я правильно понял - нужен аналог Окно контрольного значения. Как в MS Excel.
Однако большое висящее перед носом окно нравится немногим. Делал замену ему, дал
технологии имя "ГлазОк", частота использования в документах моего офиса - 0,04%.
Добавляет на лист/каждый лист окно, отображающее ячейку или диапазон яч. с любого листа.
Можно макросом делать его "самоцентрирующимся", но мне это не понравилось.

Код Выделить Развернуть


Sub GlazOk()
' (c) economist, 2009
' вставка диапазона листа как "камеры" - "ГлазОк" на текущий или все нескрытые листы
Dim cam
Dim cam2
Dim aNs
Dim strok

aNs = MsgBox("""ГлазОк"" позволяет всегда перед глазами держать важные ячейки (этого или другого листа и даже другой книги), как бы подсматривать за ним :-)) Например, низ (итоги) длинной таблицы всегда будут вверху, даже при прокрутке листа мышью. ""Глазок"" легко удалить в любое время." & vbCrLf & vbCrLf & "Нужный диапазон ячеек уже выделен?", vbYesNo + vbQuestion)
If aNs <> 6 Then End
strok = Selection.Rows.Count
Selection.Copy
Set cam = ActiveSheet.Pictures.Paste(Link:=True)
       
cam.Formula = "'[" & ActiveWorkbook.Name & "]" & ActiveSheet.Name & "'!" & cam.Formula
cam.ShapeRange.IncrementLeft 100
cam.ShapeRange.Top = 0
   
cam.ShapeRange.Fill.Visible = msoTrue
cam.ShapeRange.Fill.Solid
cam.ShapeRange.Fill.ForeColor.SchemeColor = 65
cam.ShapeRange.Fill.Transparency = 0#
cam.ShapeRange.Line.Weight = 0.75
cam.ShapeRange.Line.DashStyle = msoLineSolid
cam.ShapeRange.Line.Style = msoLineSingle
cam.ShapeRange.Line.Transparency = 0#
cam.ShapeRange.Line.Visible = msoTrue
cam.ShapeRange.Line.ForeColor.SchemeColor = 64
cam.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
cam.ShapeRange.PictureFormat.Brightness = 0.6
cam.ShapeRange.PictureFormat.Contrast = 0.5
cam.Copy

If ActiveWindow.FreezePanes = False Then
   Cells(strok + 1, 1).Activate
   ActiveWindow.FreezePanes = True
End If

aNs = MsgBox("Добавить ""ГлазОк"" только на ЭТОТ лист (иначе - на каждый не-скрытый)", vbYesNo + vbQuestion)
If aNs <> 6 Then ' да
   Dim sh
   For Each sh In ActiveWorkbook.Worksheets
       If sh.Visible = True And sh.Name <> ActiveSheet.Name Then
           sh.Paste
           Set cam2 = sh.Shapes(sh.Shapes.Count)
           cam2.IncrementLeft 100
       End If
   Next sh
End If
End Sub


Что же касается Calc - такая возможность отсутствует. Но можно просто в нужном месте сделать ссылку из ячейки на ячейку, правда, ее нельзя сделать непечатаемой (только скрывать или выносить за пределы области печати)