Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Как написать макрос для Excel для копированию значений таблицы в примечания другой таблицы

84K
18 августа 2012 года
qwible88
2 / / 18.08.2012
Добрый день! Поставлена следующая задача: есть две таблицы на одном листе в excel одинаковые по размеру 157 столбцов и 150 строк (можно посмотреть в приложении). В таблице 2 проставлены даты нужно что бы при исполнении макроса в таблицу 1 эти даты переместились в соответствующие ячейки в виде примечаний, причем если ячейка в таблице 2 пустая примечание не вставлялось.
Прикрепленные файлы:
237 Кб
Загрузок: 920
275
18 августа 2012 года
pashulka
985 / / 19.09.2004
Один из возможных вариантов :


Код:
Private Sub Test2()
    Dim iSource As Range, iCell As Range, iAddress$
    Set iSource = [FE3:LE152]
   
    Set iCell = iSource.Find("*/*/*", , xlFormulas, xlWhole)
    If Not iCell Is Nothing Then
       iAddress = iCell.Address
       
       Application.ScreenUpdating = False
       [B3:FB152].ClearComments
       
       Do
            'iCell(1, -159).NoteText iCell.Value
            iCell(1, -159).AddComment(CStr(iCell)).Visible = False
            Set iCell = iSource.FindNext(iCell)
       Loop While iCell.Address <> iAddress
       
       Application.ScreenUpdating = True
    End If
End Sub
84K
18 августа 2012 года
qwible88
2 / / 18.08.2012
Спасибо! То что надо!
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог