Страница 1 из 2
помогите написать макрос для примечаний
Добавлено: 20 ноя 2009, 11:44
Natatka
Добрый день!
Помогите написать макрос для преобразования данных в ячейке в Примечание.
Заранее спасибо.
Re: помогите написать макрос для примечаний
Добавлено: 20 ноя 2009, 12:13
VictorM
Добрый день!
Напишите что-либо в ячейке А1 и запустите макрос:
Код: Выделить всё
Sub Макрос1()
With Range("A1")
.AddComment
.Comment.Text Text:=Range("A1").Text
End With
End Sub
Re: помогите написать макрос для примечаний
Добавлено: 20 ноя 2009, 12:31
Natatka
а если нужно чтобы он работал не только в первом столбце, а в любом выделенном?
Re: помогите написать макрос для примечаний
Добавлено: 20 ноя 2009, 12:41
VictorM
тогда так)
Код: Выделить всё
Sub Макрос2()
With ActiveCell
.AddComment
.Comment.Text Text:=.Text
End With
End Sub
Re: помогите написать макрос для примечаний
Добавлено: 20 ноя 2009, 12:47
Natatka
наверно надо было мне корректней написать. простите чайника)))
надо чтобы он работал для всего столбца данных, а не для одной ячейки.
Re: помогите написать макрос для примечаний
Добавлено: 20 ноя 2009, 12:52
VictorM
а примечания тогда куда?
к каждой ячейке стролбца данных?
тогда воспользуйтесь циклом.
Кстати, почитайте
Управляющие структуры ... Циклы, много интересного.
Re: помогите написать макрос для примечаний
Добавлено: 20 ноя 2009, 13:05
Natatka
да. оно должно вставляться в каждую ячейку столбца.
к каждой ячейке свое примечание.
спасибо за ссылку. возможно, что у меня получится его исправить самой. просто нужно очень срочно....
Re: помогите написать макрос для примечаний
Добавлено: 20 ноя 2009, 13:14
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
Вставит примечания во все ячейки столбца, с заменой уже существующих, если таковые были.
Встаньте на первую, верхнюю ячейку столбца данных и запустите макрос.
Re: помогите написать макрос для примечаний
Добавлено: 20 ноя 2009, 13:19
Natatka
Спасибо огромное.
Буду учить матчасть по VB.
Re: помогите написать макрос для примечаний
Добавлено: 20 ноя 2009, 13:22
VictorM
Удачи! В изучении матчасти!)
Рекомендую проштудировать мою ссылку, весь сайт.
Великолепный материал!!!