Определить, является ли ячейка частью listobject или ее заголовком - VBA

Узнай цену своей работы

Формулировка задачи:

На листе есть произвольные таблицы с заголовками listobject. Как можно определить, является ли текущая ячейка частью любой из этих таблиц? Если да, то как проверить: - находится ли она в последней строке (либо в строке итогов), - является ли она заголовком этой таблицы?

Решение задачи: «Определить, является ли ячейка частью listobject или ее заголовком»

textual
Листинг программы
  1. Sub Test_Cell()
  2.     Dim MyTable As ListObject, isect As Range
  3.     For Each MyTable In ActiveSheet.ListObjects
  4.         Set isect = Application.Intersect(ActiveCell, MyTable.Range)
  5.         If Not (isect Is Nothing) Then
  6.             MsgBox "ActiveCell принадлежит таблице " & MyTable.Name
  7.             Set isect = Application.Intersect(ActiveCell, MyTable.HeaderRowRange)
  8.             If Not (isect Is Nothing) Then
  9.                 MsgBox "ActiveCell в заголовке"
  10.             End If
  11.             Set isect = Nothing
  12.             On Error Resume Next
  13.             Set isect = Application.Intersect(ActiveCell, MyTable.TotalsRowRange)
  14.             If Not (isect Is Nothing) Then
  15.                 MsgBox "ActiveCell в итогах"
  16.             End If
  17.             On Error GoTo 0
  18.         End If
  19.     Next
  20. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 3.786 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы