Авторазмер для примечаний в столбце

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Авторазмер для примечаний в столбце (Макросы/Sub)

sanpai

Дата: Четверг, 17.01.2019, 13:22 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 31

Репутация: 1 ±

Замечаний: 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

Ответить

_Boroda_

Дата: Четверг, 17.01.2019, 14:05 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

Репутация: 6505 ±

Замечаний: ±

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

Ответить

sanpai

Дата: Четверг, 17.01.2019, 15:29 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 31

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Цитата _Boroda_, 17.01.2019 в 14:05, в сообщении № 3 ()

Так нужно?

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

Ответить

Авторазмер для примечаний в столбце (Макросы/Sub)

Страница 1 из 1
1