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
Как написать макрос для Excel для копированию значений таблицы в примечания другой таблицы
Добрый день! Поставлена следующая задача: есть две таблицы на одном листе в excel одинаковые по размеру 157 столбцов и 150 строк (можно посмотреть в приложении). В таблице 2 проставлены даты нужно что бы при исполнении макроса в таблицу 1 эти даты переместились в соответствующие ячейки в виде примечаний, причем если ячейка в таблице 2 пустая примечание не вставлялось.
Один из возможных вариантов :
Код:
Спасибо! То что надо!