用vba在pivot表里筛选数据有无限循环小数取不到
我想写一个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
请问这段代码该怎么改。