Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Авторазмер для примечаний в столбце - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Авторазмер для примечаний в столбце (Макросы/Sub)
Авторазмер для примечаний в столбце
sanpai Дата: Четверг, 17.01.2019, 13:22 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
К сожалению, с учебы прошло уже много времени и вспомнить основы для самостоятельного решения не могу. Прошу помочь с макросом:
[vba]
Код
Sub All_Comments_Size_Change()
Dim iComment As Comment
For Each iComment In ActiveSheet.Comments
iComment.Shape.TextFrame.AutoSize = True
Next iComment
End Sub
[/vba]
Этот макрос рабочий, он проставляет выравнивание примечаний как "автоматический размер" для ВСЕГО листа. Мне же нужно указать определенный диапазон, например, столбец "A". Пытался сам, но не знаю как, пробовал:
[vba]
Код
Dim iComment As Comment
For Each iComment In ActiveWorkbook.Worksheets("Ëèñò1").Range("A11:A1000")
iComment.Shape.TextFrame.AutoSize = True
Next iComment
End Sub
[/vba]

Не пашет. Подскажите, если не сложно.


Сообщение отредактировал sanpai - Четверг, 17.01.2019, 14:03
 
Ответить
СообщениеК сожалению, с учебы прошло уже много времени и вспомнить основы для самостоятельного решения не могу. Прошу помочь с макросом:
[vba]
Код
Sub All_Comments_Size_Change()
Dim iComment As Comment
For Each iComment In ActiveSheet.Comments
iComment.Shape.TextFrame.AutoSize = True
Next iComment
End Sub
[/vba]
Этот макрос рабочий, он проставляет выравнивание примечаний как "автоматический размер" для ВСЕГО листа. Мне же нужно указать определенный диапазон, например, столбец "A". Пытался сам, но не знаю как, пробовал:
[vba]
Код
Dim iComment As Comment
For Each iComment In ActiveWorkbook.Worksheets("Ëèñò1").Range("A11:A1000")
iComment.Shape.TextFrame.AutoSize = True
Next iComment
End Sub
[/vba]

Не пашет. Подскажите, если не сложно.

Автор - sanpai
Дата добавления - 17.01.2019 в 13:22
_Boroda_ Дата: Четверг, 17.01.2019, 14:05 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 14861
Репутация: 5879 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
Sub tt()
    On Error Resume Next
    For Each d In Range("A2:A99").SpecialCells(xlCellTypeComments)
        d.Comment.Shape.TextFrame.AutoSize = True
    Next d
End Sub
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[vba]
Код
Sub tt()
    On Error Resume Next
    For Each d In Range("A2:A99").SpecialCells(xlCellTypeComments)
        d.Comment.Shape.TextFrame.AutoSize = True
    Next d
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 17.01.2019 в 14:05
sanpai Дата: Четверг, 17.01.2019, 15:29 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Так нужно?


Именно! Спасибо!
 
Ответить
Сообщение
Так нужно?


Именно! Спасибо!

Автор - sanpai
Дата добавления - 17.01.2019 в 15:29
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Авторазмер для примечаний в столбце (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!