Доброго времени! Помогите, пожалуйста. Требуется добавить примечания к ячейкам одного столбца, которое является содержимым ячеек другого столбца.
Т.е. Чтобы, например, значение ячейки D1 стало примечанием для ячейки A1, содержимое D2 стало примечанием для A2 и т.д. по всему листу Как так можно сделать?
Доброго времени! Помогите, пожалуйста. Требуется добавить примечания к ячейкам одного столбца, которое является содержимым ячеек другого столбца.
Т.е. Чтобы, например, значение ячейки D1 стало примечанием для ячейки A1, содержимое D2 стало примечанием для A2 и т.д. по всему листу Как так можно сделать?Tikitos
Для динамического изменения можно обработчик событий листа сделать, а можно где-нибудь в уголочке написать
Код
=Prim(D1:D4;A1:A11)
Где Prim - это функция [vba]
Код
Public Function Prim(Otkuda As Range, Kuda As Range) ' Application.Volatile On Error Resume Next For i = 1 To Otkuda.Count With Kuda(i) .ClearComments .AddComment.Text Text:=Otkuda.Value End With Next i Prim = "Примечание из " & Otkuda.Address(0, 0) & " в " & Kuda.Address(0, 0) End Function
[/vba]
Для динамического изменения можно обработчик событий листа сделать, а можно где-нибудь в уголочке написать
Код
=Prim(D1:D4;A1:A11)
Где Prim - это функция [vba]
Код
Public Function Prim(Otkuda As Range, Kuda As Range) ' Application.Volatile On Error Resume Next For i = 1 To Otkuda.Count With Kuda(i) .ClearComments .AddComment.Text Text:=Otkuda.Value End With Next i Prim = "Примечание из " & Otkuda.Address(0, 0) & " в " & Kuda.Address(0, 0) End Function
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
