arrays - 日付に基づいて Excel ピボット アイテムを並べ替える

Question

編集：解決しました!! まだ解決策を提示できません。

「日付」行フィールドを持つピボットテーブルがあります。古い日付から新しい日付に並べ替える VBA コードが必要です。

日付を AUS 形式にする必要があります。dd/mm/yyyy または d mmm yyyy など。これは、Excel がそれらを正しく並べ替えない場合です。

それでは、ピボットフィールド "Dates" に次のピボット アイテムがあるとします。

01 Jan 2012
30 Apr 2012
(blank)
03 Feb 2013
14 Feb 2012
22 Nov 2012

正しい順序は次のとおりです。

01 Jan 2012
14 Feb 2012
30 Apr 2012
22 Nov 2012
03 Feb 2013
(blank)

近づいていると思いますが、まだ運がありません。

Dim pi As PivotItem
Dim pfd As PivotField
Dim pt As PivotTable

Set pfd = pt.PivotFields("Snapshot Date")

For Each pi In pfd.PivotItems
pi = CDate(pi) 'converts to US date for sorting 
Next pi

pfd.AutoSort _
xlAscending, "Snapshot Date"

For Each pi In pfd.PivotItems
pi = Format(pi, "d mmm yyyy") 'converts to AUS
Next pi

ご協力いただきありがとうございます。分枝する