Troitsky
Водник Водкин | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Mantisby
Цитата:| ищу по поводу 1024 символов... |
Поэкспериментировал я тут на эту тему. Можно видимо и программно добавить примечание больше чем в 1024 символа, только делать это нужно в несколько проходов, добавляя текст частями меньшими, чем 1024 символа.
Проблема в другом: известно, что в ячейке может находиться до 32767 символов, но в ячейке отображаются только 1024 символа. Так вот свойство Text ячейки также возвращает только первые 1024 символа, которые макросом в комментарий и добавляются.
В какую сторону тут хитрить, чтобы обмануть Excel, нужно думать. Стоит ли? 
Добавлено:
Цитата:| нашел. Надо передавать не Text а Value. Только при этом не должно быть пустых ячеек. |
Да не в этом дело. даже использование:
Код:| CStr(.Cells(i, Col2).Value) |
не решает проблему больших комментариев.
Добавлено:
Mantisby
Во как получилось.
Код: Dim Col1 As Integer, Col2 As Integer
Dim strText As String
Dim intC As Integer
Col1 = 1 ' столбец, к ячейкам которого нужно добавлять коментарии
Col2 = 2 ' столбец с текстом коментариев
For i = 1 To 10
With ActiveWorkbook.ActiveSheet
strText = CStr(.Cells(i, Col2).Value)
If Len(.Cells(i, Col2).Text) <> 0 Then
.Cells(i, Col1).ClearComments
intC = Fix(Len(strText) / 200)
For j = 0 To intC
If j = 0 Then
.Cells(i, Col1).AddComment Mid(strText, j * 200 + 1, 200)
Else
.Cells(i, Col1).Comment.Text Start:=j * 200, Text:=Mid(strText, j * 200 + 1, 200)
End If
Next j
.Cells(i, Col1).Comment.Shape.Height = 250 ' высота
.Cells(i, Col1).Comment.Shape.Width = 250 ' ширина
End If
End With
Next i |
Кривенько, но напильником доработать можно
Приделай только ресайз, который нашел, и все должно быть чики-пуки
----------
Мы в хорошем настроении гуляем по лесам.
Кто обидеть нас захочет – сам получит по усам.
Сам полу- получит по усам. Сам полу- получит по усам! |
|
это грустно. 
