如何解决如何创建多个动态表
我是 VBA 新手。我想创建与给定值 X 一样多的动态表。应该创建一个靠近另一个的表。表格的每一行都应该至少有一个包含文本和公式的单元格。这是我已经完成的:
Private Sub CommandButton1_Click()
Dim t As ListObject
Dim c As Range
Sheet4.Activate
Set t = Sheet4.ListObjects.Add(xlSrcRange,Sheet4.Range("A2").Resize(37,5),xlNo)
t.ListColumns(1).Name = "Samples"
t.ListColumns(2).Name = "Activities"
t.ListColumns(3).Name = "discipline"
t.ListColumns(4).Name = "Activity"
t.ListColumns(5).Name = "Duration(h)"
End Sub
我不知道如何进行循环以将表格放在列而不是行上,以及如何在表格行中动态添加名称和公式。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。