我有一张工作表,可以为列表中的每个项目添加一个表格。
但是添加表后,我找不到用于编辑表头的代码。可能有一个简单的解决方案,但是我找不到解决方案。
Sub getAllProjectsTest()
Dim totalSheet As Worksheet
Set totalSheet = ThisWorkbook.Sheets("Total Overview")
totalSheet.Range("A2:Z4000").Clear
For Each project In Sheets("Projects-Tasks").Range("Projects")
Dim LastRow As Long
LastRow = totalSheet.Cells(Rows.Count, 1).End(xlUp).Row
With totalSheet.Range("A" & LastRow).Offset(3, 0)
.Value = project
.Font.Size = 16
.Font.Bold = True
End With
Dim ListStart As String
ListStart = totalSheet.Range("A" & LastRow).Offset(4, 0).Address
Dim TableWidth As String
TableWidth = totalSheet.Range("A" & LastRow).Offset(4, 3).Address
totalSheet.ListObjects.Add(xlSrcRange, Range(ListStart & ":" & TableWidth), , xlYes).Name = "Table" & project
Range(ListStart & ":" & TableWidth).HorizontalAlignment = xlCenter
Next project
End Sub
如果您使用对象,它将变得更加容易。看这个例子
'
'~~> Rest of the code
'
Dim tbl As ListObject
Set tbl = totalSheet.ListObjects.Add(xlSrcRange, _
Range(ListStart & ":" & TableWidth), , xlYes)
With tbl
.Name = "Table" & project
Debug.Print .HeaderRowRange.Address
End With
'
'~~> Rest of the code
'
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句