用vba在pivot表里筛选数据有无限循环小数取不到

2020-02-19 02:24:29 128 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Excel线图制作全流程：从数据准备到专业交付线图是时间序列分析最基础也最易误用的可视化形式，其本质是通过连续折线表达变量随时间或类别的变化趋势。理解Excel图表引擎‘左列为X轴、右列为Y轴’的底层逻辑，是避免横轴混乱、系列错位、刻度失真的关键前提。真实业务中，90%的线图问题源于数据格式错误——日期被识别为文本、数值混入单位、空行中断范围，而非操作步骤缺失。掌握结构化数据准备、坐标轴精准控制、多系列视觉分层及动态参考线叠加等技术，可显著提升趋势洞察效率与汇报可信度。本文聚焦Excel原生功能，覆盖气象监测、销售复盘、跨部门协同等典型场景下的线图实战阅读详情

我想写一个vba，在pivot中filter出所有大于6的数并且勾选上。
因为有无限循环小数在里面，所以没有办法取到。

For iitem = 1 To No19WS.PivotTables("ピボットテーブル2").PivotFields("actualhour").PivotItems.Count

No19WS.PivotTables("ピボットテーブル2").PivotFields("actualhour").PivotItems(iitem).Visible = True
Next
For iitem = 1 To No19WS.PivotTables("ピボットテーブル2").PivotFields("actualhour").PivotItems.Count

No19String = No19WS.PivotTables("ピボットテーブル2").PivotFields("actualhour").PivotItems(iitem)
If No19String >= 6 Then
No19WS.PivotTables("ピボットテーブル2").PivotFields("actualhour").PivotItems(iitem).Visible = True
Else

No19WS.PivotTables("ピボットテーブル2").PivotFields("actualhour").PivotItems(iitem).Visible = False
End If
Next

请问这段代码该怎么改。

...全文