Developing.ru

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

[quote="VictorM"][code]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[/code]
Вставит примечания во все ячейки столбца, с заменой уже существующих, если таковые были.
Встаньте на первую, верхнюю ячейку столбца данных и запустите макрос.[/quote]

Удачи! В изучении матчасти!)
Рекомендую проштудировать мою ссылку, весь сайт.
Великолепный материал!!!

Спасибо огромное.
Буду учить матчасть по VB.
:)

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

[code]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[/code]
Вставит примечания во все ячейки столбца, с заменой уже существующих, если таковые были.
Встаньте на первую, верхнюю ячейку столбца данных и запустите макрос.

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

спасибо за ссылку. возможно, что у меня получится его исправить самой. просто нужно очень срочно....

а примечания тогда куда?
к каждой ячейке стролбца данных?
тогда воспользуйтесь циклом.
Кстати, почитайте [url=http://msoffice.nm.ru/vba/]Управляющие структуры ... Циклы[/url], много интересного.

наверно надо было мне корректней написать. простите чайника)))
надо чтобы он работал для всего столбца данных, а не для одной ячейки.

Sub Макрос2()
    With ActiveCell
        .AddComment
        .Comment.Text Text:=.Text
    End With
End Sub

тогда так)
[code]Sub Макрос2()
With ActiveCell
.AddComment
.Comment.Text Text:=.Text
End With
End Sub[/code]

а если нужно чтобы он работал не только в первом столбце, а в любом выделенном?

Sub Макрос1()
    With Range("A1")
        .AddComment
        .Comment.Text Text:=Range("A1").Text
    End With
End Sub

Добрый день!
Напишите что-либо в ячейке А1 и запустите макрос:
[code]Sub Макрос1()
With Range("A1")
.AddComment
.Comment.Text Text:=Range("A1").Text
End With
End Sub[/code]