Возможно ли обработать данные из примечания?

[Тандер]

Может ли кто-нибудь переписать данную функцию, чтобы она стала макросом?

[strannick]

Сообщение от Тандер

А макросом можно обновление сделать? Или просто поставить на кнопку F9?

Даты вставляются другим макросом, поэтому такая ситуация.

Значение имеет последняя из дат, но спицифика работы макроса такова, что вставляются поэтапно каждая из дат. Сегодгя одна, завтра другая (если есть) и т.д.

Так может как раз надо переписать тот макрос, который добавляет дату в примечание таким образом, чтобы сначала примечание очищалось, а потом вставлялась последняя дата?

[ikki_pf]

Сообщение от Тандер

Даты вставляются другим макросом,

я так понимаю, на лимит строк в примечании еще не нарывались?

[Hugo121]

Интересно - на
http://office.microsoft.com/en-us/ex...010073849.aspx
ни слова нет про ограничения в примечаниях. Но они есть, сталкивался.
Но впрочем возможно тот макрос оставляет например только 31 последнюю строку, ну а длина строк естественно не будет большой
По задаче - не вижу конкретики. Что должен делать макрос? С UDF просто - как укажете, так и будет. С макросом сложнее...

[Тандер]

С ограничениями в примечаниях пока не сталкивался.

Hugo121, спасибо за вашу помощь, вроде все работает как надо. Единственное, подскажите, пожалуйста строку для макроса, которая бы оставляла только последние 100 строк в примечании. Мой макрос этого не умеет, а колличество примечаний растет.

[IgorGO]

Тандер? перечитайте мое сообщение #9.
Вы любите приключения, Вы будете продолжать черпать их полными горстями, пока не решите, как правильно организовать данные.

[Hugo121]

Вы бы показали свой "неумелый" код.
Пока такой алгоритм, может приладите в свой:

Sub editcomment()
    Dim r As Range, s$, arr
    s = "new line in comment"
    Set r = [a1]
    arr = Split(StrReverse(r.Comment.Text), vbLf)
    If UBound(arr) > 98 Then    'если уже сотня или больше
        ReDim Preserve arr(98)    'обрезаем лишнее
    End If
    r.Comment.Text Text:=StrReverse(Join(arr, vbLf)) & vbLf & s
End Sub

[Тандер]

Сообщение от IgorGO

насколько я понял даты в примечания Вы ручками пишете, вы не получаете столбец с этими данными уже в таком виде?

Даты заполняются другим макросом.

Сообщение от IgorGO

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

Значение имеет последняя из них, как для отчета. Но так же имееют значения и остальные, когда нужно глянуть какого числа было то или инное действие.

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

[Тандер]

Сообщение от Hugo121

Вы бы показали свой "неумелый" код.

Извените, забыл сразу написать:

sub q()
Dim i&
On Error Resume Next
For i = 10 To 100
If Cells(i, 13) = 15 Then
Cells(i, 13) = Cells(i, 13) + 1
If Cells(i, 13).Comment Is Nothing Then
With Cells(i, 13).AddComment
.Visible = False
.Text Cells(10, 10).Value & Chr(10)
Cells(i, 13).Comment.Shape.TextFrame.Characters.Font.Bold = True
End With
Else
Cells(i, 13).Comment.Text Cells(i, 13).Comment.Text & Cells(10, 10).Value & Chr(10)
End If
End If
Next
End Sub

[Hugo121]

Попробуйте "в бою" - может быть нужно подкорректировать эти Chr(10) (я не проверял):

Sub q()
    Dim i&
    On Error Resume Next
    For i = 10 To 100
        If Cells(i, 13) = 15 Then
            Cells(i, 13) = Cells(i, 13) + 1
            If Cells(i, 13).Comment Is Nothing Then
                With Cells(i, 13).AddComment
                    .Visible = False
                    .Text Cells(10, 10).Value & Chr(10)
                    Cells(i, 13).Comment.Shape.TextFrame.Characters.Font.Bold = True
                End With
            Else
                comment_add Cells(i, 13), Cells(10, 10).Value & Chr(10)
            End If
        End If
    Next
End Sub

Private Sub comment_add(r As Range, s$)
    Dim arr
    arr = Split(StrReverse(r.Comment.Text), vbLf)
    If UBound(arr) > 98 Then    'если уже сотня или больше
        ReDim Preserve arr(98)    'обрезаем лишнее
    End If
    r.Comment.Text Text:=StrReverse(Join(arr, vbLf)) & vbLf & s
End Sub

Ну в общем-то конечно если ещё нет 100 строк, то можно просто к комменту добавить строку, а не крутить-вертеть массив, но так код на две строки короче
Да и на таком объёме падения скорости не заметите.