genna » 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
Вставит примечания во все ячейки столбца, с заменой уже существующих, если таковые были.
Встаньте на первую, верхнюю ячейку столбца данных и запустите макрос.
ЗДРАВСТВУЙТЕ!
Вы или кто-нибудь сможете написать похожий макрос только для гугл докс ? за оплату)
если готовы отпишитесь пожалуйста на почту [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]