问题描述
我是 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 (将#修改为@)