kiryan1@mail.ruДобрый вечер. имеются лист продаж и лист анализа закупа. как добавить примечание в ячейки в анализе если в продажах выполняется определенное условие?
kiryan1@mail.ruДобрый вечер. имеются лист продаж и лист анализа закупа. как добавить примечание в ячейки в анализе если в продажах выполняется определенное условие? Kinder
Sub tt() Dim cc As Range, t$ Application.ScreenUpdating = False For Each cc In [a1].CurrentRegion.Columns(1).Cells t = Application.VLookup(cc, Sheets("Продажи").Range("A:F"), 6, 0) If Len(t) Then With cc.Offset(, 2) .NoteText t .Comment.Shape.TextFrame.AutoSize = True End With End If Next Application.ScreenUpdating = True End Sub
[/vba]
Тупо влоб: [vba]
Код
Sub tt() Dim cc As Range, t$ Application.ScreenUpdating = False For Each cc In [a1].CurrentRegion.Columns(1).Cells t = Application.VLookup(cc, Sheets("Продажи").Range("A:F"), 6, 0) If Len(t) Then With cc.Offset(, 2) .NoteText t .Comment.Shape.TextFrame.AutoSize = True End With End If Next Application.ScreenUpdating = True End Sub
Подскажите, пожалуйста, как можно макросом добавить примечание в активную ячейку листа "Отчет".
Забыл сказать, на листе присутствуют защищённые ячейки, а лист защищён паролем (изменения можно делать только макросом, а не через интерфейс пользователя). Предполагалось добавлять примечания в активные ячейки (кроме защищённых) макросом.
Цитата (Hyperboreus)
Подскажите, пожалуйста, как можно макросом добавить примечание в активную ячейку листа "Отчет".
Забыл сказать, на листе присутствуют защищённые ячейки, а лист защищён паролем (изменения можно делать только макросом, а не через интерфейс пользователя). Предполагалось добавлять примечания в активные ячейки (кроме защищённых) макросом.Hyperboreus
Спасибо. Насколько я понял, этот макрос добавляет в примечание уже готовый текст. А как быть если необходимо непосредственно руками, после выполнения макроса, вводить текст примечания.
Спасибо. Насколько я понял, этот макрос добавляет в примечание уже готовый текст. А как быть если необходимо непосредственно руками, после выполнения макроса, вводить текст примечания.Hyperboreus
Проверял. Происходит добавление пустого примечания. Изменить (редактировать) примечание через правую кнопку нельзя, так как лист защищён от изменений, вносимых посредством интерфейса. Можно только через макрос.
Проверял. Происходит добавление пустого примечания. Изменить (редактировать) примечание через правую кнопку нельзя, так как лист защищён от изменений, вносимых посредством интерфейса. Можно только через макрос.Hyperboreus
А причём здесь макрос?! Вы и сами ведь определили причину - защита листа. Снимайте её, правьте примечания и ставьте заново
Сама форма предусмотрена с защитой. Защита была поставлена в целях сохранения структуры формы (чтобы лишнего не добавляли). На листе есть кнопка к которой привязан макрос добавляющий строки (через меню нельзя добавить). Значения в некоторые ячейки и так можно вводить, так как у них снята защита, но добавить примечание нельзя. Поэтому было выдвиното предложение о создании второй кнопки, позволяющей добавить примечание в активную ячейку.
Т.е. насколько я понял, Вы предлагаете использовать макрос, который выполняет следующие действия: 1. Снимает защиту с листа; 2. Добавляет примечание; 3. Ставит защиту листа.
Цитата (Serge_007)
А причём здесь макрос?! Вы и сами ведь определили причину - защита листа. Снимайте её, правьте примечания и ставьте заново
Сама форма предусмотрена с защитой. Защита была поставлена в целях сохранения структуры формы (чтобы лишнего не добавляли). На листе есть кнопка к которой привязан макрос добавляющий строки (через меню нельзя добавить). Значения в некоторые ячейки и так можно вводить, так как у них снята защита, но добавить примечание нельзя. Поэтому было выдвиното предложение о создании второй кнопки, позволяющей добавить примечание в активную ячейку.
Т.е. насколько я понял, Вы предлагаете использовать макрос, который выполняет следующие действия: 1. Снимает защиту с листа; 2. Добавляет примечание; 3. Ставит защиту листа.Hyperboreus
Sub Comm() On Error Resume Next With Range("C6") .AddComment .Comment.Visible = False .Select Selection.Comment.Text Text:=InputBox("Текст комментария") End With End Sub
[/vba]
При установке [vba]
Код
UserInterfaceOnly:=True
[/vba] можно так поиграться [vba]
Код
Sub Comm() On Error Resume Next With Range("C6") .AddComment .Comment.Visible = False .Select Selection.Comment.Text Text:=InputBox("Текст комментария") End With End Sub
RAN, Да, Ваш вариант работает. БОЛЬШОЕ СПАСИБО!!!!!!
По ходу дела возник еще вопрос.
Например процедура добавления примечания прошла успешно. Если необходимо в уже сущуствующее примечание добавить еще текст (например при составлении отчёта по бизнес-плану за отчётный период). Т.е. в строке прочие расходы суммируется числа по 7-8 позициям, соответственно необходимо занести в примечание какая сумма и что она значит. Не всегда получается это внести за один раз. Иногда приходится возвращаться к этой сумме и ещё что-то добавлять, т.о. необходимо и в примечании делать изменения.
Как это можно осуществить через макрос.
Заранее спасибо!!!!!!!
RAN, Да, Ваш вариант работает. БОЛЬШОЕ СПАСИБО!!!!!!
По ходу дела возник еще вопрос.
Например процедура добавления примечания прошла успешно. Если необходимо в уже сущуствующее примечание добавить еще текст (например при составлении отчёта по бизнес-плану за отчётный период). Т.е. в строке прочие расходы суммируется числа по 7-8 позициям, соответственно необходимо занести в примечание какая сумма и что она значит. Не всегда получается это внести за один раз. Иногда приходится возвращаться к этой сумме и ещё что-то добавлять, т.о. необходимо и в примечании делать изменения.
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
