Новости:

Из правил форума: Тема должна отражать суть вопроса, топики типа "help please" будут удаляться!

Главное меню

Из ячейки в примечание

Автор Smarty_kazan, 01.01.2012, 15:41

« назад - далее »

Smarty_kazan

Добрый день, господа.
Сколько искал на форуме, не нашел нужного.
Задача в том, чтобы значения из ячейки где формула с ВПР, копировались в примечания уже другой ячейки.
Это нужно для экономии места на листе, а то затыкано все.
Простите если задаю глупые вопросы.Заранее спасибо за помощь.

exceleved

Вопрос не глупый, но не полный. Это должно происходить каждый раз при изменении ячейки? В каком диапазоне?
Пока ответ такой - вставить в примечание яч. В1 текст яч. А1:on error resume next
[B1].comment.delete
[B1].addcomment [A1].text

Smarty_kazan

в общем дело такое.пусть будут формулы ВПР.их много.и они должны попадать в примечания определенные которые указаны.
Например: лист1-там будут формулы ВПР с других файлов.они должны копироваться в примечания листа 2,3 и т.д..
и можно ли чтобы копировались два, три и более значений в одну ячейку?

exceleved

> в общем дело такое...
В общем, нужен пример в XLS. По такому описанию алгоритм составить невозможно.

> можно ли чтобы копировались два, три и более значений в одну ячейку?
В смысле, в примечание одной ячейки? Конечно, можно. Например, текст из яч. А1, А2, А3 в примечание яч. В1:[B1].addcomment [A1].text & " " & [A2].text & " " & [A3].text

Smarty_kazan

Вот пример.

kuklp

#5
Для этого примера.
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

Smarty_kazan

KuklP, exceleved спасибо ребята!!
KuklP, а как прописать в вашем макросе, если к примеру было уже примечание и чтобы оно не удалялось.а обновлялись чисто те что из столбца В?

kuklp

Оно отуда и берется.
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

Smarty_kazan

В общем я тут добавил макрос.
Option Explicit
Sub Изменить_комментарии()
Dim sh As Worksheet, com As Comment
For Each sh In ThisWorkbook.Worksheets
For Each com In sh.Comments
com.Shape.TextFrame.AutoSize = True
With com.Shape.TextFrame.Characters.Font
.ColorIndex = 1: .Bold = 0: .Italic = 0: .Size = 10
End With
com.Shape.Fill.ForeColor.SchemeColor = 1
Next com
Next sh
End Sub

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

kuklp

Так, что ли?
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

Smarty_kazan

Именно.Спасибо большое,человеческое Вам!!!

Smarty_kazan

KuklP, вставил ваш макрос в документ.не работает почему-то?какая может быть причина?

kuklp

А я знаю? Я Ваш документ не видел. Выложите - посмотрю.
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

Smarty_kazan

Вот.не могу найти в чем ошибка.

kuklp

Из-за объединенных ячеек. Сколько пишем, объединенные ячейки - зло.
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771