+ Ответить в теме
Показано с 1 по 10 из 10

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

  1. #1
    dummy
    coder
    Natatka is on a distinguished road
    Регистрация
    20.11.2009
    Возраст
    33
    Сообщений
    13
    Вес репутации
    0

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

    Добрый день!
    Помогите написать макрос для преобразования данных в ячейке в Примечание.
    Заранее спасибо.

  2. По умолчанию

     
    Хотите избавиться от рекламы? Зарегистрируйтесь
  3. #2
    system architect VictorM is on a distinguished road Аватар для VictorM
    Регистрация
    23.10.2006
    Адрес
    Lugansk, Ukraine
    Сообщений
    787
    Вес репутации
    14

    По умолчанию Re: помогите написать макрос для примечаний

    Добрый день!
    Напишите что-либо в ячейке А1 и запустите макрос:
    Код :
    1. Sub Макрос1()
    2.     With Range("A1")
    3.         .AddComment
    4.         .Comment.Text Text:=Range("A1").Text
    5.     End With
    6. End Sub
    "Дайте людям рыбы, и вы накормите их на весь день;
    научите их ловить рыбу - и вы накормите их на всю жизнь".

  4. #3
    dummy
    coder
    Natatka is on a distinguished road
    Регистрация
    20.11.2009
    Возраст
    33
    Сообщений
    13
    Вес репутации
    0

    По умолчанию Re: помогите написать макрос для примечаний

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

  5. #4
    system architect VictorM is on a distinguished road Аватар для VictorM
    Регистрация
    23.10.2006
    Адрес
    Lugansk, Ukraine
    Сообщений
    787
    Вес репутации
    14

    По умолчанию Re: помогите написать макрос для примечаний

    тогда так)
    Код :
    1. Sub Макрос2()
    2.     With ActiveCell
    3.         .AddComment
    4.         .Comment.Text Text:=.Text
    5.     End With
    6. End Sub
    "Дайте людям рыбы, и вы накормите их на весь день;
    научите их ловить рыбу - и вы накормите их на всю жизнь".

  6. #5
    dummy
    coder
    Natatka is on a distinguished road
    Регистрация
    20.11.2009
    Возраст
    33
    Сообщений
    13
    Вес репутации
    0

    По умолчанию Re: помогите написать макрос для примечаний

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

  7. #6
    system architect VictorM is on a distinguished road Аватар для VictorM
    Регистрация
    23.10.2006
    Адрес
    Lugansk, Ukraine
    Сообщений
    787
    Вес репутации
    14

    По умолчанию Re: помогите написать макрос для примечаний

    а примечания тогда куда?
    к каждой ячейке стролбца данных?
    тогда воспользуйтесь циклом.
    Кстати, почитайте Управляющие структуры ... Циклы, много интересного.
    Последний раз редактировалось VictorM; 20.11.2009 в 12:57.
    "Дайте людям рыбы, и вы накормите их на весь день;
    научите их ловить рыбу - и вы накормите их на всю жизнь".

  8. #7
    dummy
    coder
    Natatka is on a distinguished road
    Регистрация
    20.11.2009
    Возраст
    33
    Сообщений
    13
    Вес репутации
    0

    По умолчанию Re: помогите написать макрос для примечаний

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

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

  9. #8
    system architect VictorM is on a distinguished road Аватар для VictorM
    Регистрация
    23.10.2006
    Адрес
    Lugansk, Ukraine
    Сообщений
    787
    Вес репутации
    14

    По умолчанию Re: помогите написать макрос для примечаний

    Код :
    1. Sub Test()
    2.     Do
    3.         Примечание = ActiveCell.Text
    4.         If Примечание = "" Then Exit Do
    5.         On Error Resume Next
    6.         With ActiveCell
    7.             .AddComment
    8.             .Comment.Text Text:=.Text
    9.         End With
    10.         ActiveCell.Offset(1, 0).Activate
    11.     Loop
    12. End Sub
    Вставит примечания во все ячейки столбца, с заменой уже существующих, если таковые были.
    Встаньте на первую, верхнюю ячейку столбца данных и запустите макрос.
    "Дайте людям рыбы, и вы накормите их на весь день;
    научите их ловить рыбу - и вы накормите их на всю жизнь".

  10. #9
    dummy
    coder
    Natatka is on a distinguished road
    Регистрация
    20.11.2009
    Возраст
    33
    Сообщений
    13
    Вес репутации
    0

    По умолчанию Re: помогите написать макрос для примечаний

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

  11. #10
    system architect VictorM is on a distinguished road Аватар для VictorM
    Регистрация
    23.10.2006
    Адрес
    Lugansk, Ukraine
    Сообщений
    787
    Вес репутации
    14

    По умолчанию Re: помогите написать макрос для примечаний

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

+ Ответить в теме

Похожие темы

  1. Помогите написать макрос или БД
    Задача 1. В таблице Excell есть три ячейки: А1 - номер письма, В1 - дата письма, К1 - гиперссылка на скан письма. Первое - нужно взять номер...
    от scalpoff в разделе MS Office и VB(A).
  2. Помогите написать макрос
    Помогите написать макрос: чтобы при его запуске происходило создание нового листа, название которого соответствовало бы названию определенной ячейки
    от Yuriy_83 в разделе MS Office и VB(A).
  3. ПОМОГИТЕ ДЕВУШКЕ НАПИСАТЬ МАКРОС!
    Ребята, помогите пожалуйста написать макрос. Мне просто ну очень нужно, а я что-то пока плохо понимаю. Задание такое: нужен макрос, который...
    от Masha_Golubeva в разделе MS Office и VB(A).
  4. Help! помогите написать макрос
    Люди добрые хочу упростить себе работу, но моя не программист поэтому я не могу решить своей траблы сам: у меня есть Бд, кол-во столбов ограничено ,...
    от Pashan в разделе MS Office и VB(A).
  5. помогите чайнику написать макрос для прайс-листа
    Люди добрые... помогите чайнику написать макрос или формулу. Тому кто поможет попытаюсь даже оплатить труды (немного конечно в районе 5-10 Wmz, но...
    от Wlasikkk в разделе MS Office и VB(A).

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения