VBA DataBodyRange背景色错误91？

Question

我正在尝试为我的 header 和我的数据 body 范围添加颜色，但是 header 正在着色，但 body 没有：

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)

错误代码： Object 未设置变量（错误 91）

我复制了 HeaderRowRange，将其粘贴到下方并更改了 RGB 值并将其切换为 DataBodyRange
当我调试时它直接进入下一行，它不会进入另一个模块/excel object 或任何东西。

Answer 1

这是大饼的一段代码...

恐怕您的代码不会生成任何 DataBodyRange，这就是为什么 VBA 无法对不存在的对象执行某些操作...

当您的代码停止在此黄色行上时，请继续Excel Table 并手动插入一行或两行。然后，返回 IDE 并按 F5...

你可能会有一个惊喜...:)

VBA DataBodyRange背景色错误91？

VBA DataBodyRange background color error 91?

excel

vba

listobject