ITPUB论坛-中国最专业的IT技术社区

 
 注册
热搜:
查看: 527|回复: 0

EXCEL里怎么给透析表传参数

[复制链接]
论坛徽章:
2
ITPUB9周年纪念徽章
日期:2010-10-08 09:28:52优秀写手
日期:2013-12-18 09:29:10
跳转到指定楼层
1#
发表于 2017-12-1 11:36 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 mylongair 于 2017-12-1 11:51 编辑

透析表要求四个时间参数
1、日:比如输入10号,就点选1-10号复选
2、本月、上月、去年同期。
请问要怎么传到透析表中

新手,直接抄原来前辈的代码,代码如下,请帮忙看下,谢谢大家!

Sub CH()
'
' Macro1 Macro
'
Dim yday_s As String
Dim yday_m1 As String
Dim yday_m2 As String
Dim yday_m3 As String
yday_s = Sheets("首页").[b3]
yday_m1 = Sheets("首页").[b5]
yday_m2 = Sheets("首页").[b7]
yday_m3 = Sheets("首页").[b9]
Dim yday As Integer

yday = CInt(yday_s)

'更新累计昨日数据透视表
Dim month_days(31) As String

For i = 1 To yday
month_days(i) = "[时间].[日期].&[" & i & "]"
Next i


Sheets("1.整体收入情况").Select


       ActiveSheet.PivotTables("1").PivotFields("[时间].[日期].[日期]"). _
        VisibleItemsList = month_days
       ActiveSheet.PivotTables("2").PivotFields("[时间].[日期].[日期]"). _
        VisibleItemsList = month_days

End Sub



您需要登录后才可以回帖 登录 | 注册

本版积分规则

TOP技术积分榜 社区积分榜 徽章 团队 统计 知识索引树 积分竞拍 文本模式 帮助
  ITPUB首页 | ITPUB论坛 | 数据库技术 | 企业信息化 | 开发技术 | 微软技术 | 软件工程与项目管理 | IBM技术园地 | 行业纵向讨论 | IT招聘 | IT文档 |
  | | |
CopyRight 1999-2011 itpub.net All Right Reserved. 北京盛拓优讯信息技术有限公司版权所有 联系我们 网站律师 隐私政策 知识产权声明
 北京市公安局海淀分局网监中心备案编号:11010802021510 广播电视节目制作经营许可证:编号(京)字第1149号
  
快速回复 返回顶部 返回列表