用VBA根据年月自动画表格

barbison

求助大神们一个问题：用VBA根据年月自动画表格图1为原如数据


图2为处理结果


根据标记1（即A1）生存天数，
标记2的名字行数是不确定的
标记3的合计为VBA增加。

拜谢各位大神 工作簿1.ZIP (8.11 KB, 下载次数: 18)

2019-9-12 19:18 上传

点击文件名下载附件

barbison

最后根据表格数据自动生存图二的表格线框

大灰狼1976

Sub test()
Dim rng As Range
Set rng = [a1].CurrentRegion.Offset(1)
rng.Borders().LineStyle = xlContinuous
Cells(Rows.Count, 1).End(3).Offset(1) = "total"
End Sub

barbison

大灰狼1976 发表于 2019-9-12 20:20
Sub test()
Dim rng As Range
Set rng = [a1].CurrentRegion.Offset(1)

谢谢大神。

barbison

大灰狼1976 发表于 2019-9-12 20:20
Sub test()
Dim rng As Range
Set rng = [a1].CurrentRegion.Offset(1)

大神，如果在天数后面再增加一小列小计呢？如下图
谢谢！

大灰狼1976

1. Sub test()
   
2. Dim rng As Range
   
3. Cells(2, Columns.Count).End(1).Offset(, 1) = "小计"
   
4. Set rng = [a1].CurrentRegion.Offset(1)
   
5. rng.Borders().LineStyle = xlContinuous
   
6. Cells(Rows.Count, 1).End(3).Offset(1) = "合计"
   
7. End Sub

复制代码

YZC51

请参考
Sub te3st()
Dim rng As Range
    Range("B1:AG102").Clear
    da = DateAdd("m", 1, CDate([A1])) - 1
    For j = 1 To Day(da)
        Cells(2, j + 1) = j
    Next
    Cells(2, Columns.Count).End(1).Offset(, 1) = "小计"
    If Cells(Rows.Count, 1).End(3).Offset(0) <> "合计" Then
    Set rng = [A2].CurrentRegion.Offset(1)
    rng.Borders().LineStyle = xlContinuous
    Cells(Rows.Count, 1).End(3).Offset(1) = "合计"
    Else
    Set rng = [A2].CurrentRegion.Offset(0)
     rng.Borders().LineStyle = xlContinuous
    End If
    Rows("1:1").Borders().LineStyle = xlNone
End Sub

barbison

大灰狼1976 发表于 2019-9-12 23:08

高手就是高手，谢谢！

barbison

YZC51 发表于 2019-9-13 00:44
请参考
Sub te3st()
Dim rng As Range

非常感谢，非常完美的编程，学习了。

YZC51

barbison 发表于 2019-9-14 15:02
非常感谢，非常完美的编程，学习了。

能用就好，花花鼓励下！