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

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

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

Natatka
Сообщения: 13
Зарегистрирован: 20 ноя 2009, 11:04

20 ноя 2009, 11:44

Добрый день!
Помогите написать макрос для преобразования данных в ячейке в Примечание.
Заранее спасибо.
Аватара пользователя
VictorM
Сообщения: 787
Зарегистрирован: 23 окт 2006, 01:44
Откуда: Lugansk, Ukraine
Контактная информация:

20 ноя 2009, 12:13

Добрый день!
Напишите что-либо в ячейке А1 и запустите макрос:

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

Sub Макрос1()
    With Range("A1")
        .AddComment
        .Comment.Text Text:=Range("A1").Text
    End With
End Sub
"Дайте людям рыбы, и вы накормите их на весь день;
научите их ловить рыбу - и вы накормите их на всю жизнь".
Natatka
Сообщения: 13
Зарегистрирован: 20 ноя 2009, 11:04

20 ноя 2009, 12:31

а если нужно чтобы он работал не только в первом столбце, а в любом выделенном?
Аватара пользователя
VictorM
Сообщения: 787
Зарегистрирован: 23 окт 2006, 01:44
Откуда: Lugansk, Ukraine
Контактная информация:

20 ноя 2009, 12:41

тогда так)

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

Sub Макрос2()
    With ActiveCell
        .AddComment
        .Comment.Text Text:=.Text
    End With
End Sub
"Дайте людям рыбы, и вы накормите их на весь день;
научите их ловить рыбу - и вы накормите их на всю жизнь".
Natatka
Сообщения: 13
Зарегистрирован: 20 ноя 2009, 11:04

20 ноя 2009, 12:47

наверно надо было мне корректней написать. простите чайника)))
надо чтобы он работал для всего столбца данных, а не для одной ячейки.
Аватара пользователя
VictorM
Сообщения: 787
Зарегистрирован: 23 окт 2006, 01:44
Откуда: Lugansk, Ukraine
Контактная информация:

20 ноя 2009, 12:52

а примечания тогда куда?
к каждой ячейке стролбца данных?
тогда воспользуйтесь циклом.
Кстати, почитайте Управляющие структуры ... Циклы, много интересного.
"Дайте людям рыбы, и вы накормите их на весь день;
научите их ловить рыбу - и вы накормите их на всю жизнь".
Natatka
Сообщения: 13
Зарегистрирован: 20 ноя 2009, 11:04

20 ноя 2009, 13:05

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

спасибо за ссылку. возможно, что у меня получится его исправить самой. просто нужно очень срочно....
Аватара пользователя
VictorM
Сообщения: 787
Зарегистрирован: 23 окт 2006, 01:44
Откуда: Lugansk, Ukraine
Контактная информация:

20 ноя 2009, 13:14

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

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
Вставит примечания во все ячейки столбца, с заменой уже существующих, если таковые были.
Встаньте на первую, верхнюю ячейку столбца данных и запустите макрос.
"Дайте людям рыбы, и вы накормите их на весь день;
научите их ловить рыбу - и вы накормите их на всю жизнь".
Natatka
Сообщения: 13
Зарегистрирован: 20 ноя 2009, 11:04

20 ноя 2009, 13:19

Спасибо огромное.
Буду учить матчасть по VB.
:)
Аватара пользователя
VictorM
Сообщения: 787
Зарегистрирован: 23 окт 2006, 01:44
Откуда: Lugansk, Ukraine
Контактная информация:

20 ноя 2009, 13:22

Удачи! В изучении матчасти!)
Рекомендую проштудировать мою ссылку, весь сайт.
Великолепный материал!!!
"Дайте людям рыбы, и вы накормите их на весь день;
научите их ловить рыбу - и вы накормите их на всю жизнь".
Ответить