Jssy的博客

修改一下代码，提高运行效率

Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)

   On Error Resume Next
   Dim i%, j%, n%, item0$, item1$, item2$, rng As Range, pvi As PivotItem
 
   Application.ScreenUpdating = False
   Application.EnableEvents = False
  
   Set pvt = Sh.PivotTables(1)
   Set rng = ThisWorkbook.Sheets('数据源').UsedRange
   n = rng.Rows.Count
   item0 = pvt.PivotFields('区域').CurrentPage
  
   For Each pvi In pvt.PivotFields('城市').PivotItems
       pvi.Visible = True
   Next
     
   For Each pvi I

Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
   On Error Resume Next
    Dim i%, j%, n%, item$, rng As Range
    Application.ScreenUpdating = False
   Application.EnableEvents = False
   Set rng = ThisWorkbook.Sheets('数据源').UsedRange
   n = rng.Rows.Count
    With Sh.PivotTables(1).PivotFields('城市')
       F

    昨天早晨，一声重物落后发出的沉闷声响并没有引起我多少注意，过了一些时间，当上班出门时看到120急救车停在院子里，医生护士急冲上楼，心想楼里不知哪家有人生病了，心里掠过一丝疑问。

    到晚上，在电视中才得知是住在14层的肾脏病专家，中国工程院院士黎磊石老先生跳楼身亡了，太令人震惊了！

    虽同住在一楼里，但与黎磊石老生并不大认识，只是偶而会在园子里遇到，感觉老人家挺可亲的。

    他是肾脏病专家，解决了无数患者的病痛，但他却以他自己选择的方式摆脱了自己身体和精神上的痛苦，太震惊!太惋惜！

    一个人的生与死，多半没有几个人可以自己做主的，人与人的差异只是活的方式不同。黎磊石老先生选择了自己离开人世的方式，虽难以让人接受，但也没有什么可以说道的，他依然是令人尊敬的专家、令人可亲的老人。

    以此文纪念黎磊石老先生，愿他在天之灵得到解脱！

    在小学时，看到一个同学在3分钟内将魔方还原，当时羡慕不已，就也学着想弄弄，但始终没玩出个名堂，结果只得放弃。没想到N个十年后，在网上看到了一个魔方教学视频，学了三天，就将魔方六面还原了，而且在一个月后用初级层阶法已可以将还原时间缩短到了2分钟以内。看来只要想学，一切皆有可能！

    在这里记录一下，同时也给女儿留点东东，希望她也能从中有所得！

快乐的寒假：

    EXCEL2010Beta已面市，其中新增加了许多令人兴奋的功能，透视表中的“切片器”就是其中之一，“多个数据透视表页字段同步联动”是在以前版本中必须用VBA才能实现的功能，而利用2010版透视表中的“切片器”功能可以轻松实现

详细附件见：http://club.excelhome.net/thread-509526-1-1.html

儿童营养早餐（适用于4～14岁儿童） 

星期一：牛奶1袋（227克），加营养谷物早餐1袋（30克）、面包75克、草莓酱15克、奶酪1片（15克）。
星期二：牛奶1袋（227克），加花卷1个（50克）、蛋糕1块（25克）、梨1个（50克）。
星期三：酸奶1瓶（200克），加蛋饼1个（鸡蛋1个加75克面粉）、苹果半个至1个（50克）。
星期四：牛奶1袋（227克），加雀巢营养谷物早餐1袋（30克）、肉包子1～3个（50克）、香蕉1根（100克）。
星期五：牛奶1袋

Sub Syn_page()
  Dim n%, i%, cel$, pvt$, p_item$, p_name$, p_name2$
   
  On Error Resume Next

  With Selection
    cel = .Address()   '选取当前单元格地址
  End With
 
  pvt = ActiveSheet.Range(cel).PivotTable '根据所选单元格，选取指定数据透视表并赋值
  p_name = ActiveSheet.PivotTables(pvt).PageFields(1).Name  '获取指定数据透视表页字段名称
  p_item = ActiveSheet.PivotTables(pvt).PageFields(p_name).CurrentPage '获取指定数据透视表页字段所选数据项
  n = ActiveSheet.PivotTables.Count       '统计当前活