Вывод данных с примечаниями

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

pechkin

Дата: Четверг, 03.12.2015, 17:42 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 332

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

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

2003

Здравсвуйте! Подскажите пожалуйста, возможно ли выводить данные с листа (не копированием) с примечаниями?
В файле макрос сбора данных по условию с листа. Можно ли "привязать" примечания к содержимому ячейки на листе и если данные из этой ячейки необходимо выводить - то вместе с примечанием.
Спасибо!

К сообщению приложен файл: 1717137.xls (36.0 Kb)

Ответить

SLAVICK

Дата: Четверг, 03.12.2015, 18:07 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

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

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

2019

А почему

Цитата pechkin, 03.12.2015 в 17:42, в сообщении № 1

не копированием

так быстрее будет.
Можно заменить строку:
[vba]

Код

Cells(rt, 1).Resize(, 4).Value = .Cells(i, 1).Resize(, 4).Value
на
.Cells(i, 1).Resize(, 4).Copy
Cells(rt, 1).Resize(, 4).PasteSpecial Paste:=xlPasteValues
Cells(rt, 1).Resize(, 4).PasteSpecial Paste:=xlPasteComments

[/vba]
без копирования - нужно перебирать все ячейки и считывать с них комменты - а потом перепрописывать их в ячейки - проще скопировать.

К сообщению приложен файл: 5313352.xls (39.5 Kb)

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Четверг, 03.12.2015, 18:08

Ответить

pechkin

Дата: Четверг, 03.12.2015, 18:21 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 332

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

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

2003

Спасибо! Попробую, может и копирование подойдет...

Ответить

Вывод данных с примечаниями

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