ошибка 5941

[Елена Гох]

Доброго времени суток! Подскажите, пожалуйста, как бороться с ошибкой "Запрашиваемый номер семейства не существует" для ячеек таблицы. Есть ли функция типа EXISTS для обхода обхода ситуации? Возникает при программной расщеплении ячейки.

[Ципихович Эндрю]

EXISTS ля таблицы нет, но какокя разница, условие ведт всё равно надо ставить, что с EXISTS, что без него всё равно одна строка кода
Если талица1, строка1, количество 2 ячейки, тогда ...
или
Если талица1, строка1, EXISTS 2 ячейки, тогда ...

[Вождь]

Похоже, вы напрямую обращаетесь к ячейкам. Что-то типа:

Dim T As Table
Dim C As Cell
Dim i&, j&
    
    For i = 1 To T.Columns.Count
        For j = 1 To T.Rows.Count
            Set C = T.Cell(j, i)
            ' код расщепления
        Next j
    Next i

Попробуйте перебирать ячейки, используя команды Next и Previous:

    Set C = T.Cell(1, 1)
    Do
        ' код расщепления
        Set C = C.Next
    Loop While Not (C Is Nothing)

Трудно советовать, не видя ошибочного кода.

[Вождь]

При работе с коллекциями (Collection) в том числе c коллекцией ячеек (Cells), достаночно проверить параметр Count:

if n > Cells.Count then End

Еще полезна функция IsObjectValid. Если объект был удален, то проверить его существование можно так:

Dim C as Cell
  Set C = Selection.Range.Cells(1)
  C.Delete
  if IsObjectValid(C) Then Else MsgBox "Ячейка удалена"

[shanemac51]

может программу выложите, а то неясны ваши действия с неоднородной таблицей(с объединенными-разъединенными ячейками)

[Елена Гох]

Всем огромное спасибо за советы! Попробую справиться с вашей помощью!