以单位名称及模板新建工作表

0oo清风oo0

    一、以单位名称为表名并以Sheet1表为模板新建工作表（有多少单位建多少工作表）。

    二、将单位名称、党刊征订表内的数据以及总金额自动填写到各个相应的工作表中。

    三、可以将以单位为名称的工作表批量删除（便于数据改动后全部新建）。









高手们请帮帮忙，详情见附件~~

2013年度党刊征订明细表.rar (5.22 KB, 下载次数: 14)

2012-11-16 21:31 上传

点击文件名下载附件

yaozong

Sub aaa() '添加或更新分表(有者更新/无者添加)
Application.ScreenUpdating = False
    Sheet1.Activate
    Dim cl As Range
    For Each cl In Range("a5", [a65536].End(3))
       On Error Resume Next
       If Sheets(cl.Value) Is Nothing Then
          Sheets("Sheet1").Copy After:=Sheets(Sheets.Count)
          Sheets(Sheets.Count).Name = cl.Value
          Sheets(cl.Value).[b2] = cl.Value
       Else
          Sheets(cl.Value).[b5].Resize(12, 1).ClearContents
       End If
       Sheets(cl.Value).[b5].Resize(12, 1) = Application.Transpose(cl.Offset(, 1).Resize(1, 12).Value)
    Next
    Sheet1.Select
Application.ScreenUpdating = True
End Sub

yaozong

参考附件.....(二种方法)

0oo清风oo0

yaozong 发表于 2012-11-16 23:02
参考附件.....(二种方法)

非常非常感谢兄弟，辛苦了，谢谢~~~~

0oo清风oo0

yaozong 发表于 2012-11-16 23:02
参考附件.....(二种方法)

能否在次麻烦一下：
详情见工作表2-4中的批注

第二章的删除按钮只删除以工作表命名的工作表
第三张工作表“党刊发放情况统计表”
第四张工作表“党刊发放清册”

2013年度党刊征订明细表.rar (19.63 KB, 下载次数: 16)

2012-11-17 22:45 上传

点击文件名下载附件

先谢谢了~~~

0oo清风oo0

yaozong 发表于 2012-11-16 23:02
参考附件.....(二种方法)

兄弟，拜托了哈·······

yaozong

0oo清风oo0 发表于 2012-11-18 11:25
兄弟，拜托了哈·······

单位分表生成后,不应删除(只能更新/更新征订数据),因为分表中有各期的发放数据(发放数据要保留)
如果删除分表后再建分表,会丢失发放数据
参考附件...

0oo清风oo0

yaozong 发表于 2012-11-18 21:03
单位分表生成后,不应删除(只能更新/更新征订数据),因为分表中有各期的发放数据(发放数据要保留)
如果删除 ...

非常感谢！能否在帮忙完善一下：
--------------------------------------------------------------------------------------------------------
能否在“党刊发放情况统计表”不清楚是哪些单位未发放完成，请兄台想个办法解决。可以使用发放完成的用零表示，未发放的用负数表示也行。
如果可以，发放完成的单位不显示
-----------------------------------------------------------------------------------------------------------

”党刊发放清册”添加一个按钮，手动点击来获取数据（自动的反应太慢）~

还有一个问题，“党刊发放情况统计表”及“党刊发放清册”没有自动获取到单位名称

飞翔的雄狮

学了很多！谢谢！

寂静乡村

很牛逼，时隔这么多年，还是能用上