Sub Test()
Dim c As Comment
For Each c In ActiveSheet.Comments
c.Visible = True
c.Parent.Select
MsgBox "A"
c.Visible = False
Next c
End Sub
Коментарии(примечания) в Ёкселе
В Ёкселе на листе имеются комментарии, количество может колебаться от нуля до двух тысяч. Создаются комментарии программно.
Моя задача, создать кнопку, которая поочередно высвечивала бы комментарии.
Я пошел по следующему пути. Некий цикл определяет первый комментарий, и делает его активным. При следующем нажатии кнопки, определяется имя активного комментария, находится следующий в цикле комментарий, он делается активным, и далее с ним происходят нужные мне изменения.
Dim Com As Shape
For Each Com In ActiveSheet.Shapes
t = Com.Name
ActiveSheet.Shapes(t).Select
Next
Но комментарий хоть и становится активным, но на экран не выводится. То есть, если он где то в конце книги, то в рамочку он берется, но на экране остается картина, которая была до активации комментария.
Стандартная кнопка «Следующее примечание» не подходит, потому, как мало вывести на экран примечание, а еще и переделать его.
Могу находить высоту угла активного комментария: Высота = Selection.Top. Но как теперь заставить лист прокрутится на нужное количество пунктов, не знаю.
Попытка использования макрорекордера ни к чему не привела.
Моя задача, создать кнопку, которая поочередно высвечивала бы комментарии.
Я пошел по следующему пути. Некий цикл определяет первый комментарий, и делает его активным. При следующем нажатии кнопки, определяется имя активного комментария, находится следующий в цикле комментарий, он делается активным, и далее с ним происходят нужные мне изменения.
Dim Com As Shape
For Each Com In ActiveSheet.Shapes
t = Com.Name
ActiveSheet.Shapes(t).Select
Next
Но комментарий хоть и становится активным, но на экран не выводится. То есть, если он где то в конце книги, то в рамочку он берется, но на экране остается картина, которая была до активации комментария.
Стандартная кнопка «Следующее примечание» не подходит, потому, как мало вывести на экран примечание, а еще и переделать его.
Могу находить высоту угла активного комментария: Высота = Selection.Top. Но как теперь заставить лист прокрутится на нужное количество пунктов, не знаю.
Попытка использования макрорекордера ни к чему не привела.
Цитата:
Dim Com As Shape
For Each Com In ActiveSheet.Shapes
t = Com.Name
ActiveSheet.Shapes(t).Select
Next
For Each Com In ActiveSheet.Shapes
t = Com.Name
ActiveSheet.Shapes(t).Select
Next
У меня этот макрос выдает ошибку: "Method 'Select' of object 'Shape' failed"
Скорей всего комментарии в Екселе нельзя программно выводить.
Цитата:
Originally posted by Cutty Sark
Вот так это делается:
[/code]
Вот так это делается:
[/code]
Ага,значит все дело в c.Parent.Select
Все так просто?
Вообще то я заметил,что после смены имиджа модером этого форума я заметно поглупел,вместо дела,хочется все время говорить комплименты,нести чушь прекрасную,и офтопить,офтопить и офтопить.
За офтоп готов понести заслуженное наказание,но только от рук модератора :-)),админам просьба не беспокоится
Цитата:
Originally posted by Штурман
Ага,значит все дело в c.Parent.Select
Все так просто?
Вообще то я заметил,что после смены имиджа модером этого форума я заметно поглупел,вместо дела,хочется все время говорить комплименты,нести чушь прекрасную,и офтопить,офтопить и офтопить.
За офтоп готов понести заслуженное наказание,но только от рук модератора :-)),админам просьба не беспокоится
Ага,значит все дело в c.Parent.Select
Все так просто?
Вообще то я заметил,что после смены имиджа модером этого форума я заметно поглупел,вместо дела,хочется все время говорить комплименты,нести чушь прекрасную,и офтопить,офтопить и офтопить.
За офтоп готов понести заслуженное наказание,но только от рук модератора :-)),админам просьба не беспокоится
:D :D :D
Могу вернуть обратно предыдущий... (если для работы надо)
А могу еще предоставить аватар, на котором обе, так сказать, ипостаси в обнимку. ;)
Цитата:
Originally posted by Cutty Sark
:D :D :D
Могу вернуть обратно предыдущий... (если для работы надо)
А могу еще предоставить аватар, на котором обе, так сказать, ипостаси в обнимку. ;)
:D :D :D
Могу вернуть обратно предыдущий... (если для работы надо)
А могу еще предоставить аватар, на котором обе, так сказать, ипостаси в обнимку. ;)
не не не не.юни в коим случаи,так гораздо лучшее