新足迹 › 论坛 › 澳洲生活区 › 工作学习 › Excel Macro 问题

精华好帖回顾
· 小贝带你吃遍悉尼(更新：法国越南的一个漂亮的集合：libertine P7） (2006-7-4) 贝贝	· 我的买房经历-给迷茫的人一些我的想法 (2014-9-10) cnnworld
· 魅力.. (2009-6-5) 时光漫步	· 2012款Nissan Murano ST 悉尼2.7%贷款购买小记（内附试驾感受）6月9日最新进展：提车要6-8周后，死磕黑色到底！ (2012-5-12) li_yu84

查看: 1530|回复: 13

[学习培训] Excel Macro 问题 [复制链接]

roseinsummer

光脚族

发表于 2013-12-9 20:15 |显示全部楼层

此文章由 roseinsummer 原创或转贴，不代表本站立场和观点，版权归 oursteps.com.au 和作者 roseinsummer 所有！转贴必须注明作者、出处和本声明，并保持内容完整

I created a macro to filter a pivot table by date. On the pivot table sheet, I entered a date into Cell M1. The macro filters the pivot table based on that date.  Unfortunately, I keep getting an error message: The date you entered is not a valid date. Please try again.  Here is my macro as follows:

Sub Update()
Worksheets("pivot").Select
ActiveSheet.PivotTables("PivotTable6").RefreshTable
With ActiveSheet.PivotTables("PivotTable6").PivotFields("SOF")
      .PivotItems("(blank)").Visible = False
End With
With ActiveSheet.PivotTables("PivotTable6").PivotFields( _
      "Sof Details - End Date (Trans)")
      .PivotItems("(blank)").Visible = False
End With
Dim EndDate As Date
EndDate = Worksheets("pivot").Range("M1").Value
ActiveSheet.PivotTables("PivotTable6").PivotFields( _
      "Sof Details - End Date (Trans)").PivotFilters.Add Type:=xlBeforeOrEqualTo, _
      Value1:=EndDate
End Sub

Can anybody  help me with this ? Thanks in advance. I think this may give others a chance to understand macro more .

朽木白菜

布鞋族

发表于 2013-12-9 20:23 |显示全部楼层

此文章由朽木白菜原创或转贴，不代表本站立场和观点，版权归 oursteps.com.au 和作者朽木白菜所有！转贴必须注明作者、出处和本声明，并保持内容完整

How does your pivot table look like?

jy00064164

布鞋族

发表于 2013-12-9 20:26 |显示全部楼层

此文章由 jy00064164 原创或转贴，不代表本站立场和观点，版权归 oursteps.com.au 和作者 jy00064164 所有！转贴必须注明作者、出处和本声明，并保持内容完整

could you upload your workbook?

roseinsummer

光脚族

发表于 2013-12-9 20:40 |显示全部楼层

As the pivot table contains information related to my work, I can not upload the whole file. I can only let you see the format of the table. I tried, but the message said it didnot support an excel file upload.

roseinsummer

光脚族

发表于 2013-12-9 20:41 |显示全部楼层

How to upload an excel file ? Can anyone help ?

朽木白菜

布鞋族

发表于 2013-12-9 21:15 |显示全部楼层

此文章由朽木白菜原创或转贴，不代表本站立场和观点，版权归 oursteps.com.au 和作者朽木白菜所有！转贴必须注明作者、出处和本声明，并保持内容完整

roseinsummer 发表于 2013-12-9 19:41
How to upload an excel file ? Can anyone help ?

Maybe try upload a screen shot

roseinsummer

光脚族

发表于 2013-12-10 01:13 |显示全部楼层

done.

roseinsummer

光脚族

发表于 2013-12-10 01:16 |显示全部楼层

I tried, but could not upload a png file. What is the hell going wrong with this website ?

YC_SUSAN

金靴族

发表于 2013-12-11 19:25 来自手机 |显示全部楼层

此文章由 YC_SUSAN 原创或转贴，不代表本站立场和观点，版权归 oursteps.com.au 和作者 YC_SUSAN 所有！转贴必须注明作者、出处和本声明，并保持内容完整

帮顶，lz好厉害

tvc889

银靴族

发表于 2013-12-11 21:23 |显示全部楼层

此文章由 tvc889 原创或转贴，不代表本站立场和观点，版权归 oursteps.com.au 和作者 tvc889 所有！转贴必须注明作者、出处和本声明，并保持内容完整

本帖最后由 tvc889 于 2013-12-11 21:31 编辑

你输入的日期的格式，不要dd/mm/yyyy，用mm/dd/yyyy（in cell M1）。

本帖子中包含更多资源

您需要登录才可以下载或查看，没有帐号？注册

tvc889

银靴族

发表于 2013-12-13 15:42 |显示全部楼层

此文章由 tvc889 原创或转贴，不代表本站立场和观点，版权归 oursteps.com.au 和作者 tvc889 所有！转贴必须注明作者、出处和本声明，并保持内容完整

楼主，如果别人辛苦回答了，您也给个回信吧？

roseinsummer

光脚族

发表于 2014-4-4 18:03 |显示全部楼层

tvc889 发表于 2013-12-13 15:42
楼主，如果别人辛苦回答了，您也给个回信吧？

Sorry, I did not come to this website for a long time as I thought nobody could solve my issue.
I will try your way and then let you know whether it works or not. Anyway, thanks a lot for your kind help.