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

Автор kompilainenn, 23 июня 2016, 09:53

0 Пользователи и 1 гость просматривают эту тему.

kompilainenn

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

JohnSUN

"нескольких" = скольких? Общая длина отображаемой информации какая?
Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне

kompilainenn

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

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

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

JohnSUN

А, ты про плавающее окно... А я уж было собрался послать тебя сюда
Владислав Орлов aka 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 - такая возможность отсутствует. Но можно просто в нужном месте сделать ссылку из ячейки на ячейку, правда, ее нельзя сделать непечатаемой (только скрывать или выносить за пределы области печати)
Руб. за сто, что Питоньяк
Любит водку и коньяк!
Потому что мне, без оных, -
Не понять его никак...