Вопрос по примечаниям в Excel

[oleg4224]

Добрый день !
Вопрос несколько нестандартный
можно ли макросом по фигуре-кнопке показать ВСЕ примечания созданные в ячейках таблицы и потом другим макросом скрыть их ? Возможно ли это ?

[Hugo121]

Легко. Можно одним макросом обойтись.

Sub tt()
    Dim c As Range
    On Error Resume Next
    For Each c In ActiveSheet.UsedRange.Cells
        c.Comment.Visible = Not c.Comment.Visible
    Next
End Sub

Не совсем правда по задаче - если часть комментов изначально видима, то будет чехарда. Но конечно можно доработать.
P.S.

Sub tt()
    Dim c As Range
    Static flag As Boolean
    flag = Not flag
    On Error Resume Next
    For Each c In ActiveSheet.UsedRange.Cells
        c.Comment.Visible = flag
    Next
End Sub

[IgorGO]

Application.DisplayCommentIndicator = xlCommentAndIndicator
и
Application.DisplayCommentIndicator = xlCommentIndicatorOnly

что какой режим включает выясните сами экспериментальным путем.
удачи!

[Hugo121]

Век живи, век учись

Тогда вариант:

Sub ttt()
    With Application: .DisplayCommentIndicator = .DisplayCommentIndicator * -1: End With
End Sub

[oleg4224]

Перепробовал все варианты -конечно вариант Hugo121 последний самый предпочтительный но при этом конечно всплывающие подсказки перемешиваются трудно сориентироваться потом

если изначально всплывающую подсказку делать в пределах высоты строки
она органично вписывается в строку и при отображении всех всплывающих подсказок все выстраивается как надо

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

поэтому такой вопрос - можно ли заставить програмно excel делать примечание ячейки чтобы поле примечания было в пределах высоты строки (в которой находится эта ячейка с примечанием) и поле примечания автоматом расширялось под вставляемый текст ? Возможно ли это ?

Просто в формате примечания регулирутся только шрифт а положения и автом. расширения от обьема текста нет

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


либо 2 вариант - при появлении всех примечаний каждая строка автоматически расширятся по высоте под высоту своего примечания - при скрытии примечания строка сжимается

[gling]

Если придумаете как считать количество знаков вставляемых в примечание может этот файл и пригодится.

[oleg4224]

Похоже с этими примечаниями замучаешься - придумал другой путь решения вопроса

Вношу данные с большим количеством текста в ячейку столбца D таблицы -
делаю кнопку сокрытия этого столбца + раскрытие этого столбца D

ввожу в макрос таблицы автоподбор высоты строки в диапазоне Rows("3:5009")

Rows("3:5009").EntireRow.AutoFit 'выравнивание высоты строки

при этом нужно когда столбец D с большим количесттвом текста скрыт
автоподбор высоты в строках велся по наибольшему количеству символов в любом столбце строки (кроме столбца D - те при этом один столбец D не учитывался при этом автоподборе)


кнопка
Private Sub CommandButton1_Click()
On Error Resume Next
If Columns(4).Hidden = False Then
Columns(4).Hidden = True
CommandButton1.Caption = "Показать вопрос"
Rows("3:5009").EntireRow.AutoFit 'выравнивание высоты строки
Else
Columns(4).Hidden = False
CommandButton1.Caption = "Скрыть вопрос"
Rows("3:5009").EntireRow.AutoFit 'выравнивание высоты строки
End If
ActiveSheet.Select
On Error GoTo 0
End Sub

как изменить строку
Rows("3:5009").EntireRow.AutoFit 'выравнивание высоты строки

чтоб не учитывался только столбец D по автоподбору высоты строки??

[SAS888]

Если я правильно понял, то так:

Columns("A:C").AutoFit: Columns("E:O").AutoFit

[oleg4224]

Код:
Columns("A:C").AutoFit: Columns("E:O").AutoFit

к сожалению не подходит - форматирование по ширине столбцов идет здесь


а надо по ширине строк в дипазонах A3:C5000 и E3:O5000 - при этом диапазон D3:D5000 надо исключить

смысл то такой что при скрытии столбца D с большим количеством текста - высота строк в таблице уменьшалась - в новом примере показал как должно быть до и после скрытия столбца D по высоте строк(примеры на разных листах книги)

ТК ВОПРОС перешел в другую тему - создам новую тему