Где хранятся формулы в пустом Listobject?

Пользователь

Сообщений: 3 Регистрация: 19.11.2023

19.11.2023 17:00:47

Здравствуйте,

Требуется узнать, какие поля умной таблицы вычисляемые, а какие нет. Если Listrows содержит записи, то можно получить значение IsFormula для ячеек какой-либо записи. А если Listrows не имеет записей, то как узнать, какая колонка содержит формулу? Попытки обратиться напрямую к Range не увенчались успехом.

webley

Пользователь

Сообщений: 2124 Регистрация: 01.01.1970

20.11.2023 12:35:11

Добрый день. Похоже никак, но можно временно добавить строку и посмотреть (найдено на просторах интернета):

Код

Function getListColumnFormulae(tbl As ListObject)
    Dim Formulae
    On Error Resume Next
        With tbl.ListRows.Add
            Formulae = Application.Transpose(.Range.Formula)
            Formulae = Application.Transpose(Formulae)
            getListColumnFormulae = Formulae
            .Delete
        End With
    On Error GoTo 0
End Function

Sub FormulaeMessage()
    Dim Data
    Dim tbl As ListObject
    Set tbl = ActiveCell.ListObject
    Data = getListColumnFormulae(tbl)
End Sub