加载中…
个人资料
Jssy
Jssy
  • 博客等级:
  • 博客积分:0
  • 博客访问:14,144
  • 关注人气:35
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
黄金原油
汇市走势
财经要闻
全球股市
精品博文
加载中…
搜博主文章
草根名博
加载中…
访客
加载中…
好友
加载中…
评论
加载中…
博文
标签:

透视表

vba

页字段

分类: EXCEL

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

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

阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
标签:

透视表

页字段

多级联动

杂谈

分类: EXCEL

 

 

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

阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
标签:

转载

分类: EXCEL

大家好,可信计算安全团队向各位介绍 Office 2010 中数字签名的一些新增功能。首先,我将简要说明什么是数字签名以及如何使用数字签名,然后将详细介绍数字签名在 Office 2010 中的工作原理。

什么是数字签名?

现在,越来越多的商业交易以电子方式开展。因此,为了从法律上保证信赖方履行交易义务,数字签名的使用越来越广泛。数字签名用于验证签署文档的用户的身份,并确认将数字签名应用于文档后内容未经修改。数字签名提供基于加密技术的

阅读  ┆ 评论  ┆ 转载原文 ┆ 收藏 
(2010-03-17 16:19)
标签:

纪念

黎磊石

分类: 杂文

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

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

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

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

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

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

 

阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
(2010-03-07 00:53)
标签:

魔方

杂谈

分类: 家有学童

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

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

 



阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
(2010-02-20 22:29)
标签:

杂谈

分类: 家有学童

快乐的寒假:



阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
标签:

excel2010

数据透视表

页字段联动

分类: EXCEL

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

 


 

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

阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
标签:

育儿

分类: 家有学童
    我们的孩子每天早上吃的哪些是有营养的,哪些吃法又是不科学的呢?营养质量好的早餐一定要包括4个部分:谷物、动物性食品、奶类、蔬菜或水果。包含其中三部分的早餐质量为一般,只包含一二部分的属于质量差的早餐。
  需要注意的是早饭时煎炸类食物不宜多吃,因为摄入脂肪和胆固醇过多,消化时间长,可使血液过久地积于腹部,造成脑部血流量减少,因而导致脑细胞缺氧,整个上午头脑昏昏沉沉,思维迟钝。还有,碳酸饮料不要喝,大量糖分进入体内可合成更多的有镇静作用的血清素,致使脑细胞活力受限,无法最大限度地动员脑力,使工作和学习效率下降。

 

儿童营养早餐(适用于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袋

阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
标签:

vba

多数据透视表

页字段

联动

分类: EXCEL

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       '统计当前活动工作表中的数据透视表的

阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
标签:

excel

vba

路径

自适应

it

分类: EXCEL

在导入外部数据创建数据透视表后,如果文件被移动后或改名后会出现如下警告:

使用以下代码可以解决这一问题:(该代码同样适用于2007版数据透视表)

Private Sub Workbook_Open()
    Dim strCon As String, iPath As String, i As Integer, iFlag As String, iStr As String
    '定义变量

    On Error Resume Next
    strCon = ActiveSheet.PivotTables(1).PivotCache.Connection
    '将当前

阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
  

新浪BLOG意见反馈留言板 电话:4000520066 提示音后按1键(按当地市话标准计费) 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 会员注册 | 产品答疑

新浪公司 版权所有