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

[echo1112]

我想写一个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

请问这段代码该怎么改。