Новости:

Теперь на форум можно залогиниться / зарегистрироваться с помощью ВКонтакте. Уже существующие пользователи могут связать свою учетную запись с аккаунтом ВКонтакте одним кликом в профиле пользователя http://forum.msexcel.ru/index.php?action=profile;area=account

Главное меню

Данные из ячейки в примечание с добавлением даты по кнопке.

Автор hondac, 10.09.2013, 10:50

« назад - далее »

hondac

Добрый день.
Подскажите, кто знает, как можно сделать так, чтобы при нажатии на кнопку данные автоматически копировались в примечание этих ячеек с датой. А при дальнейших нажатиях по кнопке, эти данные сохранялись в новой строке примечания (не удаляя предыдущие) с датой создания.
Файлик приложил.
Спасибо.

kuklp

    ActiveCell.Comment.Text Text:=ActiveCell.Comment.Text _
                & vbLf & ActiveCell.Value & " " & Date

Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

hondac

При нажатии на кнопку данные автоматически копировались в примечание этих ячеек одновременно, сразу в трех, не по отдельности.

hondac

Не очень я в Excel, но сделал так

ЦитироватьPrivate Sub CommandButton1_Click()
Range("B5").Select
    ActiveCell.Comment.Text Text:=ActiveCell.Comment.Text _
                & vbLf & ActiveCell.Value & " " & Date
Range("A3").Select
    ActiveCell.Comment.Text Text:=ActiveCell.Comment.Text _
                & vbLf & ActiveCell.Value & " " & Date
Range("D6").Select
    ActiveCell.Comment.Text Text:=ActiveCell.Comment.Text _
                & vbLf & ActiveCell.Value & " " & Date
End Sub

не знаю, может можно как-то упростить.

cheshiki1

Private Sub CommandButton1_Click()
Dim iRangeComments As Range, iCell As Range
Set iRangeComments = Range("A1:F30").SpecialCells(xlComments)
If Not iRangeComments Is Nothing Then
    For Each iCell In iRangeComments
           iCell.Comment.Text Text:=iCell.Comment.Text & vbLf & iCell.Value & " " & Date
     Next
  End If
End Sub

проходит по всем примечаниям активного листа в диапазоне A1:F30