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

精华好帖回顾
· 见识了传说中的OC (2009-2-25) 缓缓	· 参加活动－值得一去再去的天之涯，海之角－新西兰南岛 (2011-4-18) 老猫晒太阳
· 新人学习拍照一周年作业墨尔本套图39张 (2010-1-1) psveind	· 偶越来越像public servant了? (2005-11-7) Ricky

查看: 1529|回复: 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.