我想寫一個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
請問這段代碼該怎么改。
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/90881.html
上一篇：selenium庫安裝和測驗