Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 11.02.2010, 17:07   #1
bud-dy
Пользователь
 
Регистрация: 29.06.2009
Сообщений: 15
Репутация: 10
По умолчанию Добавлений примечания в выделенную ячейку

Добрый день.
Нарыл макрос но не смог его полностью переделать под свои нужды.
Суть проблемы в том, чтобы при нажатии кнопки макрос в примечание переносилось значение ячейки. При количестве выделенных ячеек больше одной он работает. А если выделить одну ячейку, то нет.
Помогите плз!
Вложения
Тип файла: rar план.rar (29.7 Кб, 9 просмотров)
bud-dy вне форума   Ответить с цитированием
Старый 11.02.2010, 17:15   #2
The_Prist
Профессионал
 
Аватар для The_Prist
 
Регистрация: 17.07.2009
Адрес: Москва
Сообщений: 1,088
Репутация: 156
По умолчанию

Здравствуйте. Поправил.
Вложения
Тип файла: rar план.rar (28.4 Кб, 10 просмотров)
__________________
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru
The_Prist вне форума   Ответить с цитированием
Старый 11.02.2010, 17:16   #3
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Адрес: Россия, Урал
Сообщений: 6,840
Репутация: 1286

skype: ExcelVBA.ru
По умолчанию

Вот так будет работать:
Код:
Sub Комментарий_в_ячейку_в_диапазоне()
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
    Application.ScreenUpdating = False
    Set cc = Selection
    'если выделили 1 ячейку
    If cc.Cells.Count = 1 Then cc.AddComment CStr(cc.Value): Exit Sub
    For Each c In cc.SpecialCells(xlCellTypeVisible).Cells
        c.AddComment CStr(c.Value)
    Next
    Application.ScreenUpdating = True
End Sub
Если убрать всё лишнее - получится так:
Код:
Sub Комментарии_в_НЕПУСТЫЕ_ячейки_в_диапазоне()
    Application.ScreenUpdating = False
    ' только для непустых ячеек
    For Each c In Selection.Cells
       If Len(c.Text) Then c.AddComment CStr(c.Value)
    Next
End Sub
EducatedFool вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
изменение размера примечания в пикселях ShamanK Microsoft Office Excel 2 17.12.2009 18:05
Скопировать выделенную часть ячейки! nikolai_P Microsoft Office Excel 8 05.05.2009 12:27
ListBox ----- выполнить выделенную строку! Disday Общие вопросы Delphi 13 05.11.2008 21:37
Изменить формат примечания JaxTesla Microsoft Office Excel 1 14.10.2008 01:47
Примечания, их печать А. Долматов Microsoft Office Excel 1 16.03.2007 15:12


10:13.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.