Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Перевод содержимого ячейки в примечание для другой - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перевод содержимого ячейки в примечание для другой (Формулы/Formulas)
Перевод содержимого ячейки в примечание для другой
Tikitos Дата: Пятница, 22.02.2019, 13:11 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Доброго времени! Помогите, пожалуйста. Требуется добавить примечания к ячейкам одного столбца, которое является содержимым ячеек другого столбца.

Т.е. Чтобы, например, значение ячейки D1 стало примечанием для ячейки A1, содержимое D2 стало примечанием для A2 и т.д. по всему листу Как так можно сделать?
 
Ответить
СообщениеДоброго времени! Помогите, пожалуйста. Требуется добавить примечания к ячейкам одного столбца, которое является содержимым ячеек другого столбца.

Т.е. Чтобы, например, значение ячейки D1 стало примечанием для ячейки A1, содержимое D2 стало примечанием для A2 и т.д. по всему листу Как так можно сделать?

Автор - Tikitos
Дата добавления - 22.02.2019 в 13:11
Nic70y Дата: Пятница, 22.02.2019, 13:29 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5278
Репутация: 1144 ±
Замечаний: 0% ±

Excel 2013
[vba]
Код
    u = Cells(Rows.Count, 4).End(xlUp).Row
    For i = 1 To u Step 1
        Cells(i, 1).ClearComments
        Cells(i, 1).AddComment.Text Text:=Cells(i, 4).Value
    Next i
[/vba]


ЯД(poison) 41001841029809
 
Ответить
Сообщение[vba]
Код
    u = Cells(Rows.Count, 4).End(xlUp).Row
    For i = 1 To u Step 1
        Cells(i, 1).ClearComments
        Cells(i, 1).AddComment.Text Text:=Cells(i, 4).Value
    Next i
[/vba]

Автор - Nic70y
Дата добавления - 22.02.2019 в 13:29
_Boroda_ Дата: Пятница, 22.02.2019, 14:12 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15020
Репутация: 5929 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Для динамического изменения можно обработчик событий листа сделать,
а можно где-нибудь в уголочке написать
Код
=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]
К сообщению приложен файл: _UDF____2.xlsm(16.5 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеДля динамического изменения можно обработчик событий листа сделать,
а можно где-нибудь в уголочке написать
Код
=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]

Автор - _Boroda_
Дата добавления - 22.02.2019 в 14:12
bmv98rus Дата: Пятница, 22.02.2019, 14:30 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2156
Репутация: 366 ±
Замечаний: 20% ±

Excel 2013/2016


Замечательный медведь, процентов на 20.
 
Ответить
Сообщениекросс

Автор - bmv98rus
Дата добавления - 22.02.2019 в 14:30
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перевод содержимого ячейки в примечание для другой (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!