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

[strannick]

То есть, в начале поставить проверку на отсутствие пациентов?

[Hugo121]

Т.е. я думаю, что

If len(sh2.Cells(j, 3).Text) then

добавляем коммент.

В файле не проверял.

Так должно быть красивее - не будут пустые комменты выскакивать.
Ну и ещё можно сделать им автосайз.

Пример кода:

==============================================================
После того как вставите все примечания,
запустите макрос
(Форматирует только текст, картинки фона сжимает под текст!)
Sub FormatComments()
Dim iComment As Comment
For Each iComment In ActiveSheet.Comments
iComment.Shape.TextFrame.AutoSize = True
Next
End Sub
==============================================================

[strannick]

Понял. Спасибо, попробую.Такой еще вопрос: в оригинальном файле условие двойное

If iCell.Value = sh2.Cells(j, 10).Value And sh2.Cells(j, 12).Value = 4 Then
    iCell.ClearComments
    iCell.AddComment Text:=sh2.Cells(j, 2).Text & Chr(10) & sh2.Cells(j + 1, 2).Text & Chr(10) & sh2.Cells(j + 2, 2).Text & Chr(10) & sh2.Cells(j + 3, 2).Text
    Exit For
ElseIf iCell.Value = sh2.Cells(j, 10).Value And sh2.Cells(j, 12).Value <> 4 Then
    iCell.ClearComments
    iCell.AddComment Text:=sh2.Cells(j, 2).Text & Chr(10) & sh2.Cells(j + 1, 2).Text & Chr(10) & sh2.Cells(j + 2, 2).Text
    Exit For
End If

Как можно еще добавить условие на ситуацию, когда, допустим, в палате (без разницы двух-, трех- или четырехместной) лежит один пациент и туда уже подселять никого нельзя? Типа, в соответствующих ячейках одна фамилия, а в остальных не фамилии, а допустим слово "privat"?

[Hugo121]

Не вполне понял - Вам не нужна в комменте запись privat?
Тогда реплейсом замените в итоговой строке privat на ничего. по принципу

s = Application.Clean(Replace("sss" & Chr(10) & "fff" & Chr(10) & "fff", "fff", ""))

Надеюсь, пациентов с такой фамилией не будет?