Комментарии к ячейкам.

[strannick]

Уж извините за очередную тему, но вопрос касается несколько другой ситуации, нежели выделении ячеек цветом, как в соседней теме. Поэтому и открыл новую тему. А вопрос вот в чем: Возможно ли и как, если возможно, в примечаниях к ячейкам на листе "Общий вид" отобразить фамилии пациентов, которые в данный момент находятся в палате? Как-то в этом плане поиск меня совсем не порадовал.
Заранее спасибо!

[ikki_pf]

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

в этом плане поиск меня совсем не порадовал.
Заранее спасибо!

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

[strannick]

Ага. Значит, все равно только макрос. Будем искать. Спасибо, но, я ж говорю, как-то поиск не порадовал. Значит, плохо искал. Спасибо!

[Hugo121]

Я бы выполнял макрос при событии активации первого листа. Или при изменении на втором - но тогда макрос будет срабатывать чаще. А он не супербыстрый...

[strannick]

Вот попытался сваять пока для вставки в примечания хоть первого пациента, код в модуле листа:

Private Sub Worksheet_Activate()
Dim sh1 As Worksheet, sh2 As Worksheet
    Set sh1 = Sheets("Общий вид")
    Set sh2 = Sheets("База")
    Set IRange = sh1.Range("C2:L10")
For Each iCell In IRange
For j = 2 To 56

If iCell.Value = sh2.Cells(j, 1).Value Then
        iCell.AddComment Text:=sh2.Cells(j, 3).Text
        
        Exit For
                       
End If
Next

End Sub

Ничего не происходит. Чего я тут неправильно прописал?

[Hugo121]

Одного Next не хватает.
И ведь заработало! Правда не знаю, насколько качественно - но Комарова и Крокодилова занесло

[strannick]

А где не хватает-то? Перед End If?

[strannick]

Ага, надо:

Next
Next

Но при следующей активации листа выдает ошибку на строке:

iCell.AddComment Text:=sh2.Cells(j, 3).Text

Я так понимаю, что надо старые Comment'ы удалить сначала, а потом добавлять новые. Так?

[strannick]

Так оно и есть. Сначала

iCell.ClearComments

а потом уже добавлять примечания.
Ну и добавил в условия поиск других пациентов в той же палате и добавление их тоже. Только, чтобы отображались один под другим вот так:

iCell.AddComment Text:=sh2.Cells(j, 3).Text & Chr(10) & sh2.Cells(j + 1, 3).Text

[Hugo121]

Ну и хорошо
Ещё я бы не добавлял комменты в те ячейки, где нет пациентов - думаю это тоже несложно сделать.