萍聚社区-德国热线-德国实用信息网

 找回密码
 注册

微信登录

微信扫一扫,快速登录

萍聚头条

查看: 706|回复: 2

请教有关excel里的宏

[复制链接]
发表于 2004-8-29 16:30 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?注册 微信登录

x
我有一个excel表,先按要求做了一些转换,然后做了数据透视表和图.
现在我想在下次录入数据是,能自动先实现转换,然后更新数据透视表和图.

怎么写个宏呢?? 因为我想用个控件控制,能自动显示的.

我是新手,请大家帮助!先谢过了!
Die von den Nutzern eingestellten Information und Meinungen sind nicht eigene Informationen und Meinungen der DOLC GmbH.
发表于 2004-9-2 12:19 | 显示全部楼层
有”录制宏“这个功能,录完了再去定制你的工具栏,找到你录的宏然后拖到工具栏上。
可以用office里的vb编辑器去查看和修改你录的宏代码。

当然也可以在你的文档里贴一个按钮,取代工具栏的按钮。 代码可以参考录制下来的宏。
Die von den Nutzern eingestellten Information und Meinungen sind nicht eigene Informationen und Meinungen der DOLC GmbH.
发表于 2004-9-2 17:30 | 显示全部楼层
我还有问题,宏写了,运行有问题!在朋友家,就用这个ID发贴吧!
Sheets("Tabelle1").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("Diagramm1").Select
    ActiveWindow.SelectedSheets.Delete
     
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Ausführender!R1C1:R1830C25").CreatePivotTable TableDestination:="", _
        TableName:="PivotTable1", DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:="Jahr", _
        ColumnFields:="Anf"
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Ist Gesamt
Die von den Nutzern eingestellten Information und Meinungen sind nicht eigene Informationen und Meinungen der DOLC GmbH.
您需要登录后才可以回帖 登录 | 注册 微信登录

本版积分规则

手机版|Archiver|AGB|Impressum|Datenschutzerklärung|萍聚社区-德国热线-德国实用信息网

GMT+1, 2025-2-7 10:26 , Processed in 1.692758 second(s), 20 queries , MemCached On.

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表