このマクロを記録して、16のチャートの日付範囲を更新しました。しかし、ご覧のとおり、ランタイムエラーが発生しています。
私はこれに関連するstackoverflowの他のスレッドを見てきましたが、どれも近づいていません。Excelのダーンヘルプボタンも役に立ちません。あなたがアドバイスしていただけますか?コードは次のとおりです。
ActiveSheet.ChartObjects("Chart 18").Activate
ActiveChart.Axes(xlCategory).Select
ActiveSheet.ChartObjects("Chart 18").Activate
With ActiveSheet.PivotTables("PivotTable2").PivotFields("Date")
.PivotItems("Sep-15").Visible = False
.PivotItems("Aug-14").Visible = True
End With
これがあなたを近づけるはずのいくつかの簡単なコードです。このコードの「MySheet」をワークブックのピボットテーブルを含むシートの名前に変更する必要があります。また、Dateフィールドは本当に「Mmm-YY」形式のテキスト形式である必要があります。
Sub ShowThirteenDatesStartingLastMonth()
Sheets("MySheet").PivotTables("PivotTable2").PivotCache.Refresh
Dim Dt As String
With Sheets("MySheet").PivotTables("PivotTable2").PivotFields("Date")
For h = 1 To .PivotItems.Count - 1
On Error Resume Next
.PivotItems(h).Visible = False
Next h
For i = 1 To 13
On Error Resume Next
Dt = Format(DateSerial(Year(Date), Month(Date) - i, 1), "Mmm-YY")
.PivotItems(Dt).Visible = True
Next i
End With
End Sub
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加