помогите написать макрос для примечаний

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

genna
Сообщения: 0
Зарегистрирован: 31 дек 2017, 02:48

31 дек 2017, 03:04

ЗДРАВСТВУЙТЕ!
Вы или кто-нибудь сможете написать похожий макрос только для гугл докс ? за оплату)
если готовы отпишитесь пожалуйста на почту support@laborant.ru
п.с. личное сообщение написать Вам не смог, система не разрешила(
VictorM писал(а):

Код: Выделить всё

Sub Test()
    Do
        Примечание = ActiveCell.Text
        If Примечание = "" Then Exit Do
        On Error Resume Next
        With ActiveCell
            .AddComment
            .Comment.Text Text:=.Text
        End With
        ActiveCell.Offset(1, 0).Activate
    Loop
End Sub
Вставит примечания во все ячейки столбца, с заменой уже существующих, если таковые были.
Встаньте на первую, верхнюю ячейку столбца данных и запустите макрос.
Ответить