Определить, является ли ячейка частью listobject или ее заголовком - VBA
Формулировка задачи:
На листе есть произвольные таблицы с заголовками listobject.
Как можно определить, является ли текущая ячейка частью любой из этих таблиц?
Если да, то как проверить:
- находится ли она в последней строке (либо в строке итогов),
- является ли она заголовком этой таблицы?
Решение задачи: «Определить, является ли ячейка частью listobject или ее заголовком»
textual
Листинг программы
- Sub Test_Cell()
- Dim MyTable As ListObject, isect As Range
- For Each MyTable In ActiveSheet.ListObjects
- Set isect = Application.Intersect(ActiveCell, MyTable.Range)
- If Not (isect Is Nothing) Then
- MsgBox "ActiveCell принадлежит таблице " & MyTable.Name
- Set isect = Application.Intersect(ActiveCell, MyTable.HeaderRowRange)
- If Not (isect Is Nothing) Then
- MsgBox "ActiveCell в заголовке"
- End If
- Set isect = Nothing
- On Error Resume Next
- Set isect = Application.Intersect(ActiveCell, MyTable.TotalsRowRange)
- If Not (isect Is Nothing) Then
- MsgBox "ActiveCell в итогах"
- End If
- On Error GoTo 0
- End If
- Next
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д