Команды VBA к умной таблице

@Султанов · Регистрация: 25.01.2013

Author24 — интернет-сервис помощи студентам

Добрый день,
Где можно посмотреть синтаксис команд обращения к умной таблице?
По сути мне необходимо проверить в ячейке на наличие формулы только в пределах умной таблицы

Видел только

Visual Basic

  With Лист1.ListObjects("Таблица1")
       .ListColumns.Count
       .ListColumns(индекс).Name
       .ListRows(индекс).Range(диапазон).NumberFormat

@Alex_Gur · 18.09.2015, 09:34

Вообще, проверку наличия формулы в ячейке можно выполнить так:

Visual Basic

Sub Test3()  
    Dim rngI As Range  
    Set rngI = Range("A22")  
    If rngI.HasFormula Then  
        MsgBox rngI.Formula  
    End If  
End Sub

А затем можно работать с текстом формулы.

@Султанов · 18.09.2015, 09:55 **[ТС]**

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

If rngI.HasFormula Then

в принципе разобрался, но мне нужно диапазон умной таблицы без заголовок и итоговой строки, подскажите ?

Visual Basic

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 Then    ' Изменения произошли в одной ячейке
      Stop
        If Not Intersect(Target, ListObjects("Таблица1").Range) Is Nothing Then    ' работаем с умной таблицей с именем Таблица1
            t = Target.Value
            If Target.HasFormula Then
             Stop
                '                Target.Clear
            End If
        End If
    End If
End Sub

@Казанский · 18.09.2015, 10:08

Сообщение от Султанов

диапазон умной таблицы без заголовок и итоговой строки

.databodyrange

Добавлено через 3 минуты
Можете сохранить ссылку на наглядное описание диапазонов умной таблицы:
http://www.thespreadsheetguru.... cel-tables

@Султанов · 18.09.2015, 12:14 **[ТС]**

Казанский, не посоветуете как запретить вставку формул с дублированием по всему столбцу, в принципе умной таблицей было предусмотрено наоборот)), в общем мне нужна была реализация всего потенциала умной таблицы, кроме вставки формулы в диапазон данных таблицы

имеются 4 отчета, во всех применен формат умной таблицы, только первая является резиновой, к которой привязаны остальные три с запасом строк, в случае внесения построчно новых данных в первую форму, так вот пользователь чтобы не ставил формулы, мне это нужно блокировать

Visual Basic

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Count = 1 Then    ' Изменения произошли в одной ячейке
        If Not Intersect(Target, ListObjects("Таблица1").DataBodyRange) Is Nothing Then        ' работаем с умной таблицей с именем Таблица1
            If Target.HasFormula Then
                Target.ClearContents
            End If
        End If
    End If
    Application.EnableEvents = True
End Sub

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

Можно было конечно пойти другим путем, но... много чего наделано)) переделывать времени нет

@ILF_ollie · 19.10.2015, 13:53

Я вот так сделал:
Отмена автопротягивания формулы в "Умной таблице" макросом

@Казанский 15151 / 6424 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	18.09.2015, 10:08	4
	Сообщение от Султанов диапазон умной таблицы без заголовок и итоговой строки .databodyrange Добавлено через 3 минуты Можете сохранить ссылку на наглядное описание диапазонов умной таблицы: http://www.thespreadsheetguru.... cel-tables 2

@ILF_ollie 2 / 2 / 0 Регистрация: 19.08.2010 Сообщений: 70
	19.10.2015, 13:53	6
	Я вот так сделал: Отмена автопротягивания формулы в "Умной таблице" макросом 0