数据透视表笔记（以了保持流畅性，请勿回贴，如果喜欢送朵花就行了，谢谢）

fankairong

1. Private Sub Worksheet_Activate() '保护透视表结构不被更改
   
2. Dim pvt As PivotTable
   
3. Set pvt = ActiveSheet.PivotTables(1)
   
4. pvt.EnableWizard = False '禁止使用向导
   
5. pvt.EnableFieldList = False '禁止显示字段列表
   
6. Application.CellDragAndDrop = False '禁止使用拖放
   
7. End Sub
   

复制代码

fankairong

在Excel里用SQL连接多个表，建立关联
字段名必须放在[]外面，而不像引用区域必须放在[]里面
select * from [sheet1$] inner join  [Sheet2$] on [sheet1$].对方名称=[Sheet2$].名称

fankairong

永恒边框VBA属性法

fxl447098457

楼主有心了，不错的演示和代码。

fankairong

利用透视表制作带每月小计和最后总计的报表：
参考： http://club.excelhome.net/forum. ... 695&pid=2458896
关键点：
1、组合，步长为大概每页可打印的行数，使其一页内容归为一个项目。
2、字段设置→布局和打印→每项后面插入分页符。使其打印时一个项目一页。
3、透视表选项→布局→合并且居中排列带标签的单元格。这样隐藏辅助列后，合并标志（小计）不会被隐藏。
4、打印预算→页面设置→工作表→√风格线。使打印时能有网格。