I want to write a vba, filter out all in the pivot is greater than 6 number and check,
Because there are infinite decimals in the inside, so there is no way to get to the,

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

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

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

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

Could you tell me how to change this code the,