Добавления примечания из ячеек

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Добавления примечания из ячеек (Макросы/Sub)

Spawn

Дата: Пятница, 02.06.2017, 23:28 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Доброй ночи форумчане.
Столкнулся с проблемой. Может кто нибудь сможет подсказать как мне быть. У меня есть таблица из 4 столбцов. Мне необходимо ее профильтровать (с этим я разобрался). Мне необходимо сделать макрос который к ячейки b2 приписывает комментарий с текстом и ячейки d2, и так далее b3 с текстом комментария d3 вплоть до конца таблицы (в ней порядка 2000-3000 строк будет). Самый шик был это если этот комментарий из столбца d копировался не только в столбец b, но еще и в столбцы F, I, L и так далее тоже соответственно в зависимости от значений столбца b. Но полагаю это надо будет мудрить мне в макросе фильтрации. поэтому хочу попросить хоть помощи в первой задачи, комментарии для столбца b с текстом из ячеек столбца d, очень прошу

К сообщению приложен файл: Primer.xlsm (19.5 Kb)

Ответить

gling

Дата: Суббота, 03.06.2017, 01:37 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2690

Репутация: 765 ±

Замечаний: 0% ±

2010

Цитата Spawn, 02.06.2017 в 23:28, в сообщении № 1 ()

(с этим я разобрался)

А я думал Вам помогли здесь. Так может попросите автора макроса, чтоб он и коментарии добавил.

ЯД-41001506838083

Сообщение отредактировал gling - Суббота, 03.06.2017, 01:38

Ответить

Pelena

Дата: Суббота, 03.06.2017, 08:34 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 19603

Репутация: 4660 ±

Замечаний: ±

Excel 365 & Mac Excel

Так подойдёт?
[vba]

Код

Private Sub CommandButton1_Click()
    Dim cl As Range
    For Each cl In Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row)
        cl.ClearComments
        If cl.Offset(, 2).Value <> "" Then cl.AddComment (cl.Offset(, 2).Value)
    Next cl
End Sub

[/vba]

К сообщению приложен файл: primer.xlsm (24.9 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Добавления примечания из ячеек (Макросы/Sub)

Страница 1 из 1
1