作者：绿色风
分类：
时间：2022-08-17
浏览：122
楼主
水星钓鱼 |
Q：如下图所示的数据透视表
数据源的日期格式是"yyyy-mm-dd"形式的，当用VBA遍历“销售日期”字段的项目时，PivotItem对象的Caption、Name、Value属性返回的都是"dd/mm/yyyy"格式的，用以下代码验证：- Sub xyf()
- Dim oPT As PivotTable
- Dim oPF As PivotField
- Dim oPI As PivotItem
- For Each oPI In Application.Worksheets("sheet2").PivotTables(1).PivotFields(1).PivotItems
- MsgBox oPI.Caption
- MsgBox oPI.Name
- MsgBox oPI.Value
- Next
- End Sub
在某些情况下需要用VBA实现“显示即所得”的功能，显示的格式与用代码获得的结果要一致，该如何调整代码呢？
A：可以修改代码使用PivotItem.LabelRange.Text属性来获得“显示即所得”的功能。
代码如下：- Sub xyf()
- Dim oPT As PivotTable
- Dim oPF As PivotField
- Dim oPI As PivotItem
- For Each oPI In Application.Worksheets("sheet2").PivotTables(1).PivotFields(1).PivotItems
- MsgBox oPI.LabelRange(1).Text
- Next
- End Sub
附件如下：
 用VBA表示字段项目为日期时要注意的事项.rar
|
2楼
甫文和q |
没有问题，坚决支持.http://ｗｗｗ.ｑｑｂ１.ｃｏｍ
昨夜星辰昨夜风, 画楼西畔桂堂东. 身无彩凤双飞翼, 心有灵犀一点通.
隔座送钩春酒暖，分曹射覆蜡灯红。嗟余听鼓应官去，走马兰台类转蓬。 |
3楼
老糊涂 |
学习 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一