данные из диапазона в коментарий

[d_alexej]

Доброго времени суток всем! Подскажите плизззз....
Как поместить данные из диапазона в коментарий программно?

[The_Prist]

Ну ведь можно поставить задачу более понятно и конкретно!
Во-первых: комментарий в ячейке уже имеется или его необходимо создать? Если необходимо создать

Range("A1").AddComment Range("B1")

Во-вторых: если примечание уже имеется, то данные из диапазона надо добавить в имеющийся в примечании текст или заменить?Заменить

Range("A1").Comment.Text Range("B1")

Добавить

Range("A1").Comment.Text Target.Comment.Text & Range("B1")

И в третьих: какого типа данные содержатся в диапазоне и каков приблизительный размер диапазона? И как собирать эти данные из диапазона - через пробел, запятую, звездочку?
Добавление комментария в ячейку "A1" с текстом из диапазона "B1:C1" через пробел

Dim sText As String
Dim rCell As Range
For Each rCell In Range("B1:C1"): sText = sText & " " & rCell.Text: Next rCell
Range("A1").AddComment sText

[d_alexej]

Спасибо за помощь, диапазон не более 50 строк, нужно создавать в макросе, & Chr(10) - с переносом строк, данные смешанные(серийный номера) числовой и символьный, с условием из другой ячейки, т.е. если в диапазоне соблюдается условие то диапазон данных, соответствующих условию попадают в коментарий.
Cells(y, 10).Comment.Text Text:="S/N:" & Chr(10)& Sheets("Август").Range("H" & y) что-то в этом роде.

[d_alexej]

Еще момент, нужна выборка с условием из другой ячейки, т.е. если в диапазоне соблюдается условие то диапазон данных, соответствующих условию попадают в коментарий. Если модем D-Link то в C13 коментарий со списком серийников по D-Link, а в C14 - Huawei, данные из столбцов В и С объединены в коментарии через слэш(/).
Спасибо заранее.

[d_alexej]

По поводу вопроса выше, подсказать никто не может?
Еще вопрос: Как связать ComboBox и массив?
Массив из названий месяцев года. Спасибо.

[The_Prist]

Я думаю помочь можно. Но не раньше, чем Вы определитесь и конкретно и четко сформулируете задачу.
Сначала Вам надо с переносом строк, затем через слеш. Вот что за условие - "Если модем D-Link то в C13 коментарий со списком серийников по D-Link"? Т.е. надо пробежаться по таблице и занести в комментарий все серийники по D-Link? А если их больше 100, 1000? Или надо только те, которые между Huawei?

[The_Prist]

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

Как связать ComboBox и массив?
Массив из названий месяцев года. Спасибо.

ComboBox1.List = Array("Январь","Февраль","Март","Апрель","Май")

ну и т.д. Перечисляете все месяцы.

[d_alexej]

диапазон не более 50 строк,
через слэш - объединенные ячейки,
Chr(10) - перенос объединенных строк.
В разных ячейках цифра с количеством модемов и коментарии, в одной коментарий с серийными номерами D-Link,
в другой Huawei.