Ошибка цвета фона VBA DataBodyRange 91? - PullRequest
Новая
       43

Ошибка цвета фона VBA DataBodyRange 91?

0 голосов
/ 13 марта 2020

Быстрый вопрос. Почему Tbl.HeaderRowRange.Interior.Color = RGB(62, 199, 98) работает, но Tbl.DataBodyRange.Interior.Color = RGB(151, 225, 137) не работает?

код: 

Set Tbl = .ListObjects.Add(xlSrcRange, Source:=.Range("F" & NextRow + 8 & ":I" & NextRow + 8), XlListObjectHasHeaders:=xlYes)

                Tbl.Name = "KozijnAspect_" & I

                Tbl.HeaderRowRange(1).Value = "Kozijn"
                Tbl.HeaderRowRange(2).Value = "Gevel Type"
                Tbl.HeaderRowRange(3).Value = "Orientatie"
                Tbl.HeaderRowRange(4).Value = "Stand"

                Tbl.HeaderRowRange.Interior.Color = RGB(62, 199, 98)
                Tbl.DataBodyRange.Interior.Color = RGB(62, 199, 98)

Я получаю ошибку: переменная объекта не установлена ​​(ошибка 91)

Я немного скопировал HeaderRowRange, вставил его ниже, изменил значения RGB и переключил его на DataBodyRange

Когда я отлаживаю, он просто переходит прямо к следующей строке, он не идет к другому модулю / объекту Excel или чему-либо еще.

1 Ответ

1 голос
/ 13 марта 2020

Вот фрагмент кода с большим значением p ie ...

Я боюсь, что ваш код не создает DataBodyRange, и поэтому VBA не может что-то делать на существующий объект ...

Когда ваш код остановлен в этой желтой строке, пожалуйста, go в таблице Excel и вручную вставьте одну или две строки. Затем go вернитесь в IDE и нажмите F5 ...

У вас может быть хороший сюрприз ...:)

...