用于调整列表对象范围引用的范围的 excel VBA

Question

我如何将范围设置为要使用的变量：

Private Sub Worksheet_Change(ByVal Target As Range)

我想引用一个单元格，它是列表对象特定列顶部的 3 个单元格。 这样：

set rOverlap = intersect(SRTbl.ListColumns(firstConceptColumn).DataBodyRange.iTem(1).offset(-3, 0).resize(0,3),target)

其中 firstconceptcolumn=9（或其他）

这行不通。

我这样做是因为如果我决定在表格的开头添加列，则不需要更改代码。 listobject 的第一行不是 row1 而是 row5。 前 5 行在数值变化时触发子程序（输入数据后按回车键）

我也尝试过使用 headerRowRange ：

Set rOverlap = Intersect(SRTbl.HeaderRowRange(firstConceptColumn).offsset(-3, 0).Resize(, 4), Target)

这两个都行不通。

实际上，作为一个更基本的问题，我在想什么样的数据是：

SRTbl.HeaderRowRange(firstConceptColumn)

这是一个范围吗？ 为什么不能使用以下内容：？

SRTbl.HeaderRowRange("name")

非常感谢

PS：我在stackoverflow 上所说的一切都是调整listobject 本身的大小。 PS2：我也不明白这两个家伙之间是否有区别：

.Resize Range("A1:B10")

和

 .Resize(1,10) 

何塞·费罗

Answer 1

这是一种方法：

Option Explicit
Public Sub test()
    Dim SRTbl As ListObject, header As Range, ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet2")
    Set SRTbl = ws.ListObjects(1)
    Set header = SRTbl.ListColumns("Name").Range(1, 1)
    Debug.Print header.Offset(-3).Resize(1, 2).Address

End Sub

---

这是另一个：

Option Explicit
Public Sub test()
    Dim SRTbl As ListObject, header As Range, ws As Worksheet

    Set ws = ThisWorkbook.Worksheets("Sheet2")   
    Set SRTbl = ws.ListObjects(1)
    Set header = SRTbl.HeaderRowRange.Find("Name")

    If Not header Is Nothing Then
        If header.Row > 3 Then
            header.Offset(-3) = "Tada"
        End If
    End If
End Sub

要引用偏移量为 -3 行的整个标题宽度：

SRTbl.HeaderRowRange.Offset(-3)

简单地调整找到的单元格：

header.Offset(-3).Resize(1,2) 

从找到的单元格调整到表格末尾

Debug.Print header.Resize(1, ws.Range(Split(SRTbl.HeaderRowRange.Address, ":")(1)).Column - header.Column + 1).Address