私は、コードを使用しています:エクセルVBAピボットISO週選択
Sub weekselect()
Dim CurWkNum As Integer: CurWkNum = 31
Dim pvtI As PivotItem
With Worksheets("PIVOT 4").PivotTables(1)
.PivotCache.Refresh
.ClearAllFilters
For Each pvtI In .PivotFields("WEEK_NUMBER").PivotItems
If pvtI > CurWkNum Then
CurWkNum = pvtI
End If
Next pvtI
For Each pvtI In .PivotFields("WEEK_NUMBER").PivotItems
pvtI.Visible = (CInt(pvtI.Name) = CurWkNum)
Next pvtI
End With
End Sub
これはピボットで先週選択し、以前の要件のための素晴らしい作品です。しかし、今週の現在の週に基づいて、現在の週および/またはを現在の週と4週間先に選択できるようにしたいと考えています。
ご協力いただければ幸いです!
多くの感謝!
いいサマリア人はありますか?私はVBAで絶望的であり、これをインターネットで検索し、いくつかのフォーラムで尋ねました。私はこれが簡単な編集であることを期待していました。私は私の元の要件のいくつかを回避することができましたが、今は上記のようにマクロを選択し、次の4週間のデータだけを選択する必要があります。そこに任意のVBAのプロが私に同情を取り、正しい方向に私を指すことができれば
本当にこれで立ち往生If pvtI > CurWkNum Then
CurWkNum = pvtI +1
CurWkNum = pvtI +2
CurWkNum = pvtI +3
CurWkNum = pvtI +4
とても感謝:だから私のような何かを推測します。 [OK]を